M MOANA31 XLDnaute Nouveau 12 Janvier 2010 #1 Bonjour, Voici mon problème: if Left(Cells(i, 1), 4)="7" then Sht.Cells(i, 14) = "direct" Si il y a le chiffre 7 en 4ieme position alors inscrire direct dans la colonne 14. Je comprends pas ce qui manque. Merci de m'aider cela fais 3 heures que je suis dessus...
Bonjour, Voici mon problème: if Left(Cells(i, 1), 4)="7" then Sht.Cells(i, 14) = "direct" Si il y a le chiffre 7 en 4ieme position alors inscrire direct dans la colonne 14. Je comprends pas ce qui manque. Merci de m'aider cela fais 3 heures que je suis dessus...
Efgé XLDnaute Barbatruc 12 Janvier 2010 #2 Re : Left(Cells(i, 1), 4) Bonjour MOANA31, Essayez : Code: if Left(Cells(i, 1), 4)="7" then Cells(i, 14).Value = "direct" Cordialement Vote positif 0 Vote négatif
Re : Left(Cells(i, 1), 4) Bonjour MOANA31, Essayez : Code: if Left(Cells(i, 1), 4)="7" then Cells(i, 14).Value = "direct" Cordialement
mutzik XLDnaute Barbatruc 12 Janvier 2010 #3 Re : Left(Cells(i, 1), 4) bonjour, écrit de cette manière, cela ne fonctionnera jamais left renvoie (dans cet exemple) les 4 caractères de gauche (et ne sera donc jamais = 7) il faut utiliser stxt(...) pour feuille de calcul et mid(... pour VBA Vote positif 0 Vote négatif
Re : Left(Cells(i, 1), 4) bonjour, écrit de cette manière, cela ne fonctionnera jamais left renvoie (dans cet exemple) les 4 caractères de gauche (et ne sera donc jamais = 7) il faut utiliser stxt(...) pour feuille de calcul et mid(... pour VBA
Efgé XLDnaute Barbatruc 12 Janvier 2010 #4 Re : Left(Cells(i, 1), 4) Bonjour à tous, Allez on refait tout: Code: Sub Test() Dim var As String For i = 1 To 2 var = Mid( Cells(i, 1), 4, 1) If var = "7" Then Cells(i, 14).Value = "direct" End if Next i End sub Cordialement Vote positif 0 Vote négatif
Re : Left(Cells(i, 1), 4) Bonjour à tous, Allez on refait tout: Code: Sub Test() Dim var As String For i = 1 To 2 var = Mid( Cells(i, 1), 4, 1) If var = "7" Then Cells(i, 14).Value = "direct" End if Next i End sub Cordialement