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
Messages postés3877Date d'inscriptionmardi 19 mars 2002StatutMembreDernière intervention17 août 201823 14 mai 2013 à 14:35
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