[VBA/Excel] Macro de mise en forme [Résolu]

Signaler
-
 MJGraFFik -
Bonjour à tous,

Après de multiples recherches, je me voue à vous exposer ma demande !

Vous trouverez le code que j'utilise pour ajouter une nouvelle ligne.

Je sais que ma demande n'est pas compliquée et à déjà été traitée, mais je n'arrive pas à l'adapter à mon code déjà composé.

Les codes que j'ai me permettent:

- D'afficher un calendrier, pour la facilité de saisie, dans 2 colonnes uniquement

- Un bouton qui me permet d'insérer une ligne


Je reviens sur le bouton:
- Il me garde la mise en forme et m'ajoute la ligne en dessous de la première saisie = C'est OK



Je voudrais en plus :
1) qu'il me garde, lors de l'insertion, mes listes déroulantes se trouvant dans certaines cellules

2) Dans la colonne "A" = Avoir une incrémentation automatique du numéro de ligne

Je vous remercie par avance de l'attention que vous porterez à ma demande !


Private Sub CommandButtonAjoutLigne_Click()
On Error Resume Next
Application.ScreenUpdating = False
With Rows(ActiveCell.Row)
.Insert
.Copy
.Offset(1, 0).PasteSpecial Paste:=xlPasteFormats
End With
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

2 réponses

Messages postés
3877
Date d'inscription
mardi 19 mars 2002
Statut
Membre
Dernière intervention
23 août 2018
18
Bonjour,

Est-ce que ceci est ce que tu cherches ?

Private Sub CommandButtonAjoutLigne_Click()
    Application.ScreenUpdating = False
    With Rows(ActiveCell.Row)
        .Copy
        .Insert
    End With
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
End Sub



MPi²
Pour ceux qui programment sous Office, n'oubliez pas qu'il existe un forum dédié à ces applications VBA....... ICI
Bonjour,

Merci de ta réponse !