cellule fusionner

rudy · 17/08/2005, 14h40

bonjour a tous , imaginer le code suivant
Private Sub CommandButton1_Click()
Dim Reponse
Reponse = MsgBox('Confirmez vous votre intention de réinitialiser ZoneVerte et ZoneBleu ?', vbYesNoCancel)
If Reponse = vbYes Then
Range('E4:E6').ClearContents
Range('M4:M6').ClearContents
Range('E17:G36').ClearContents
Range('M17:O36').ClearContents
End If
End Sub

pour info c est omicron qui me la ecrit et sa fonctionne impect mais quand je rajoute par exemple
Range('B4:B6').ClearContents
sa fonctionne pas car B C D sont fusionner !!

quelqu un a une reponse ? il y a la feuille excel avec l exemple si dessu nommé 'initialisation'
merci d avance

Minick · 17/08/2005, 14h45

Salut,

Si B, C, D sont fusionnées il faut indiquer toute la plage fusionnées

Code:

Range('B4:D6').ClearContents

@+

17/08/2005, 14h40	#1 (permalink)
rudy XLDnaute Occasionel Date d'inscription: juillet 2005 Messages: 197	cellule fusionner bonjour a tous , imaginer le code suivant Private Sub CommandButton1_Click() Dim Reponse Reponse = MsgBox('Confirmez vous votre intention de réinitialiser ZoneVerte et ZoneBleu ?', vbYesNoCancel) If Reponse = vbYes Then Range('E4:E6').ClearContents Range('M4:M6').ClearContents Range('E17:G36').ClearContents Range('M17:O36').ClearContents End If End Sub pour info c est omicron qui me la ecrit et sa fonctionne impect mais quand je rajoute par exemple Range('B4:B6').ClearContents sa fonctionne pas car B C D sont fusionner !! quelqu un a une reponse ? il y a la feuille excel avec l exemple si dessu nommé 'initialisation' merci d avance

17/08/2005, 14h45	#2 (permalink)
Minick XLDnaute Occasionel Date d'inscription: février 2005 Messages: 280	Re:cellule fusionner Salut, Si B, C, D sont fusionnées il faut indiquer toute la plage fusionnées Code: Range('B4:D6').ClearContents @+

ANNONCES

Outils de la discussion
Afficher une version imprimable Envoyer un lien vers cette page par email