ajouter une ligne automatiquement en recopiant les formules et la validation des données.

[blancolie]

Bonjour le forum.

J'ai récupérer ce code VBA mais je connais rien en VBA.

Sub insertionLigne()
    With ActiveCell
        .EntireRow.Insert xlShiftDown 'Insert une ligne au dessus
        .EntireRow.Copy ' Copie la ligne active
        With .Offset(-1).EntireRow 'Passe les formats et formules à la ligne insérée
            .PasteSpecial xlPasteFormats
            .PasteSpecial xlPasteFormulas
        End With
        Application.CutCopyMode = False
    End With
End Sub

Le soucis de ce code : il est fait pour être lancer manuellement, recopie bien les formules et les validations de données (liste déroulante) par contre me supprime mes listes déroulantes de la ligne au dessus.

Ce que je voudrais, c'est le rajout de ligne se fasse automatiquement quand la première cellule (code) soit rempli (cellule A3 dans l'onglet Zone de saisie) tout en recopiant les formules et liste déroulante mais je veux que cela me laisse les liste déroulante active au dessus.

merci à vous

 

[Jacky67]

Bonjour,
Une solution simple, consiste à passer en tableau structuré
Il y a alors possibilité de faire cela sans vba (clic droit insérer etc...)
En Vba

Sub Ajout_ligne()
    With [tableau2]
        .ListObject.ListRows.Add (1)
    End With
End Sub

 

[blancolie]

Bonjour et merci

j'ai essaye les tableaux structuré mais toutes mes formules ne sont pas récopié dans ce fichier la.

le codage que vous m'avez mis en avant , c'est à rajouté de celui qui est existant ?

merci en tout cas.

 

[blancolie]

j'ai regardé votre travail, dc je vois que vous rajouter la ligne au dessus . il n 'y a pas la possibilité de faire l'inverse ? et je vois qu'il faut cliquer sur un bouton ? ce n'est pas possible que cela se fasse automatiquement si la cellule code est rempli ?

Cordialement

sur celui la je n'ai enleve le codage

 

[Jacky67]

j'ai regardé votre travail, dc je vois que vous rajouter la ligne au dessus . il n 'y a pas la possibilité de faire l'inverse ? et je vois qu'il faut cliquer sur un bouton ? ce n'est pas possible que cela se fasse automatiquement si la cellule code est rempli ?

Cordialement

sur celui la je n'ai enleve le codage

Re..
Dans cette version, une ligne est ajoutée si la cellule colonne 1 précédente est renseignée et uniquement si la sélection se fait dans la ligne suivante du tableau

 

[blancolie]

bonsoir, je te remercie,
j'ai ouvert mais quand je rentre une donnée, la deuxième ligne ne se crée pas ? comment fait on pour la faire apparaitre ?

merci pour ton travail

 

[Jacky67]

Re.
Je ne comprends pas ce que tu veux dire.
Je n'éprouve aucune difficulté à saisir les cellules de la ligne si je clique sous le première ligne vide du tableau.
Ou alors on ne parle pas de la même chose

 

[blancolie]

En ouvrant ton fichier ,quand je clique sur la cellule A4 juste en dessous de celle ou est inscrit ach01 (cellule A3), je n 'ai pas ma liste déroulante. dans la cellule B4, j ai bien une de mes formules mais ds les autres à cotés, je n 'ai rien.

logiquement si on se comprends bien, quand je rentre 1 donnée , logiquement , 1 deuxieme ligne doit apparaitre avec les listes déroulantes et formules ?

 

[Jacky67]

Re..
Chez moi, j'ai bien les listes déroulantes en colonne A et en colonne C

 

[blancolie]

La version d'excel peut y être pour quelque chose ? je suis sous office365 et sous mac ? car je n'ai vraiment pas cet image que tu me montres `. je n'ai rien du tout

 

[Jacky67]

Sans doute
Sous Mac je ne serais d'aucun secours
Une chose à vérifier
La désactivation des objets dans les options avancées d'Excel

 

[blancolie]

apparemment, ils sont désactivés

 

[Jacky67]

apparemment, ils sont désactivés

RE..
Ben….. active et testes

 

[blancolie]

le 1er post que j'ai poste avec le codage vba, vous voyez ? par contre la cela marche mais la c'est manuelle et quand je clique sur macro, j'ai un nom de macro qui apparait.
alors que quand c'est ta macro , ds la fenêtre macro, je n'ai pas de nom.

mais apres je ne vois pas ou est le problème, car je connais pas le vba

 

[blancolie]

cela ne change rien