Ajouter une ligne dès que la 25° est remplie
Résolu/Fermé
jc80
Messages postés
4149
Date d'inscription
mardi 5 février 2013
Statut
Membre
Dernière intervention
25 février 2019
-
Modifié par jc80 le 23/11/2015 à 20:37
Frenchie83 Messages postés 2240 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 11 août 2023 - 26 nov. 2015 à 04:53
Frenchie83 Messages postés 2240 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 11 août 2023 - 26 nov. 2015 à 04:53
A voir également:
- Ajouter une ligne dès que la 25° est remplie
- Aller à la ligne excel - Guide
- Hors ligne instagram - Guide
- Vente en ligne particulier - Guide
- Ajouter une adresse mail - Guide
- Partage de photos en ligne - Guide
2 réponses
Frenchie83
Messages postés
2240
Date d'inscription
lundi 6 mai 2013
Statut
Membre
Dernière intervention
11 août 2023
337
24 nov. 2015 à 03:54
24 nov. 2015 à 03:54
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
jc80
Messages postés
4149
Date d'inscription
mardi 5 février 2013
Statut
Membre
Dernière intervention
25 février 2019
1 422
24 nov. 2015 à 09:52
24 nov. 2015 à 09:52
Bonjour
Merci pour ta réponse qui est bien et que je garde en réserve.
Par contre est-il possible de l'avoir en automatique plutôt que bouton?
Cordialement
Merci pour ta réponse qui est bien et que je garde en réserve.
Par contre est-il possible de l'avoir en automatique plutôt que bouton?
Cordialement
25 nov. 2015 à 16:15
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
26 nov. 2015 à 04:53
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