Effacer dans le désordre

[guy72]

Bonjour,

Ce code permet de supprimer les points de B19 à B10
n = Application.CountA([B10:B19])
Range("B10:B19")(n, 1).ClearContents
En appuyant sur le bouton (-1)




Comment faire pour enlever les points dans l'ordre suivant ?

B16,B17,B11,B18,B10,B19

J'ai essayé les ;-,-(): ....etc
n = Application.CountA([B16,B17,B11,B18,B10,B19])
Range("B16", "B17", "B11", "B18", "B10", "B19")(n, 1).ClearContents

Et bien d'autres choses
Mais je n'ai pas trouvé
Marci de votre aide
Cordialement
Giuy

 

[pierrejean]

Re : Effacer dans le désordre

Bonjour guy72

Vois si cela te convient

Msgbox("voir") a effacer apres avoir vu l'ordre dans lequel se fait l'effacement

 

[Banzai64]

Re : Effacer dans le désordre

Bonjour guy72
Bonjour pierrejean

Mon étude

 

[guy72]

Re : Effacer dans le désordre

Bonjour guy72

Vois si cela te convient

Msgbox("voir") a effacer apres avoir vu l'ordre dans lequel se fait l'effacement

Bonjour pierrejean.
Ton exemple est bon, mais il efface tout en même temps alors que dans l'exemple, ça s'éfface un par un comme la réponse de "Banzai64".
Merci quand même de ton aide.
Cordialement

 

[guy72]

Re : Effacer dans le désordre

Bonjour guy72
Bonjour pierrejean

Mon étude

Bonjour à vous,
Ok parfait, c'est tout à fait ça.
Merci de ton aide
Cordialement
guy