Utilisation range

bonjour,
j ai ce code qui fonctionne tres bien mais j ai plusieurs range a nettoyer une bonne dizaine et j ai pas tres envie de taper
ce code avec chaque range differente ....

Code:

---

1 2 3 4

Dim b as range For each b in activesheet.range ("AA13:AA52") If not b.hasformula then b.clearcontents Next b

---

merci

je ne suis pas trop sur mais ne peut tu pas faire une boucle avec un pointage sur cellule contenant ton adresse
voir faire une boucle qui recharge plage

Code:

---

1 2 3 4 5 6

Dim b as range dim plage as string plage=range("p1").value For each b in activesheet.range (plage) If not b.hasformula then b.clearcontents Next b

---

daranc

faudrait que je rajoute peut etre

Code:

---

1 2 3 4 5 6 7

for each plage ... ...   .. next plage next b

---

merci

mon idée de

Code:

---

1 2 3 4 5 6

plage = range (" eghgfd") .. .. ..   next plage

---

c est completement bete

Une idée comment recharger plage avec un autre range

salut
je voyais un truc de ce genre

Code:

---

1 2 3 4 5 6 7 8

Dim b as range dim plage as string for p=1 to 7 'pour 7 plages repèrée plage=range("p"& p).value For each b in activesheet.range (plage) If not b.hasformula then b.clearcontents Next b next p

---

tes plage étant sur la plage :mouarf: p1:p7

y aurait il un moyen de faire avec un Do until.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Dim plage As String p1 = "T9: Y10" p2 = "G12: AA263" p3 = "AA13: AA52" p4 = "AA54: AA71" p5 = "AA73: AA79" p6 = "AA81: AA98" p7 = "AA100: AA118" p8 = "AA120: AA128" p9 = "AA130: AA149" p10 = "AA151: AA194" p11 = "AA196: AA234" p12 = "AA236: AA263" For i = 1 To 13 plage = "p" & i For Each b In ActiveSheet.Range(plage) Do Until ActiveSheet.Range(plage) <> Empty If Not b.HasFormula Then b.ClearContents Next b Next i Loop End Sub

---

car ta methode marche pas.

Bonjour,

Essaye comme ceci:

Code:

---

1 2 3 4 5 6

Dim MesPlages As Range Set MesPlages = Range("T9:Y10,G12:AA263,AA13:AA52,AA54:AA71,AA73:AA79," & _ "AA81:AA98,AA100:AA118,AA120:AA128,AA130:AA149," & _ "AA151:AA194,AA196:AA234,AA236:AA263")   MesPlages.SpecialCells(xlCellTypeConstants).ClearContents

---

Cordialement,

Tirex28/