Re : Boucle pour comparaison et copie valeur sur la cellule jointe
Merci pour ta réponse,
J'ai trouver quelques chose qui marche mais avec les colonnes K et E de plus de 500 cellules et des longues phrases ( 50 mots) a contrôlé sa bloque après quelques coups et j'ai l'erreur 13 incompatibilité de type.
Voici mon code, merci pour votre aide.
Christian
Public Sub EssaisDistri()
Dim WsS As Worksheet ', 'WsC As Worksheet
Dim PlageS As Range, Cel As Range, C As Range
Set WsS = Worksheets("Feuil2") 'Feuille source
'On définit la plage source
Set PlageS = WsS.Range("K2:K" & WsS.Range("K" & WsS.Rows.Count).End(xlUp).Row)
'On balaye toutes les cellules de la plage source
For Each Cel In PlageS
'Pour chaque cellule de la plage source, _
on recherche dans la colonne E de la feuille cible une cellule de même valeur.
Set C = WsS.Columns(5).Find(Cel, LookIn:=xlValues, lookat:=xlWhole)
'Si cette cellule existe
If Not C Is Nothing Then
'on lui affecte la même couleur
C.Offset(0, 1).Value = Cel.Offset(0, 1).Value
End If
Next Cel
End Sub