Répéter lignes selon nombre précis
Résolu/Fermé
A voir également:
- Répéter lignes selon nombre précis
- Nombre facile - Télécharger - Outils professionnels
- Excel ligne à répéter en haut grisé ✓ - Forum Word
- Le nombre de tentatives de déverrouillage incorrectes est trop élevé samsung ✓ - Forum Samsung
- Supprimer espace nombre excel ✓ - Forum Excel
- En raison d'un nombre important d'échec de connexion snapchat - Forum Snapchat
4 réponses
Gord21
Messages postés
918
Date d'inscription
samedi 21 novembre 2009
Statut
Membre
Dernière intervention
20 mars 2013
289
2 déc. 2009 à 12:47
2 déc. 2009 à 12:47
Bonjour,
Dans le principe, c'est possible mais j'ai deux questions.
Est-ce que toutes tes cellules G sont remplies ou est-ce qu'il peut y avoir G5=10, G6 vide, G7=15 ?
J'imagine que suivant ton exemple, tu copies 29 fois la ligne 1 entre les lignes 1 et 2, puis 19 lignes entre les lignes 31 et 32 (lignes 2 et 3 d'origine), ...
Dans le principe, c'est possible mais j'ai deux questions.
Est-ce que toutes tes cellules G sont remplies ou est-ce qu'il peut y avoir G5=10, G6 vide, G7=15 ?
J'imagine que suivant ton exemple, tu copies 29 fois la ligne 1 entre les lignes 1 et 2, puis 19 lignes entre les lignes 31 et 32 (lignes 2 et 3 d'origine), ...
Bonjour et merci d'avoir répondu.
Je confirme que toutes les lignes de ma colonne G sont remplies, certaines sont avec le nombre 0.
Sinon c'est ça, je voulais copier 29 fois la ligne 1 entre les lignes 1 et 2, puis 19 lignes entre les lignes 31 et 32 (lignes 2 et 3 d'origine), ...
Pour le cas sur lequel je travaille, je l'ai fait manuellement car je devais le terminer hier, donc si tu n'as pas le temps de te pencher sur le problème ce n'est pas grave, mais si tu as la solution rapidement, ça m'intéresse de la connaître pour une prochaine fois
Merci
Je confirme que toutes les lignes de ma colonne G sont remplies, certaines sont avec le nombre 0.
Sinon c'est ça, je voulais copier 29 fois la ligne 1 entre les lignes 1 et 2, puis 19 lignes entre les lignes 31 et 32 (lignes 2 et 3 d'origine), ...
Pour le cas sur lequel je travaille, je l'ai fait manuellement car je devais le terminer hier, donc si tu n'as pas le temps de te pencher sur le problème ce n'est pas grave, mais si tu as la solution rapidement, ça m'intéresse de la connaître pour une prochaine fois
Merci
Gord21
Messages postés
918
Date d'inscription
samedi 21 novembre 2009
Statut
Membre
Dernière intervention
20 mars 2013
289
2 déc. 2009 à 13:16
2 déc. 2009 à 13:16
Voici le texte de la macro
Sub Copies_lignes()
'
Dim nb_copies As Integer
Dim ligne_traitee As Integer
'
ligne_traitee = 1
'
While Range("G" & ligne_traitee).Value <> ""
nb_copies = Range("G" & ligne_traitee).Value
If nb_copies > 1 Then
Rows(ligne_traitee).Copy
Rows((ligne_traitee + 1) & ":" & (ligne_traitee + nb_copies - 1)).Insert Shift:=xlDown
ligne_traitee = ligne_traitee + nb_copies
Else
ligne_traitee = ligne_traitee + 1
End If
Wend
Application.CutCopyMode = False
End Sub
Sub Copies_lignes()
'
Dim nb_copies As Integer
Dim ligne_traitee As Integer
'
ligne_traitee = 1
'
While Range("G" & ligne_traitee).Value <> ""
nb_copies = Range("G" & ligne_traitee).Value
If nb_copies > 1 Then
Rows(ligne_traitee).Copy
Rows((ligne_traitee + 1) & ":" & (ligne_traitee + nb_copies - 1)).Insert Shift:=xlDown
ligne_traitee = ligne_traitee + nb_copies
Else
ligne_traitee = ligne_traitee + 1
End If
Wend
Application.CutCopyMode = False
End Sub
