Left(Cells(i, 1), 4)

MOANA31 · 12 Janvier 2010

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é · 12 Janvier 2010

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 · 12 Janvier 2010

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é · 12 Janvier 2010

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

Left(Cells(i, 1), 4)

MOANA31

Guest

Efgé

XLDnaute Barbatruc

mutzik

XLDnaute Barbatruc

Efgé

XLDnaute Barbatruc

Discussions similaires

Left(Cells(i, 1), 4)

MOANA31

Guest

Efgé

XLDnaute Barbatruc

mutzik

XLDnaute Barbatruc

Efgé

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency