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]

Re..
Comme cela fonctionne sur Pc
Il ne reste plus qu'à attendre un utilisateur de Mac pour tester.
Désolé de ne pouvoir t'aider plus.
Refait un nouveau poste en précisant que tu es sur Mac

 

[blancolie]

EN TOUT CAS merci pour ton travail, snif je n'ai pas de chance.

bonne soirée a toi