Bonjour,
Je viens vers ce forum pour lui poser une petite question à double tiroir:
En effet voici le code que j'ai mis en place pour que lorsque j'ajoute un nom dans un tableau ce nom prend automatiquement la forme voulu si le nom est déjà dans le tableau. Par exemple si Bernard est surligné en bleu dans mon tableau, lorsque je vais ajouter un Bernard autre part dans le tableau il va devenir bleu automatiquement. Voici le code en question:
Private Sub Worksheet_Change(ByVal Target As Range)
' lorsque l'on ajoute un nom déjà présent dans le tableau, ce nom reprend la mise en forme des autres cases ayant le même nom
If flag Then Exit Sub
flag = True
If Selection.Count > 1 Then Exit Sub
For Each Cel In Range("Tableau2")
If Cel.Value = Selection.Value Then
Cel.Copy Destination:=Selection
End If
Next
flag = False
End Sub
Pour qu'il soit parfait, il faudrait une amélioration:
le Range est le tableau (Range("tableau2")), et je souhaiterais lui dire de ne pas chercher dans tout le tableau si une cellule est similaire, mais seulement dans la colonne en cours. Ainsi il cherchera un nom existant que dans la colonne.
Quelqu'un sait t'il comment faire?
Je viens vers ce forum pour lui poser une petite question à double tiroir:
En effet voici le code que j'ai mis en place pour que lorsque j'ajoute un nom dans un tableau ce nom prend automatiquement la forme voulu si le nom est déjà dans le tableau. Par exemple si Bernard est surligné en bleu dans mon tableau, lorsque je vais ajouter un Bernard autre part dans le tableau il va devenir bleu automatiquement. Voici le code en question:
Private Sub Worksheet_Change(ByVal Target As Range)
' lorsque l'on ajoute un nom déjà présent dans le tableau, ce nom reprend la mise en forme des autres cases ayant le même nom
If flag Then Exit Sub
flag = True
If Selection.Count > 1 Then Exit Sub
For Each Cel In Range("Tableau2")
If Cel.Value = Selection.Value Then
Cel.Copy Destination:=Selection
End If
Next
flag = False
End Sub
Pour qu'il soit parfait, il faudrait une amélioration:
le Range est le tableau (Range("tableau2")), et je souhaiterais lui dire de ne pas chercher dans tout le tableau si une cellule est similaire, mais seulement dans la colonne en cours. Ainsi il cherchera un nom existant que dans la colonne.
Quelqu'un sait t'il comment faire?