Bonjour, j ai un probleme de copie conditionnelle que je n arrive pas à résoudre...
ex de données
09:31 ahs12,a ahs2,m 15
09:32 ahs2,a ahs12,m 147
09:37 ahs3,a ahs4,m 555
09:54 ahs4,a ahs3,m 236

en fait je voudrais copier dans la colonne H les données de la colonne D si
le nom en colonne C ressemble au nom en colonne B...avec le code ci dessous ca ne fonctionne pas car C n est jamais égal à B...que faire pour que ces données soient remises dans l ordre?


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Dim rS As Range 'Tableau de donnée Source
 Dim rl As Range ' ligne du tableau de donnée
 Dim cDest As Range ' Cellule de destination
 
 
 
 Set cDest = Range("H1") ' 1°Cellule destination
 
 
 Set rS = Cells(3, 1).CurrentRegion ' on suppose que le tableau de donnee commence en C1..
 For Each rl In rS.Rows 'parcours les lignes du tableau de donnée source
 
  If (Left(rl.Cells(3), 5) = Left(rl.Cells(2), 5)) Then cDest.Value = rl.Cells(1, 4)  ' Copie contenue colonne D ( 4°)
     Set cDest = cDest.Offset(1, 0) 'Passe ligne suivante
 
 
 
 
 
 Next
 
End Sub
Merci a ceux qui pourront m aider