VBA - Copier une ligne et l'ajouter à la suite du tableau
Résolu
howiz
Messages postés
20
Date d'inscription
Statut
Membre
Dernière intervention
-
ozone_ Messages postés 1518 Date d'inscription Statut Membre Dernière intervention -
ozone_ Messages postés 1518 Date d'inscription Statut Membre Dernière intervention -
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
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:
- VBA - Copier une ligne et l'ajouter à la suite du tableau
- Tableau word - Guide
- Tableau ascii - Guide
- Aller à la ligne excel - Guide
- Partager photos en ligne - Guide
- Comment copier une vidéo youtube - Guide
2 réponses
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 :
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 !
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 !
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 !
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 !