Discussion :

[mcorvaisier]

Bonjour,
J'ai une colonne que je voudrais parcourir et modifier si necessaire. Le hic c'est que je ne sais pas comment faire sous Excel. J'ai mis en place ce code mais il ne reconnait pas mon "Worksheet.cells(i,3)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 Private Sub codebarre()
 Dim i As Integer
 Dim ws As Worksheet
 i = 0
 While i < 8031
    If Len(ws.Cells(i, 3)) = 3 Then
        ws.Cells(i, 3) = 0 & (ws.Cells(i, 3))
    End If
    i = i + 1
 Wend
End Sub

Si quelqu'un peut m'expliquer je le remerci.

[MPaco]

Bonjour OCB37,

Ta variable ws est vide, il faut que tu lui assignes une feuille
Par exemple

Code :

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

set ws=Sheets("Feuil1")

Ensuite il faut que tu commences à la ligne 1 si tu ne veux pas avoir une erreur

Code :

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

i=1

A+

[Krovax]

Commence par lire ce petit guide pour trouver ta dernière ligne

Ensuite pour parcourir ta colonne
Je ne sais pas ou tu es aller chercher ton ws par contre. A mon sens il ne sert à rien et surtout il ne veux rien dire dans ce cas puisqu'il na pas de valeur

Code :

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

1
2
3
4
5
6
7
dim i as integer
dim derniereligne as integer
for i = 1 to derniereligne
    If Len(Cells(i, 3)) = 3 Then
         Cells(i, 3) = 0 & (Cells(i, 3))
   end if
next i

[NEC14]

Bonjour OCB37,

regarde le poste de cimbra55 un peu plus haut, je crois que vous cherchez à faire la même chose. Alors regarde la réponse donnée, on ne sait jamais peut-être vas tu y trouver ton bonheur.