Discussion :

[retraite83]

Bonjour,

j'essaie pour tous les moyens de simplifier une série de RANGE en une seule ligne

Code :

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

1
2
3
4
5
6
7
 
If Range("B" & Delta1) > "0" Then
    Range("G" & Delta1 - 1) = ""
    Range("G" & Delta1) = ""
    Range("G" & Delta1 + 1) = ""
    Range("G" & Delta1 + 2) = ""
    Range("G" & Delta1 + 3) = ""

je voudrai qq chose comme :

Code :

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

1
2
3
 
If Range("B" & Delta1) > "0" Then
    Range("G" & Delta1 - 1:"G" & Delta1 + 3) = ""

je ne trouve aucune syntaxe dans les docs qui soient correctes, cela pourtant être très simple

[Wololol]

Bonjour,

Code :

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

1
2
3
If Range("B" & Delta1) > "0" Then
    Range("G" & Delta1 - 1 & ": G" & Delta1 + 3) = ""
End If

Il faut que ta range soit de la forme Range("Ax : By") , ton " : " doit donc être entre double quotes.

Bonne journée

[retraite83]

Merci,

je n'ai trouvé ça nul part dans les docs...

[eriiic]

Bonjour,

ou bien :

Code :

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

Range("G" & Delta1 - 1).Resize(5) = ""

eric

[Menhir]

je n'ai trouvé ça nul part dans les docs...

Pourtant, directement au chapitre Range de l'aide VBA, il y a plusieurs exemples de zones pour Range.
https://msdn.microsoft.com/fr-fr/VBA...e-object-excel