Recopier du texte avec une macro et bouton ..?

Résolu
Bonjour à tous, je suis nouveau sur ce forum et je remercie d'avance ceux qui pourront m'aider.
Voila, j'explique mon problème, je voudrais grâce à une macro qui s'éxécute avec un bouton contrôle ActiveX, afficher du texte (inscrit préalablement dans une cellule précise) dans des cellules que je sélectionne avec le clic gauche.
JE sais je peux faire un clic gauche en bas de la cellule et la copier ou je veux mais j'ai vraiment besoin de faire une macro avec un bouton, car elle aura pour but d'être active dans un planning que j'essaie de créer.
Exemple : j'ai en case A1 un texte "chantier X"
Je sélectionne les cellules, par exemple, B1:B5 et C2:C7, je clique sur le bouton pour exécuter la macro et le texte s'affiche dans les cellules que j'ai sélectionné ! Voila ce que je voudrais !
Merci encore pour votre aide Maxime

3 réponses

  1. Bonjour,
    Etonnant d'avoir 10 fois le même texte [chantier X] dans la plage de cellule que vous mentionnez.... !
    Est-ce vraiment cela que vous voulez..... ?

    0
    1. Merci de votre intérêt pour mon sujet.
      En fait dans mon classeur excel, je travaille avec 52 onglet (le nombre de semaines), donc une feuille représente une semaine. Dans ce classeur, j'ai dans la première colonne, le nom des employées et dans la première ligne la date du jour. C'est pour cela que j'ai besoin de recopier dans beaucoup de cellule le chantier x car il peut durer plusieurs semaines.
      Après je peut vous envoyer le projet.
      Cordialement
      0
  2. Bonjour,
    Merci pour l'information.
    Ce qui veut dire que vous devez avoir autant de boutons que de chantiers... !
    Je pense qu'il faut revoir votre application par exemple avec la date de début et de fin du chantier et utiliser un code pour le nom du chantier qui sera utilisée par une fonction dans le planning.

    0
    1. Je pensais une cellule avec une liste déroulante (donc plusieurs choix) et afficher ce chantier dans les cellules que je sélectionne voici la macro que j'ai un peu prés réussi à pondre ! (problème, je n'arrive pas à lier une cellule avec ) :

      Private Sub CommandButton4_Click()

      For Each i In Selection
      If i.Column > 2 And i.Row > 3 Then
      col = i.Column Mod 3
      i.Font.Name = "windgins"
      i.Value = "chantier x"
      i.Interior.ColorIndex = 4
      i.Borders(xlDiagonalUp).LineStyle = xlNone
      End If
      Next i

      End Sub
      0
  3. Bonjour,
    Dans ce cas, par exemple la liste déroulante en [A1] et votre procédure comme suit :
    Private Sub CommandButton4_Click()
    nomchant = Range("A1").Value
     For Each i In Selection
       If i.Column > 2 And i.Row > 3 Then
         col = i.Column Mod 3
         i.Font.Name = "windgins"
         i.Value = nomchant
         i.Interior.ColorIndex = 4
         i.Borders(xlDiagonalUp).LineStyle = xlNone
       End If
      Next i
    End Sub

    0
    1. C'est juste majestueux depuis le temps que je galère !
      Encore merci pour ton travail et ton sérieux !
      0
    2. Bonjour,
      Merci, de rien.
      Au passage vous pourriez aussi attribuer une couleur de fond selon le nom du chantier ....!
      Salutations.
      Le Pingou
      0