Copie automatique dans plusieurs cellules

Audrey -  
 Audrey -
Bonjour,

J'ai fait une petite macro qui me permet de copier (en fait d'incrémenter) un texte saisie dans la cellule A1 dans les cellules B1 à E1.
Je voudrais que quelque soit la cellule sélectionnée en colonne A, ma macro puisse copier son texte sur la même ligne jusqu'en colonne E.
(Pour donner un exemple : Monsieur Dubois a rendez vous tous les jours de la semaine à 16 h. Son nom apparait donc en colonne A qui correspond au lundi, je voudrais que ma macro puisse copier son nom jusqu'à vendredi - sans utiliser la poignée de recopie, mais en cliquant sur un bouton auquel j'affecte ma macro)
Quelqu'un peut-il m'aider ?
Merci infiniment !

Anne



1 réponse

Réponse 1 / 1
ccm81 Messages postés 10909 Date d'inscription   Statut Membre Dernière intervention   2 433
 
Bonjour

Un exemple qui copie la cellule active dans les 4 cellules à droite 

Const nbco = 4

Private Sub btCopier_Click()
Dim nom As String, co As Long
nom = ActiveCell.Value
For co = 1 To nbco
  ActiveCell.Offset(0, co).Value = nom
Next co
End Sub

Cdlmnt
0
ccm81 Messages postés 10909 Date d'inscription   Statut Membre Dernière intervention   2 433
 
Ou en plus simple 

Private Sub btCopier_Click()
  ActiveCell.Offset(0, 1).Resize(1, 4) = ActiveCell.Value
End Sub

Cdlmnt
0
Audrey
 
Merci infiniment, c'est exactement ce qu'il me fallait ! il faut vraiment que je "me mette" au VBA !!!
0

Discussions similaires

Copier un lien instagram
alaurore -
LEFEUVRE -

7 réponses
Retrouver liens copiés sur le téléphone
SAMA -
Peterson -

3 réponses
copie d'un lien dans le navigateur internet
Ulysse Orseau -
diamantnoir -

4 réponses