Bouton de copiage sur cellules voisines

Bonjour à tous,

Je reviens vers vous avec une nouvelle question:

J'essaie de faire un bouton qui recopie des cellules sur ses voisines de droite,( j'ai des cellules fusionnées).

Je peux associer le bouton à une cellule (ex: B4), je voudrais que les cellules copièes soient (B4:F4) et celles recevant la copie soient automatiquement selectionnées et collées (H4:k4) et (M4:P4)....

Est-ce possible ?

Si je veux copier les collones, les cellules fusionnées bloquent, et si je défusionne le menu déroulant à choix amenuisé se dédouble et ne fonctionne plus.

Merci de votre aide.

Bonjour,

Ton fichier n'est pas au bon format.

Il est inutile de faire une sélection pour copier et coller.

Pour copier les valeurs, tu peux utiliser une lige de code de ce style :

    Range("H4:K4").Value = Range("B4:F4").Value
    Range("M4:P4").Value = Range("B4:F4").Value

Pour copier des cellules fusionnées, il faut tester la propriété MergeCell de l'objet Range :

If Range("I4").MergeCells = True then
    ' Code si plage fusionnée
Else
    ' Code si plage non fusionnée
End If

Benead

Super merci Benead, ça marche très bien