Copie et collage multiple d'une feuille dans le même onglet
ragias96
Messages postés
2
Statut
Membre
-
Gyrus Messages postés 3360 Statut Membre -
Gyrus Messages postés 3360 Statut Membre -
Bonjour
La premiere feuille comporte un tableau et voudrais la copier et la coller plusieurs fois à la suite en fonction d'un nombre.
Si quelqu'un peut m'aider je l'en remercie par avance
La premiere feuille comporte un tableau et voudrais la copier et la coller plusieurs fois à la suite en fonction d'un nombre.
Si quelqu'un peut m'aider je l'en remercie par avance
1 réponse
-
Bonjour,
Voici un exemple de code pour copier n fois la Feuil1, n étant le nombre contenu dans la cellule A1.Sub Copier_Feuille()
Dim N
Dim i As Integer
With Worksheets("Feuil1")
N = .Range("A1").Value
If IsNumeric(N) Then
If N > 0 Then
For i = 1 To N
.Copy After:=Sheets(Sheets.Count)
Next i
End If
End If
End With
End Sub
A+-
- Mais si, cela fonctionne !
Par contre, cela ne correspond peut-être pas à ce que tu cherches à faire.
Si tu te contentes d'un commentaire laconique sans autre explication, c'est sûr que le voyage va être long.
Pour participer activement à une recherche de solution, tu peux joindre un fichier avec un exemple du résultat attendu.1) Tu vas dans https://www.cjoint.com/
2) Tu cliques sur [Parcourir] pour sélectionner ton fichier
3) Tu descends en bas de la page pour cliquer sur [Créer le lien Cjoint]
4) Au bout de quelques secondes la deuxième page s'affiche, avec le lien
en bleu souligné ; clic droit dessus et "Copier l’adresse du lien"
5) Tu reviens dans ta discussion sur commencamarche , et dans ton message de réponse tu fais "Coller".
A+
-
