excel vba : remplir automatiquement si

Question

Bonjour,

Je travaille pour une association, j'ai besoin de réaliser une macro pour m'aider à remplir un tableau pour une compétition.

J'ai le nom des joueurs à la fois en ligne 2 et en colonne B, je souhaiterai qu'à l'intersection de la colonne et de la ligne (lorsque le nom est le même) se trouve un "X".

exemple : si j'ai "elodie" en B7 et en D2, je souhaiterais avoir un "X" à l'intersection de cette ligne (7) et de cette colonne (D), soit un "X" en D7.
Je voudrais que la macro mette un X à chaque fois qu'il y a intersection. 

Par contre il peut y avoir 2 noms dans la même cellule de la colonne B donc il faut que la macro fasse une recherche sur le contenu. Par exemple B3 = Francis; elodie.   Et D2 = elodie et E2= Francis donc D3 = X et E3 = X.

Si vous le souhaitez je peux vous faire parvenir mon tableau et ma macro...

Merci d'avance pour votre aide,

Mélodie

eriiic · Answer

Bonjour,

Si vous le souhaitez je peux vous faire parvenir mon tableau et ma macro... 
C'est mieux oui : au format .xls de préférence, cijoint.fr et coller ici le lien fourni

eric

eriiic · Answer

Sub Remplir_tableau() 
    Dim c As Range 
    For Each c In [C3:F7] 
        If InStr(Cells(c.Row, 2), Cells(2, c.Column)) Then c = "X" Else c = "" 
    Next c 
End Sub 


eric

Excel vba : remplir automatiquement si

2 réponses

Newsletters