Microsoft 365 Dupliquer ensemble de lignes et les coller à la suite

3dbillard · 24 Mai 2022

Bonjour,
Je viens soliciter de l'aide car je n'ai pas d'idée sur comment faire.
Je voudrais me faire un petit tableau de suivi de mes dossiers j'ai donc fait un ensemble de 3 lignes à remplir (pour l'instant c'est juste un début) je souhaite pouvoir avoir un bouton qui m'ajoute cet ensemble de ligne à la suite en sautant une ligne à chaque fois et en le rendant vide sur les parties à saisir.
Dans mon fichier exemple ce sont les lignes 3/4 et 5 que je souhaite dupliquer à la suite en sautant une ligne et ce à chaque fois que je clique sur le bouton ajouter un dossier.
Bien évidement il faut que ce dossier soit vide pour pouvoir y saisir mes infos par contre je vais y rajouter des mises en formes conditionnelles etc... donc juste vide de données.

J'espère avoir été clair je suis vraiment rouillé dans les explications Excel.

Bonne soirée et merci de votre attention

sylvanu · 24 Mai 2022

Bonjour 3dbillard,
Un essai en PJ avec :

VB:

Sub Ajoute()
    Dim Ligne%
    Application.ScreenUpdating = False
    Ligne = 7
    While Cells(Ligne, "A") <> ""
        Ligne = Ligne + 4
    Wend
    Rows("3:5").Copy
    Rows(Ligne & ":" & Ligne + 3).Select
    ActiveSheet.Paste
    Rows(Ligne + 2 & ":" & Ligne + 3).ClearContents
    Cells(Ligne + 4).Select
End Sub

Le problème est qu'on ne peut détecter la première ligne vide puisqu'on pourrait avoir des dossiers vides. Donc je me balade de 4 lignes en 4 lignes jusqu'à que je ne trouve pas "Client".

3dbillard · 24 Mai 2022

sylvanu à dit:
Bonjour 3dbillard,
Un essai en PJ avec :

VB:

Sub Ajoute() Dim Ligne% Application.ScreenUpdating = False Ligne = 7 While Cells(Ligne, "A") <> "" Ligne = Ligne + 4 Wend Rows("3:5").Copy Rows(Ligne & ":" & Ligne + 3).Select ActiveSheet.Paste Rows(Ligne + 2 & ":" & Ligne + 3).ClearContents Cells(Ligne + 4).Select End Sub

Le problème est qu'on ne peut détecter la première ligne vide puisqu'on pourrait avoir des dossiers vides. Donc je me balade de 4 lignes en 4 lignes jusqu'à que je ne trouve pas "Client".

Bonjour,
Merci beaucoup c'est exactement ce dont j'ai besoin par contre le clear content n'efface qu'une des lignes de saisie, à savoir la deuxième. Je vois que c'est dans le ClearContent que ça se passe j'ai donc fais un essai en modifiant Rows(Ligne+2...) en +1 et ça fonctionne

Merci pour tout et pour moi le sujet est traité

Bonne journée

sylvanu · 24 Mai 2022

Re,
Exact, j'ai oublié la ligne vide.

3dbillard · 24 Mai 2022

sylvanu à dit:
Re,
Exact, j'ai oublié la ligne vide.

Aucun soucis pour moi c'était parfait même si je suis clairement incapable de générer un code comme ça je suis malgré tout capable de le corriger si ce n'est pas trop complexe.

Merci pour tout en tous cas

Microsoft 365 Dupliquer ensemble de lignes et les coller à la suite

3dbillard

XLDnaute Junior

Pièces jointes

sylvanu

XLDnaute Barbatruc

Pièces jointes

3dbillard

XLDnaute Junior

sylvanu

XLDnaute Barbatruc

3dbillard

XLDnaute Junior

Discussions similaires