Ecriture simplifiée d'une suite de RANGE

Bonjour,

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

Code:

---

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:

---

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

Bonjour,

Code:

---

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 :)

Merci,

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

Bonjour,

ou bien :

Code:

---

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

---

eric

Citation:

---

Envoyé par retraite83

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