Ajouter une ligne dès que la 25° est remplie
Résolu
jc80
Messages postés
5063
Statut
Membre
-
Frenchie83 Messages postés 2240 Date d'inscription Statut Membre Dernière intervention -
Frenchie83 Messages postés 2240 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Je suis a la recherche d'un code pour ajouter une ligne.J'ai fait un tableau mais je ne
sais pas combien de ligne il me faut.
Début du tableau Colonne de A à N ligne 7.
Je souhaiterais qu'une ligne s'ajoute après avoir écrit sur la 25° ainsi de suite.
Mes lignes comportent des formules et des MFC
Merci pour votre aide
Cordialement
Je suis a la recherche d'un code pour ajouter une ligne.J'ai fait un tableau mais je ne
sais pas combien de ligne il me faut.
Début du tableau Colonne de A à N ligne 7.
Je souhaiterais qu'une ligne s'ajoute après avoir écrit sur la 25° ainsi de suite.
Mes lignes comportent des formules et des MFC
Merci pour votre aide
Cordialement
A voir également:
- Ajouter une ligne dès que la 25° est remplie
- Partager des photos en ligne - Guide
- Aller à la ligne excel - Guide
- Mètre en ligne - Guide
- Ajouter une signature sur word - Guide
- Ajouter une liste déroulante excel - Guide
2 réponses
Bonjour
Voici une proposition, ici c'est vous qui validez l'action d'ajouter une ligne en cliquant sur un bouton. l'action recopie le format et les formules de la ligne précédente.
https://www.cjoint.com/c/EKycZ2Sujbw
Cdlt
Voici une proposition, ici c'est vous qui validez l'action d'ajouter une ligne en cliquant sur un bouton. l'action recopie le format et les formules de la ligne précédente.
https://www.cjoint.com/c/EKycZ2Sujbw
Cdlt
J'ai un bug sur la ligne en gras le code ne fonctionne pas
Sub AjoutLigne()
Application.ScreenUpdating = False
DerLig = [A10000].End(xlUp).Row
Range(Cells(DerLig, 1), Cells(DerLig, 14)).Copy
Range(Cells(DerLig + 1, 1), Cells(DerLig + 1, 14)).Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End Sub
Merci pour l'aide apportée
Cordialement
Je n'arrive pas à reproduire l'erreur, Pourriez-vous déposer sur cjoint.com votre fichier sans données confidentielles?
Quant à votre question: est-il possible de l'avoir en automatique plutôt que bouton? d'accord, mais quel doit-être l'élément déclencheur? sans voir le fichier , difficile de produire quelque chose.
Cdlt