Discussion :

[captaine93]

Bonjour!
Je travaille dans un code ou la fonction if left...fonctionne bien si je spécifie le nb de caractères à identifier...voir le code suivant...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If (Left(rl.Cells(2), 6) = Left(r2.Cells(3), 6)) Then

Je voudrais remplacer le chiffre 6 par (len(rl.cells(2) - 2) ce qui donnerait

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If (Left(rl.Cells(2), (len(rl.cells(2) - 2)) = Left(r2.Cells(3), (len(rl.cells(3) - 2))) Then

Mais cela ne fonctionne pas...
Merci à celui qui pourra m'aider

[Pierre Fauconnier]

Bonjour

Dans la deuxième partie de ton égalité, tu as

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Left(r2.Cells(3), (len(rl.cells(3) - 2)))

Left(r2.Cells(3), (len(rl.cells(3) - 2)))

Est-ce normal?

[captaine93]

non, effectivement, c etait pas normal...
J ai cru que j allais passer pour un c.. mais en fait ca ne marche toujours pas en rectifiant ca
Merci de ton aide

[Pierre Fauconnier]

Tu as un petit cafouillage dans les parenthèses (en trop juste avant len, trop peu avant le -2

Ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
If (Left(rl.Cells(2), Len(rl.Cells(2)) - 2) = Left(r2.Cells(3), Len(r2.Cells(3)) - 2)) Then

fonctionne-t'il?

[captaine93]

Ca bug toujours et il met "argument ou appel de procédure incorrect" en message d'erreur mais quand je regarde le fichier, il fait bien ce que je lui dit
Je te mets le code en entier pour tout voir...

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
23
24
   Sheets("Feuil1").Select
    Dim rw 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 rw = Cells(3, 1).CurrentRegion ' on suppose que le tableau de donnee commence en C1..
 For Each rl In rw.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 rw.Rows
If (Left(rl.Cells(2), Len(rl.Cells(2)) - 2) = Left(r2.Cells(3), Len(r2.Cells(3)) - 2)) Then
      cDest.Value = r2.Cells(3)  ' Copie contenue colonnes c etD D ( 4°)
      cDest.Offset(0, 1) = r2.Cells(4)
      cDest.Offset(0, 2) = r2.Cells(5)
     Exit For
   End If
  Next
   Set cDest = cDest.Offset(1, 0) 'Passe ligne suivante
 Next

Merci encore

[Pierre Fauconnier]

Je ne comprends pas trop ton code...
Notamment la ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

for each r2 in rw.rows

qui, à mon avis, boucle sur la même ligne que r1...
Peux-tu expliquer ce que tu souhaites réaliser?