Copier/Coller un ensemble de cellule automatiquement
tutur09
Messages postés
25
Statut
Membre
-
tutur09 Messages postés 25 Statut Membre -
tutur09 Messages postés 25 Statut Membre -
Bonjour,
Je cherche à copier/coller automatiquement un ensemble de cellules en fonction d'un critère.
Par exemple, si en A1 j'ai 2 (ou 4), alors il faudra copier/coller l'ensemble des cellules (A2 à E22) 2 (ou 4) fois à la suite. Je ne sais pas si ma question est très claire..
Est-ce possible de réaliser cette action sans Macro ou bien n'y a t-il aucun autre moyen ?
Merci d'avance,
Cordialement,
Je cherche à copier/coller automatiquement un ensemble de cellules en fonction d'un critère.
Par exemple, si en A1 j'ai 2 (ou 4), alors il faudra copier/coller l'ensemble des cellules (A2 à E22) 2 (ou 4) fois à la suite. Je ne sais pas si ma question est très claire..
Est-ce possible de réaliser cette action sans Macro ou bien n'y a t-il aucun autre moyen ?
Merci d'avance,
Cordialement,
A voir également:
- Copier/Coller un ensemble de cellule automatiquement
- Retrouver un copier-coller android - Guide
- Copier coller pdf - Guide
- Style d'écriture a copier coller - Guide
- Historique copier coller windows - Accueil - Informatique
- Symbole clavier copier coller - Guide
2 réponses
Bonjour,
Tout dépend de ce que tu entends par "2 fois à la suite".
Est-ce que le résultat est A2:J22 ou A2:E43 ?
A+
Tout dépend de ce que tu entends par "2 fois à la suite".
Est-ce que le résultat est A2:J22 ou A2:E43 ?
A+
Bonjour,
Avec un bouton de commande ActiveX :
A+
Avec un bouton de commande ActiveX :
Private Sub CommandButton1_Click()
If Range("A1").Value <> "" Then
For i = 1 To Range("A1").Value
Range("A2:E22").Copy Range("A2").Offset(i * 22)
Next i
End If
End Sub
A+
Bonsoir,
Merci pour votre réponse !
J'ai en effet utilisé votre code et cela fonctionne bien. J'ai de plus réalisé un autre code afin d'ajouter à l'aide d'un autre bouton une nouvelle copie :
Private Sub CommandButton2_Click()
If Range("B1").Value <> "" Then
For j = 1 To Range("A2").Value
Rang("A2:E22").Copy Range("A2").Offset(Range("A1").Value*20).Offset(j*22)
Next j
End If
End Sub
J'aimerais pouvoir ajouter une copie à la suite des copies déjà effectuées à chaque fois que je clique sur mon second bouton. En utilisant un NbClick par exemple afin d'incrémenter un compteur à chaque ajout de copie pour que les nouvelles copies viennent toujours à la suite. Cela est-il possible ? Je ne sais pas si j'ai été très clair...
Merci d'avance,
Cordialement,
Merci pour votre réponse !
J'ai en effet utilisé votre code et cela fonctionne bien. J'ai de plus réalisé un autre code afin d'ajouter à l'aide d'un autre bouton une nouvelle copie :
Private Sub CommandButton2_Click()
If Range("B1").Value <> "" Then
For j = 1 To Range("A2").Value
Rang("A2:E22").Copy Range("A2").Offset(Range("A1").Value*20).Offset(j*22)
Next j
End If
End Sub
J'aimerais pouvoir ajouter une copie à la suite des copies déjà effectuées à chaque fois que je clique sur mon second bouton. En utilisant un NbClick par exemple afin d'incrémenter un compteur à chaque ajout de copie pour que les nouvelles copies viennent toujours à la suite. Cela est-il possible ? Je ne sais pas si j'ai été très clair...
Merci d'avance,
Cordialement,
La procédure se lance lors d'un double clic sur la cellule A1.
A+
Merci pour votre réponse,
J'ai quelques difficultés à placer le code dans le module de la feuille. On me demande de créer une Macro lorsque je veux exécuter ce code. Mes connaissances en VBA sont très réduites. Comment dois-je faire pour lacer cette procédure ?
Merci
A+
Une dernière question, imaginons que je veuille lancer cette même procédure mais en utilisant un bouton à côté de la case et non pas un double click sur la case. Auriez-vous une idée ?
Merci d'avance,