Discussion :

[tomy7]

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 :

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

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

[Daranc]

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 :

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

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

[tomy7]

faudrait que je rajoute peut etre

Code :

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

1
2
3
4
5
6
7
for each plage
...
...
 
..
next plage
next b

merci

[tomy7]

mon idée de

Code :

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

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

[Daranc]

salut
je voyais un truc de ce genre

Code :

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

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 p1:p7

[tomy7]

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

Code :

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

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.

[tirex28]

Bonjour,

Essaye comme ceci:

Code :

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

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/