synthaxe d'une boucle

[amel]

bonjour a tous ceux qui me liront!
je voudrais ecrire une boucle
for i variant de 1 à 10 et de 12 à 15 et de 20 à 25
comment ça s'ecrit?
c'est pour selectionner certaines colonnes d'une feuille excel...
MErci a vous!

 

[Hervé]

Bonjour amel, le forum



L'idée du code suivant c'est de boucler sur l'ensemble des colonnes de ta plage (1 à 25).

Mais, grace au select case de ne travailler que sur les colonnes voulues.

Sub Bouton1_QuandClic()
Dim i As Byte

For i = 1 To 25
    Select Case i
        Case 1 To 10, 12 To 15, 20 To 25
            'ici le code pour travailler sur ta colonne (columns(i))
        End Select
Next i

End Sub

En espérant t'avoir aidé.

Salut

 

[Robert]

Bonjour Amel, bonjour le forum,

Je te propose le code suivant :

Sub Macro1()
Dim i As Byte
For i = 1 To 25
If i < 11 Then
'ton code de 1 à 10
End If
If i > 11 And 1 < 16 Then
'ton code de 12 à 15
End If
If i > 19 Then
'ton code de 20 à 25
End If
Next i
End Sub

 

[Robert]

Bonjour Amel, bonjour Hervé, bonjour le forum,

Hervé même combat sauf que toi c'est plus pro(pre)...

 

[Hervé]

re amel salut robert

robert, si je peux me permettre, je corrige ta petit erreur d' étourderie.

If i > 11 And 1 < 16 Then

If i > 11 And i < 16 Then

Au plaisir de te croiser.

Salut

 

[Hervé]

re re

Je suis pas un pro, robert.

J'utilise les select case, parce que sinon je m'embrouille dans les boucles if then (tu parles d'un pro, loool)

A plus

bye

 

[Robert]

Bonjour le fil, bonjour le forum,

Merci Hervé mais à ta place j'aurais même pas corrigé j'aurais juste signalé à Amel de ne pas utiliser mon code de naze...Loule !

 

[amel]

re le forum!
Merci pour de m'avoir débloqué Robert et Hervé!