Remise a zero les cellules fusionnées

[Ilino]

Bonjour Forum
je souhaite effacer les valeurs des cellules fusionnées ( de 2 colonnes) avec ce code mais ca bug ???

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

 

[xhudi69]

Re : Remise a zero les cellules fusionnées

Bonjour Ilino, le Forum

Essaies ceci:

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 = ""

@+ 😎

 

[Ilino]

Re : Remise a zero les cellules fusionnées

Bonjour xhudi69
Grazie.... pblm résolut
A+

 

[camarchepas]

Re : Remise a zero les cellules fusionnées

bonjour Ilino,

comme ceci éventuellement,

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

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