Ajouter ligne

[aldebaran8]

Bonjour à tous,

J'aimerais ajouter une ligne à mon tableau avec le bouton saisie.
Dans l'exemple en pièce jointe, il faudrait que l'ajout de la ligne 5 soit l'identique que la ligne 4 (liste déroulante).

Merci par avance pour votre aide,

Amicalement.

 

[Raja]

Re : Ajouter ligne

Bonjour,

Essaye ce code suivant :

Private Sub CommandButton1_Click()

Range("A65536").End(xlUp).Offset(1, 0).EntireRow.FillDown
Range("A65536").End(xlUp) = Date
Range("B65536").End(xlUp).Offset(1, 0).Activate

End Sub

 

[pierrejean]

Re : Ajouter ligne

bonjour aldebaran

Vois si cela te convient

Edit : salut Raja

 

[aldebaran8]

Re : Ajouter ligne

C'est parfait !!
Merci à vous 2 pour aide et votre rapidité.😉

Bonne journée

 

[aldebaran8]

Re : Ajouter ligne

P'tit problème.

J'avais une macro dans "ThisWorkbook" qui m'affichait une information quand l'agent apparaissaint 4x pour un même domaine et détail d'intervention. Elle fonctionnait très bien.

Mais en rajoutant la macro pour l'ajout de ligne, elle ne fonctionne plus. 🙁

Pouvez-vous corriger ce problème ?

Merci,

Cordialement.

 

[pierrejean]

Re : Ajouter ligne

Re

La seule chose que je puis dire c'est que l'adjonction de la macro d'ajout de ligne ne peut pas etre responsable du disfonctionnement
Tu devrais poser le problème dans le fil d'ou est issue la macro workbook (dans le cas ou elle a été créé sur XLD) ou a tout le moins citer le fil
Dans le cas contraire rappelle l'enoncé qui a abouti a cette macro