bouton clear = effacement multicellulaire

[koko_spv89]

Bjr à tous.

J'ai sur une feuille un bouton clear.

Sur une autre feuille j'ai une série de cellule que je voudrais effacer car d'autres calclus les ont rempli. (c pr réintialiser l'application en gros)

Les cellules ont toutes la meme forme de base :
DebitTempoCour()
DebitExtCour()
DebitTempoFCour()

les parenthèses représentant des chiffres allant de 1 à 28.

Est-ce qu'il est possible d'écrire une formul du genre :

Feuil1.range("DebitTempoCour" & "") = Null
Feuil1.range("DebitExtCour" & "") = Null

Merci à vous.
@+

 

[Staple1600]

Re : bouton clear = effacement multicellulaire

Bonjour



Feuil1.range("DebitTempoCour" & "") = vbNullString

ou

Feuil1.range("DebitTempoCour" & "").ClearContents

 

[koko_spv89]

Re : bouton clear = effacement multicellulaire

re,

Ca fonctionne pas ça doit etre à cause des "" dans

Feuil1.Range("DebitTempoCour" & "").ClearContents

c'est pas plutot un % qu'il faut mettre?

du coup j'ai réglé le pb comme ça :

For i = 1 To 28
Feuil1.Range("DebitTempoCour" & i).ClearContents
Next i

@+

 

[koko_spv89]

Re : bouton clear = effacement multicellulaire

re,

par contre petit souci, je fais ça pour d'autres cellules qui sont des cellules fusionnées....

le débloguage me dit qu'il est impoosible de modifier des cellules fusionnées?! comment remédier à ça?😕

merki

EDIT : Pb résolu en mettant = Null à la place de ClearContents

@+