Left(Cells(i, 1), 4)

[MOANA31]

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é]

Re : Left(Cells(i, 1), 4)

Bonjour MOANA31,
Essayez :

if Left(Cells(i, 1), 4)="7" then 
Cells(i, 14).Value = "direct"

Cordialement

 

[mutzik]

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é]

Re : Left(Cells(i, 1), 4)

Bonjour à tous,
Allez on refait tout:

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