Discussion :

[VinzVVK]

Bonjour,

J'inscrits des individus dans une liste (noms, prénoms ... pays ...).
* Je désire mettre une mise en forme conditonnelle sur les pays (bcp de possibilité : 28) en feuil2!D
* Je définis une table de référence avec des couleurs par pays (Feuil1!B41:B68)

Voici le code qui pour chaque nouvelle ligne, va colorer la case pays en fonction de la table de référence.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
For I = 1 To 28
        If Feuil2.Range("D65536").End(xlUp).Formula = Feuil1.Range("b41").Offset(I - 1, 0).Value Then
        Feuil2.Range("D65536").End(xlUp).Interior.Color = Feuil1.Range("b41").Offset(I - 1, 0).Interior.Color
        End If
Exit For
Next

Ca ne fait rien : rien ne change pas de couleur, le IF renvoie toujours "faux" : je crois à une erreur de vocabulaire, mais je n'en sais rien à vrai dire. Je lis les FAQ et le reste, sans comprendre mon erreur. Merci de votre aide.

[alsimbad]

salut

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
For I = 1 To 28
        If Feuil2.Range("D65536").End(xlUp).Formula = Feuil1.Range("b41").Offset(I - 1, 0).Value Then
        Feuil2.Range("D65536").End(xlUp).Interior.Color = Feuil1.Range("b41").Offset(I - 1, 0).Interior.Color
        End If
Exit For
Next

j'ai mis en rouge les points que je ne comprend pas dans ton code. d'abord le formula. si je te suis bien ce que tu as en feuille deux c'est un nom de pays, donc c'est a la valeur de la case que tu fais reference, utilise plutot value.
ensuite, je ne comprend pas le offset. peut etre pour tenir compte de l'entete de colone?, mais a ce moment la quand i est = a 1, le offset est = a 0? ha si, en l'écrivant, je viens de comprendre, c'est parceque tu n'utilise b41 comme reference. ok c'est bon alors.
enfin pour le color, c'est colorindex qu'il faut utiliser
enfin pour la forme. de la manier dont tu a fais ton code, il ne travaille que sur la derniere ligne de ton tableau 2 donc si tu fais une modif de pays ou si tu ecris deux lignes a la suite, il ne pourra pas tout trouvé. le exit for est mal placé, il sort de la boucle des la premiere occurence.
je n'est plus le temps là, je vais bosser, mais j'essaie de voir ça d'ici ce soir

[VinzVVK]

Merci pour votre aide : c'est effectivement ma boucle for next qui était mauvaise (que j'avais mal compris). J'ai résolu mon pb.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
For I = 1 To 28
        If Feuil2.Range("D65536").End(xlUp).Value = Feuil1.Range("b41").Offset(I - 1, 0).Value Then
        Feuil2.Range("D65536").End(xlUp).Interior.Color = Feuil1.Range("b41").Offset(I - 1, 0).Interior.Color
        Exit For
        End If
Next

[ouskel'n'or]

Pour mettre Résolu, c'est le bouton tout en bas de la fenêtre

Edit
J'ai corrigé, pour cette fois tu n'as rien à faire

[alsimbad]

sinon, comme promis, je t'avais fait ça dans la journée

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub modifcolor()
For Each cel In Worksheets("feuil2").Range("d1").CurrentRegion.Cells 
  For Each couleur In Worksheets("feuil1").Range("b41:b69").Cells
   If cel = couleur Then
   cel.Interior.ColorIndex = couleur.Interior.ColorIndex
   End If
   Next couleur
Next cel
End Sub

ton code est plus simple mais il ne traite toujour que la derniere ligne. si tu fais une modif a l'interieur du tableau, ou si tu saisi plusieurs individu, il ne marche pas. en modifiant légerement, tu peux meme la mettre en macro evenementielle qui changera les couleurs en meme temps que tu les écrit