Imbrication FOR et IF dans VBA

[klemsy20]

Bonjour,

J'ai un petite fonction qui doit parcourir les cellules d'une colonnes, de tester si elles sont vides et de copier leur valeurs dans une combobox dans le cas contraire.
Le problème c'est que je suis plus familier avec les synthaxes de codage en langage C et je pense que l'imbrication du FOR et du IF que j'ai faite ne marche pas. En effet il m'affiche un message d'erreur.

Mon code :

Code :

1
2
3
4
5
6
7
8
9
10
 
For i = 70 To 65536
 
    If Sheets("Feuil1").Cells(i, 1).Value <> "" Then _
        With Assemble_Combox
         .AddItem Sheets("Feuil1").Cells(i, 1).Value
        End With
    End If
 
Next i

Merci de me dire si c'est la bonne façon de l'écrire ou pas.

[jfontaine]

Bonjour

Pour moi, le With est en trop car seule ligne y fait appel.

Pour le reste RAS

Code :

1
2
3
4
5
6
7
8
 
For i = 70 To 65536
 
    If Sheets("Feuil1").Cells(i, 1).Value <> "" Then 
         Assemble_Combox.AddItem Sheets("Feuil1").Cells(i, 1).Value
    End If
 
Next i

[mercatog]

Bonjour
Tu y étais presque

Code :

If condition then instruction

ou

Code :

1
2
3
if condition then
    instructions
end if

Pour ton cas, il faut se limiter à la partie utile (sinon, le temps d'exécution sera énorme)

Code :

1
2
3
4
5
6
7
8
9
10
Dim LastLig As Long
 
With Sheets("Feuil1")
    LastLig = .Cells(.Rows.Count, 1).End(xlUp).Row
    If LastLig >= 70 Then
        For i = 70 To LastLig
            If .Cells(i, 1).Value <> "" Then Assemble_Combox.AddItem .Cells(i, 1).Value
        Next i
    End If
End With

[pijaku]

Bonjour,
Si le message d'erreur que tu obtiens est :

erreur de compilation
end if sans bloc if

c'est du à la présence inopportune du caractère : _ après Then.
En VBA, ce signe n'intervient que pour aller à la ligne dans une longue ligne de code. Donc Si tu écris :

Code :

1
2
 If Sheets("Feuil1").Cells(i, 1).Value <> "" Then _
        With Assemble_Combox

cela équivaut à :

Code :

If Sheets("Feuil1").Cells(i, 1).Value <> "" Then With Assemble_Combox

Ou alors ce signe n'est apparu que dans le copié collé de ton code et je viens de faire une longue réponse inutile...