MACRO: Ajout d'une ligne avec mise en forme particulière

Résolu/Fermé
TeddyGalere Messages postés 75 Date d'inscription vendredi 11 mars 2016 Statut Membre Dernière intervention 27 mai 2016 - 21 mars 2016 à 12:40
TeddyGalere Messages postés 75 Date d'inscription vendredi 11 mars 2016 Statut Membre Dernière intervention 27 mai 2016 - 22 mars 2016 à 09:20
Bonjour,

J'ai un tableau (avec une mise en forme pariculière) que je remplis via un userform.

Je souhaiterai cependant savoir comment faire pour insérer une nouvelle ligne, dès que la dernière ligne du tableau est rempli...
A voir également:

2 réponses

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
21 mars 2016 à 13:26
Bonjour,

Vous ajoutez ces lignes comment, et si vous montriez le tableau "qui a une mise en forme particuliere"!!!!!!
0
TeddyGalere Messages postés 75 Date d'inscription vendredi 11 mars 2016 Statut Membre Dernière intervention 27 mai 2016
21 mars 2016 à 13:37
Bah justement je ne sais pas comment les ajouter a la fin.
et rien de bien méchant, juste un remplissage de couleur suivant la colonne...
Mais ca serait plus sur comment ajouter une ligne automatiquement...
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701 > TeddyGalere Messages postés 75 Date d'inscription vendredi 11 mars 2016 Statut Membre Dernière intervention 27 mai 2016
21 mars 2016 à 13:39
Re,

Tout a fait Thierry, mais a quoi ressemble le tableau ??????????????????????
0
TeddyGalere Messages postés 75 Date d'inscription vendredi 11 mars 2016 Statut Membre Dernière intervention 27 mai 2016
21 mars 2016 à 13:40
8 colonnes orange pale
9 violet pale
et 6 bleu turquoise pale !!!!
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701 > TeddyGalere Messages postés 75 Date d'inscription vendredi 11 mars 2016 Statut Membre Dernière intervention 27 mai 2016
21 mars 2016 à 13:51
Re,

ex: copier/coller des cellules derniere ligne sur ligne suivante avec effacement du contenu
adaptez la euille et collonnes
Sub ajout_ligne()
    With Worksheets("feuil1")
        derlig = Range("A" & Rows.Count).End(xlUp).Row
        ligsuiv = derlig + 1
        .Range("A" & derlig & ":H" & derlig).Copy Range("A" & ligsuiv)
        .Range("A" & ligsuiv & ":H" & ligsuiv).ClearContents
    End With
End Sub
0
TeddyGalere Messages postés 75 Date d'inscription vendredi 11 mars 2016 Statut Membre Dernière intervention 27 mai 2016 > f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024
21 mars 2016 à 14:48
Merci pour la réponse...
Par contre je n'arrive pas a insérer la macro dans celle déjà existante...
Ca me met un message d'erreur en mode débogage... :'(

Si tu peux jeter un oeil ;)

http://www.cjoint.com/c/FCvnWOy2v1C
0
eriiic Messages postés 24569 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 28 décembre 2023 7 211
21 mars 2016 à 14:51
Bonjour,

ou bien convertir la plage en Tableau (Insertion / Tableau).
L'ajout d'une donnée sur une nouvelle ligne copiera formules et mises en forme.
eric
0
TeddyGalere Messages postés 75 Date d'inscription vendredi 11 mars 2016 Statut Membre Dernière intervention 27 mai 2016
21 mars 2016 à 15:23
Salut Eriiic !!!

Merci pour ta réponse, mais je ne comprend pas son sens/utilité ;)
0
eriiic Messages postés 24569 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 28 décembre 2023 7 211
21 mars 2016 à 16:35
Il faut tester pour comprendre...
Sélectionne ta plage de données avec les titres, va dans Insertion et clique sur Tableau, ensuite commence une saisie sur la ligne suivante.
Fait une saisie en A4 sur ce fichier : https://www.cjoint.com/c/FCvpILux68Y
0
TeddyGalere Messages postés 75 Date d'inscription vendredi 11 mars 2016 Statut Membre Dernière intervention 27 mai 2016
22 mars 2016 à 09:20
Merci bien pour ta réponse Eric...
En effet, tout aussi efficace et bien plus simple :)
Merci beaucoup !!
0