[VBA/Excel] Macro de mise en formeRésolu

Question

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

cs_MPi · Accepted Answer

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

MJGraFFik · Answer

Bonjour,

Merci de ta réponse !

[VBA/Excel] Macro de mise en forme

2 réponses

Votre réponse

Discussions similaires