synthaxe d'une boucle

Hervé

XLDnaute Barbatruc

• 8 Juillet 2005

• #2

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

Cliquez pour agrandir...

En espérant t'avoir aidé.

Salut

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 8 Juillet 2005

• #3

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

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 8 Juillet 2005

• #4

Bonjour Amel, bonjour Hervé, bonjour le forum,

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

 

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 8 Juillet 2005

• #5

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

 

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 8 Juillet 2005

• #6

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

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 8 Juillet 2005

• #7

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 !

 

Vote positif 0 Vote négatif

A

amel

Guest

• 8 Juillet 2005

• #8

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

 

Vote positif 0 Vote négatif