WaxistSelecta
XLDnaute Junior
Bonjour,
je galère pas mal sur ce truc depuis quelques heures. Si quelqu'un peu m'apporter une petite aide là dessus, j'en serais très content...
J'ai deux onglet:
Onglet Formulaire
Onglet Consolidé
Je cherche à "flagguer" (par un "X") les modifications apportées à 2 colonnes de l'onglet Formulaire dans une colonne dédiée de l'onglet Consolidé...
Pour info, je pense que ça tape dans du Private Sub Worksheet Change. J'ai un bout de code qui fonctionne mais seulement pour une ligne:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Long
Dim LigneOnglet2 As Long
Application.ScreenUpdating = False
If Target.Column = 11 Then 'verification que la modif est faite dans la colonne K (la 11ème)
For i = 2 To Range("J65536").End(xlUp).Row 'cherche le code dans la liste de l'onglet 2
If Sheets("Consolidated").Range("M" & i) = Target.Offset(0, -1) Then
LigneOnglet2 = i 'stock le n° de ligne dans la variable
Exit For
End If
Next i
Sheets("Consolidated").Range("P" & LigneOnglet2) = "X" 'ecrit le flag
End If
End Sub
Pour info également je joins un fichier un peu plus illustratif de ce que je recherche...
Merci à tous ceux qui pourraient m'apporter un peu d'aide...
je galère pas mal sur ce truc depuis quelques heures. Si quelqu'un peu m'apporter une petite aide là dessus, j'en serais très content...
J'ai deux onglet:
Onglet Formulaire
Onglet Consolidé
Je cherche à "flagguer" (par un "X") les modifications apportées à 2 colonnes de l'onglet Formulaire dans une colonne dédiée de l'onglet Consolidé...
Pour info, je pense que ça tape dans du Private Sub Worksheet Change. J'ai un bout de code qui fonctionne mais seulement pour une ligne:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Long
Dim LigneOnglet2 As Long
Application.ScreenUpdating = False
If Target.Column = 11 Then 'verification que la modif est faite dans la colonne K (la 11ème)
For i = 2 To Range("J65536").End(xlUp).Row 'cherche le code dans la liste de l'onglet 2
If Sheets("Consolidated").Range("M" & i) = Target.Offset(0, -1) Then
LigneOnglet2 = i 'stock le n° de ligne dans la variable
Exit For
End If
Next i
Sheets("Consolidated").Range("P" & LigneOnglet2) = "X" 'ecrit le flag
End If
End Sub
Pour info également je joins un fichier un peu plus illustratif de ce que je recherche...
Merci à tous ceux qui pourraient m'apporter un peu d'aide...