Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

blancolie

XLDnaute Impliqué
Bonjour le forum.

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

VB:
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
 

Pièces jointes

  • fleurissement 1.xlsm
    47 KB · Affichages: 16

Jacky67

XLDnaute Barbatruc
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
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…