Cells(I, 1).ClearContents .....

gilbert_RGI

XLDnaute Barbatruc

• 14 Novembre 2009

• #2

Re : Cells(I, 1).ClearContents .....

Evelynetfrancois à dit:

bonjour à tous
j ai un petit soucis de syntaxe????

Dans une de mes macro, j ai ces deux lignes qui se suivent

Cells(I, 1).ClearContents
Cells(I, 2).ClearContents

Ma Q
Est il possible pour être plus “” propre “” de regrouper en une seule commande ces deux lignes ?

merci et bonne journée a tous

E et F

Cliquez pour agrandir...

bonjour

Comme ceci peut-être

Code:

Sub test()
i = 1
    For j = 1 To 2
        With Cells(i, j)
            .ClearContents
        End With
    Next
End Sub

🙄

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 14 Novembre 2009

• #3

Re : Cells(I, 1).ClearContents .....

Bonjour à tous

une autre solution :

Code:

 Cells(I, 1).Resize(, 2).ClearContents

bonne journée
@+

 

Vote positif 0 Vote négatif

E

Evelynetfrancois

XLDnaute Impliqué

• 14 Novembre 2009

• #4

Re : Cells(I, 1).ClearContents .....

Bonjour
gilbert_RGI , Jean-Marcel

J'avais bien tenté
Cells(I, 1).Cells(I, 2).ClearContents
et
Cells((I, 1).Cells(I, 2)).ClearContents
sans résultat.......

Mais la proposition de Jean-Marcel
Range(cells(I,1),cells(I,2)).clearcontents
marche et me convient parfaitement , j'adopte ……
je vous REMERCIE sincèrement tous les deux et vous souhaite une bonne fin de semaine
Au plaisir de vous lire
E et F

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 14 Novembre 2009

• #5

Re : Cells(I, 1).ClearContents .....

Bonjour à tous,

Tu peux essayer aussi :

Code:

Union(Cells(i, 1), Cells(i, 2)).ClearContents

A+ à tous

 

Vote positif 0 Vote négatif

F

Fo_rum

XLDnaute Accro

• 14 Novembre 2009

• #6

Re : Cells(I, 1).ClearContents .....

Salut

ou encore :

Range("A" & I & ":B" & I).ClearContents

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

E

Evelynetfrancois

XLDnaute Impliqué

• 15 Novembre 2009

• #7

Re : Cells(I, 1).ClearContents .....

Oups , je vous pris de m'excuser , mais je n'avais pas vu toutes les réponses proposées..........merci !!!!
J'ai bien fait de revenir aux nouvelles !!!

Comme je souhaite (maintenant) supprimer 3 ranges , la version proposée par JCGL
Union(Cells(i, 1),Cells(i, 2), Cells(i, 3)).Clear
me va à merveilles , ce qui n'enlève pas l interet des autres !.
merci à tous
bon dimanche
E et F

 

Vote positif 0 Vote négatif

E

Evelynetfrancois

XLDnaute Impliqué

• 16 Novembre 2009

• #8

Re : Cells(I, 1).ClearContents .....

Mais oui Jean-Marcel après essais de ta proposition
ça va impeccable!!! Super
Bonne journée à toi et encore merci pour toutes vos aides si précieuses
E et F

 

Vote positif 0 Vote négatif