VBA - Copier une ligne et l'ajouter à la suite du tableau

Résolu
howiz Messages postés 21 Statut Membre -  
ozone_ Messages postés 1823 Statut Membre -
Bonjour,

Je cherche à ajouter une ligne à la suite de mon tableau ayant les mêmes caractéristiques que la précédente. (donc de copier la dernière ligne et de l'ajouter en dessous d'elle)
Cette action serait déclenché suite au click sur un bouton ("ajouter ligne").

Merci d'avance pour votre aide

Howiz
A voir également:

2 réponses

Réponse 1 / 2
ozone_ Messages postés 1823 Statut Membre 478
 
Alors voilà le classeur avec la macro :

https://www.cjoint.com/c/EDiuNSSg3qq

Et le code de la macro si ça peut servir aux autres vu que le lien ne va pas durée infiniment : 
Sub copie()

' Déclaration des variables
Dim i As Integer
Dim arret as Boolean

' Le tableau commence à la ligne 7 donc i = 7
i = 7

    Do
        ' Dès qu'une cellule est vide, le code s'arrête
        If (ActiveSheet.Range("B" & i)) = "" Then
            arret = True
        Else
            ' Sinon on incrémente et ça boucle
            i = i + 5
        End If
    Loop While arret = False
    
    ' Dès que l'on sort de la boucle, on copie le tableau du dessus pour le mettre en dessous
    Range("B" & i - 5 & ":L" & i - 1).Copy
    Range("B" & i).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

End Sub


De plus j'ai modifié tes formules dans B8, B10 et B11 pour insérer des $ avant les cellules sinon à la copie ça n'allais pas !

1f u c4n r34d th1s u r34lly n33d t0 g37 l41d !
1
Réponse 2 / 2
ozone_ Messages postés 1823 Statut Membre 478
 
Salut,

Ce genre de macro doit s'adapter au tableau et pour ne pas taper du code dans le vide, peux-tu nous envoyer ton fichier (sans données ou en les changeant si elle sont perso) sur https://www.cjoint.com/

Merci !
0
howiz Messages postés 21 Statut Membre
 
https://www.cjoint.com/?0DiuvkOIwm2

Merci d'avance
0