Gros débutant à l’utilisation de macro et à leur petite adaptation pour mes besoins, je sèches sur le problème suivant :
Je voudrais copier la valeur numérique de la cellule F24 de la feuille “Saisie” vers la feuille “Générale” dans la 20ème colonne (T)
Détails :
le contenu de la cellule F24 correspond à un numéro d’article qui lui est en A1 de la même feuille “Saisie”
Private Sub Worksheet_Change(ByVal Target As Range)
Dim PV As Long, Ligne As Integer
Dim Ws As Worksheet, Wd As Worksheet
Set Ws = Sheets("Saisie")
Set Wd = Sheets("Générale")
If Intersect(Target, [I24]) Is Nothing Then Exit Sub
PV = Ws.Range("F24").Value
Ligne = Application.WorksheetFunction.Match(Ws.Range("A1"), Wd.Range("C1:C204"), 0)
Wd.Cells(Ligne, "T").Value = PV
If Ws.Range("I24").Value = "" Then Wd.Cells(Ligne, "T").Value = ""
End Sub
Quand la cellule I24 de la feuille SAISIE est modifiée, la valeur est modifiée dans la ligne correspondante sur la feuille “GENERALE”
Wouaou, top merci ! pile poil ce que je voulais obtenir !!
Maintenant si je veux récupérer une autre valeur par exemple la cellule Ws.C19 et la placer dans la colonne Wd.Q du même numéro d’article. Compliqué à ajouter ?
Merci encore