Recopier du texte avec une macro et bouton ..?

Résolu
maxime2612 Messages postés 17 Statut Membre -  
Le Pingou Messages postés 12276 Date d'inscription   Statut Contributeur Dernière intervention   -
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. Le Pingou Messages postés 12276 Date d'inscription   Statut Contributeur Dernière intervention   1 478
     
    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. maxime2612 Messages postés 17 Statut Membre
       
      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. Le Pingou Messages postés 12276 Date d'inscription   Statut Contributeur Dernière intervention   1 478
     
    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. maxime2612 Messages postés 17 Statut Membre
       
      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. Le Pingou Messages postés 12276 Date d'inscription   Statut Contributeur Dernière intervention   1 478
     
    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. maxime2612 Messages postés 17 Statut Membre
       
      C'est juste majestueux depuis le temps que je galère !
      Encore merci pour ton travail et ton sérieux !
      0
    2. Le Pingou Messages postés 12276 Date d'inscription   Statut Contributeur Dernière intervention   1 478
       
      Bonjour,
      Merci, de rien.
      Au passage vous pourriez aussi attribuer une couleur de fond selon le nom du chantier ....!
      Salutations.
      Le Pingou
      0