Remise a zero les cellules fusionnées

Ilino

XLDnaute Barbatruc
Bonjour Forum
je souhaite effacer les valeurs des cellules fusionnées ( de 2 colonnes) avec ce code mais ca bug ???
Code:
Private Sub CommandButton1_Click()
'
If MsgBox("Toutes les données de la colonne Italie et France vont être effacées ! Êtes-vous sûr(e) de vouloir continuer ?", _
    vbYesNo, "Attention !") = vbYes Then Range("E3: e18;H3:h18").ClearContents

Range("E3").Select 'la cellule E3 est sélectionnée

End Sub
 

Pièces jointes

  • raz cell fusionnées.xlsm
    18.5 KB · Affichages: 15

xhudi69

XLDnaute Accro
Re : Remise a zero les cellules fusionnées

Bonjour Ilino, le Forum

Essaies ceci:
Code:
If MsgBox("Toutes les données de la colonne Italie et France vont être effacées ! Êtes-vous sûr(e) de vouloir continuer ?", _
    vbYesNo, "Attention !") = vbYes Then Range("E3:H18").Value = ""

@+ :cool:
 

camarchepas

XLDnaute Barbatruc
Re : Remise a zero les cellules fusionnées

bonjour Ilino,

comme ceci éventuellement,

@xhudi69 : Presque un copier coller par télépathie .....

Code:
Private Sub CommandButton1_Click()
'
If MsgBox("Toutes les données de la colonne Italie et France vont être effacées ! Êtes-vous sûr(e) de vouloir continuer ?",vbYesNo, "Attention !") = vbYes Then Range("E3:E18", "H3:H18") = ""

Range("E3").Select 'la cellule E3 est sélectionnée

End Sub
 

Discussions similaires

Réponses
10
Affichages
957

Statistiques des forums

Discussions
311 733
Messages
2 082 019
Membres
101 872
dernier inscrit
Colin T