Recopier du texte avec une macro et bouton ..?

Résolu/Fermé

maxime2612 Messages postés 16 Date d'inscription dimanche 7 avril 2013 Statut Membre Dernière intervention 1 décembre 2013 - 7 avril 2013 à 13:48
Le Pingou Messages postés 12211 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 30 novembre 2024 - 8 avril 2013 à 22:13

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

A voir également:

Recopier du texte avec une macro et bouton ..?
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Macro word - Guide
Excel cellule couleur si condition texte - Guide
Transcription audio en texte word gratuit - Guide
Texte a recopier - Guide

3 réponses

Réponse 1 / 3

Le Pingou Messages postés 12211 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 30 novembre 2024 1 452
7 avril 2013 à 22:28

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..... ?

maxime2612 Messages postés 16 Date d'inscription dimanche 7 avril 2013 Statut Membre Dernière intervention 1 décembre 2013
8 avril 2013 à 07:32

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

Réponse 2 / 3

Le Pingou Messages postés 12211 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 30 novembre 2024 1 452
8 avril 2013 à 09:41

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.

maxime2612 Messages postés 16 Date d'inscription dimanche 7 avril 2013 Statut Membre Dernière intervention 1 décembre 2013
8 avril 2013 à 15:46

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

Réponse 3 / 3

Le Pingou Messages postés 12211 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 30 novembre 2024 1 452
8 avril 2013 à 18:04

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

maxime2612 Messages postés 16 Date d'inscription dimanche 7 avril 2013 Statut Membre Dernière intervention 1 décembre 2013
8 avril 2013 à 18:33

C'est juste majestueux depuis le temps que je galère !
Encore merci pour ton travail et ton sérieux !

Le Pingou Messages postés 12211 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 30 novembre 2024 1 452
Modifié par Le Pingou le 8/04/2013 à 22:14

Bonjour,
Merci, de rien.
Au passage vous pourriez aussi attribuer une couleur de fond selon le nom du chantier ....!
Salutations.
Le Pingou

Discussions similaires

je veut créer des codes

Formule Excel : "SI" une cellule contient un mot, alors ?

avantages et inconvénients du téléphone portable

copie de texte

Excel si cellule contient texte alors...