[VB] Test de fusion de cellule

[Résolu/Fermé]
Signaler
-
 alphonse -
Bonjour,

A1 est une date de début , A2 une date de fin.
Parfois les utilisateurs fusionnent les 2 cellules et mettent la date de fin et de début dans la même cellule fusionné.

Donc je fais un script vba du genre :
Private Sub CommandButton1_Click()

Dim mmchaine As String
Dim Madate As String

If ActiveCell.MergeCells() Then

machaine = Right(Cells(1, 1).Value, 10)
machaine = Madate
Cells(2, 1) = machaine
Else
Madate = Cells(1, 2)
Cells(2, 1) = Madate
End If
End Sub
Mais la syntaxe est bonne ? Pouvez vous m'éclairer ?

1 réponse

Bon, au final je teste simplement la cellule 1,1 pour voir si elle est supérieure à 10 caractères... Au lieu de vérifier si elle est fusionné...
C'est plus simple.