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

Question

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

ozone_ · Answer

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 !

ozone_ · Answer

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 !

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

2 réponses

Discussions similaires

Newsletters