Discussion :

[sophie123]

Bonjour,

Je vous sollicite pour simplifier un bout de procédure.

DAns l'exemple ci dessous, je détermine les zones de ma procédure.
Etant donné que ces zones sont reviennent toute les 3 colonnes, existe t'il un moyen d'incorporer une variable qui simplifierait la saisie sous forme de boucle ?

Code :

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

If Not Intersect(Target, Me.Range("E4:E" & ln)) Is Nothing Or Not Intersect(Target, Me.Range("H4:H" & ln)) Is Nothing Or Not Intersect(Target, Me.Range("K4:K" & ln)) Is Nothing Or Not Intersect(Target, Me.Range("N4:N" & ln)) Is Nothing Or Not Intersect(Target, Me.Range("Q4:Q" & ln)) Is Nothing Or Not Intersect(Target, Me.Range("T4:T" & ln)) Is Nothing Or Not Intersect(Target, Me.Range("W4:W" & ln)) Is Nothing Or Not Intersect(Target, Me.Range("Z4:Z" & ln)) Is Nothing Or Not Intersect(Target, Me.Range("AC4:AC" & ln)) Is Nothing Or Not Intersect(Target, Me.Range("AF4:AF" & ln)) Is Nothing Or Not Intersect(Target, Me.Range("AI4:AI" & ln)) Is Nothing Or Not Intersect(Target, Me.Range("AL4:AL" & ln)) Is Nothing Or Not Intersect(Target, Me.Range("AO4:AO" & ln)) Is Nothing Or Not Intersect(Target, Me.Range("AR4:AR" & ln)) Is Nothing Or Not Intersect(Target, Me.Range("AU4:AU" & ln)) Is Nothing Or Not Intersect(Target, Me.Range("AX4:AX" & ln)) Is Nothing Then ]

Merci de votre aide
Sophie

[halaster08]

Bonjour,
Essaye ceci:

Code :

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

1
2
3
4
5
6
dim test as boolean, col as long
test = false
for col = 5 to 50 step 3
test = test or Not Intersect(Target, Me.Range(cells(4,col),cells(ln,col))) Is Nothing 
next col
if test then

[riaolle]

Bonjour,
Oui c'est possible !
Plutôt que d'utiliser la syntaxe Range, tu peux utiliser la syntaxe Cells(no_ligne, no_colonne). Les lignes sont équivalentes 2 par 2:

Code :

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

1
2
3
4
5
6
'1.
Range("A2").Value = "toto"
Cells(2, 1).Value = "toto"
'2.
Range("A1:A10").Select
Range(Cells(1, 1), Cells(10, 1)).Select

Ensuite, pour faire une boucle d'un pas de 3, on utilise le mot clef Step :

Code :

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

1
2
3
4
5
Dim somme As Integer
For i = 0 To 9 Step 3
    somme = somme + 1
Next i
'somme = somme des nombres entre 0 et 9 inclus divisibles par 3

[sophie123]

Je viens de tester la solution de halaster08, et c'est exactement ce que je cherchais.
Merci bcp pour ton aide.

Sophie