Une macro pour coller des cellules prédéfinies ?

Bonjour Forum !

J’essaie de faire un truc qui dépasse mes capacités en VBA : dans une feuille de calcul, je voudrais que, en cliquant sur un bouton, Excel insère automatiquement à partir de la colonne O dans la ligne de la cellule active, 12 cellules (valeur, formules, format et MFC) dont le modèle se trouve dans une ligne cachée (voir fichier joint).

Autrement dit :

  • admettons que la cellule active est sur la ligne 18
  • je clique sur le bouton vert « 4 »
  • automatiquement, Excel colle les cellules O4 à Z4 dans les cellules O18 à Z18.
  • (si j’avais cliqué sur le bouton vert « 5 », Excel aurait copié les cellules O5 à Z5 au même emplacement)

Je ne sais pas comment m’y prendre, mais peut-être un membre du Forum pourra m’aider ?

Merci !!!

40exemple.zip (8.40 Ko)

Bonsoir,

Un essai en pièce jointe.

Je vous laisse vérifier.

Cdlt,

Darzou

Merci c'est super !

Juste un truc : ce n'est pas nécessaire que la cellule active soit dans la colonne O pour autoriser le collage.

Il suffirait que le collage se fasse dans les bonnes colonnes de la ligne active, mais je ne sais pas modifier le code dans ce sens...

Bonjour à tous,

Tu peux modifier le code par celui-ci,

curieusement, chez moi je suis obligé d'écrire "Bouton2" au lieu de "Bt2"

Sub Bouton2()
    If Selection.Count > 1 Then Exit Sub
        Range("o2:z2").Copy Destination:=Cells(ActiveCell.Row, "o")
End Sub

pareil pour les autres

édit: placer les codes dans un module

Bonne journée

Claude

C'est parfait, merci beaucoup !!!

Rechercher des sujets similaires à "macro coller predefinies"