Recherche et concaténation

Fermé
nivra - 20 avril 2010 à 21:25
Bonjour,

Voila mon petit problème, dans mes débuts avec VBA.
J'ai deux feuilles.
Dans la feuille1, j'ai des noms, prénoms(colonne B et C) et des cellules de couleur.
Dans la feuille2, j'ai les noms, prénoms(colonne B et C) mais pas dans le même ordre que dans la feuille1.
Dans la feuille2, je lance la vérification du couple nom-prénom (présent) et j'affiche le nombre de cellule de couleur trouvé dans la feuille1 en fonction de chaque personne.

Pour compter les cellules de couleur, je n'ai pas de problème.
Je bloque dans la recherche du couple nom-prénom. J'ai tenté la voie de la concaténation et voici ce que cela donne :

Sub macro2()
Thisbook = ActiveWorkbook.Name
Dim Recherche As Range
ligne = 2
NomPrenom = ""

If NomPrenom <> Workbooks(Thisbook).Sheets("Feuil2").Range("B" & ligne).Value & Workbooks(Thisbook).Sheets("Feuil2").Range("C" & ligne).Value Then
NomPrenom = Workbooks(Thisbook).Sheets("Feuil2").Range("B" & ligne).Value & Workbooks(Thisbook).Sheets("Feuil2").Range("C" & ligne).Value


Set Recherche = Workbooks(Thisbook).Sheets("Feuil1").Columns("B & C").Find(NomPrenom)

If Recherche Is Nothing Then
MsgBox "perdu"
Else
MsgBox "gagné"
End If
End If
End Sub

Bien sûr à la place des msgbox, je mettrai mon code pour compter mes cellules de couleur.
Si je lance ce code, j'ai un joli message sur « Set Recherche... ». Je pense que c'est sur Columns("B & C") que ca bloque.

Avez-vous une autre solution ou ai-je oublié quelque chose dans la macro ?

Merci