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

Résolu
TeddyGalere Messages postés 75 Date d'inscription   Statut Membre Dernière intervention   -  
TeddyGalere Messages postés 75 Date d'inscription   Statut Membre Dernière intervention   -
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 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
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   Statut Membre Dernière intervention  
 
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 17277 Date d'inscription   Statut Membre Dernière intervention   1 713 > TeddyGalere Messages postés 75 Date d'inscription   Statut Membre Dernière intervention  
 
Re,

Tout a fait Thierry, mais a quoi ressemble le tableau ??????????????????????
0
TeddyGalere Messages postés 75 Date d'inscription   Statut Membre Dernière intervention  
 
8 colonnes orange pale
9 violet pale
et 6 bleu turquoise pale !!!!
0
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713 > TeddyGalere Messages postés 75 Date d'inscription   Statut Membre Dernière intervention  
 
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   Statut Membre Dernière intervention   > f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention  
 
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 24603 Date d'inscription   Statut Contributeur Dernière intervention   7 276
 
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   Statut Membre Dernière intervention  
 
Salut Eriiic !!!

Merci pour ta réponse, mais je ne comprend pas son sens/utilité ;)
0
eriiic Messages postés 24603 Date d'inscription   Statut Contributeur Dernière intervention   7 276
 
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   Statut Membre Dernière intervention  
 
Merci bien pour ta réponse Eric...
En effet, tout aussi efficace et bien plus simple :)
Merci beaucoup !!
0