[VBA-EXCEL] copiage conditionnel

Version imprimable

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:

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 ;)

05/11/2006, 18h43
SfJ5Rpw8

pourrai tu être plus clair sur l'emplacement de tes données histoire comprendre la sélection effectuée par le currentRegion...
05/11/2006, 18h56
captaine93

A B C D
ligne 1 09:31 ahs12,a ahs2,m 15
ligne 2 09:32 ahs2,a ahs12,m 147
ligne 3 09:37 ahs3,a ahs4,m 555
ligne 4 09:54 ahs4,a ahs3,m 236

en fait je veux remettre la colonne C (et les chiffres de la colonne D associés) dans le meme ordre que la colonne B...le problème étant que les noms de la colonne C finissent par ,m et que la colonne B ils finissent par ,a.

Merci de ton aide;)

peu tu nous mettre ce que tu ve obtenir à la fin ... je crois avoir saisi mais je suis pas sur ..:

en fait si j'ai bien compris pour chaque ligne du tableau .. il te faut refaire une autre boucle pour trouver la ligne ou la valeur en colonne C correspond à la valeur de la ligne en cours colonne b ( :aie: )

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
 
 
Sub test()
Dim rS As Range 'Tableau de donnée Source
 Dim rl As Range ' ligne du tableau de donnée
 Dim r2 As Range
 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
   Debug.Print "Compare " & rl.Cells(3).Address & " et " & rl.Cells(2).Address
  For Each r2 In rS.Rows
   If (Left(rl.Cells(2), 5) = Left(r2.Cells(3), 5)) Then
      cDest.Value = r2.Cells(3)  ' Copie contenue colonnes c etD D ( 4°)
      cDest.Offset(0, 1) = r2.Cells(4)
     Exit For
   End If
  Next
   Set cDest = cDest.Offset(1, 0) 'Passe ligne suivante
 Next
 
End Sub

05/11/2006, 19h16
captaine93

c est exactement ca !
Mille mercis à toi bbil :D ;) 8-)