Recopier du texte avec une macro et bouton ..?
Résolu
maxime2612
Messages postés
17
Statut
Membre
-
Le Pingou Messages postés 12653 Date d'inscription Statut Contributeur Dernière intervention -
Le Pingou Messages postés 12653 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
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
- Diagnostic bouton photo - Accueil - Outils
- Transcription audio en texte word gratuit - Guide
- Excel cellule couleur si condition texte - Guide
- Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
3 réponses
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..... ?
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..... ?
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.
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.
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
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
Bonjour,
Dans ce cas, par exemple la liste déroulante en [A1] et votre procédure comme suit :
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
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