Ajouter des colonnes à remplir grace à un boutton.

[manu]

Bonjour à tous,
Je me retourne vers vous pour trouver un peu d'aide, j'aimerais inclure dans mon tableu, un bouton, ou lorsque je cliquerai dessus, il rajoutera un ligne à remplir. Pour être plus précis, le bouton serais: Ajouter un fournisseur

En cliquant dessus une ligne se rajoutera et comportera plusieurs colonnes à remplir.

J'èspère que quelqu'un pourra m'aider comme ça a toujours été le cas sur ce forum.
Merci à tous.

 

[Robert]

Re : Ajouter des colonnes à remplir grace à un boutton.

Bonjour Manu, bonjour le forum,

Ajouter une ligne où ?

En cliquant dessus une ligne se rajoutera et comportera plusieurs colonnes à remplir.

Ben oui une ligne comporte toujours autant de cellules qu'il y a de colonnes dans ta version d'excel (156 dans Excel 2003)... Désolé mais c'est pas très clair. Sans un petit fichier exemple et des explications plus claires, difficile de t'aider...

 

[manu]

Re : Ajouter des colonnes à remplir grace à un boutton.

Bonjour Robert,

Oui effectivement je te laisse un exemple.
Je voudrais que en appuyant sur le bouton, il se rajoute une ligne en dessous de la ligne 4 et qui lui soit identique.
J'èspère que c'est plus clair 🙂

 

[Robert]

Re : Ajouter des colonnes à remplir grace à un boutton.

Bonjour Manu, bonjour le forum,


En pièce jointe ton fichier modifié avec le code ci-dessous appliqué au bouton :

Private Sub CommandButton1_Click() 'bouton "Ajouter un Mulet du constat"
Dim li As Integer 'déclare la variable li (LIgne)
 
li = Cells(Application.Rows.Count, 11).End(xlUp).Offset(1, 0).Row 'définit la ligne li (se réfère à la colonne K)
Range(Cells(4, 1), Cells(4, 13)).Copy Cells(li, 1) 'copy la ligne de référence et la colle dans la ligne li, colonne A
Cells(li, 1).Select 'sélectionne la ligne li, colonne A
End Sub

 

[manu]

Re : Ajouter des colonnes à remplir grace à un boutton.

Merci beacoup Robert, je vais analyser le code pour pouvoir le réutiliser à ma guise.

Grand merci à ce forum.

 

[manu]

Re : Ajouter des colonnes à remplir grace à un boutton.

Je viens de l'adapter à mon fichier principal, la ligne ajoutée est copiée sur la ligne suivante, est-il possible que la ligne à ajouter sois insérée? Donc on aura le rajout d'une ligne supplémentaire

 

[Robert]

Re : Ajouter des colonnes à remplir grace à un boutton.

Bonjour manu, bonjour le forum,

Pourquoi tu n'utilises pas l'enregistreur de macro ???

Essaie comme ça :

Private Sub CommandButton1_Click() 'bouton "Ajouter un Mulet du constat"
Dim li As Integer 'déclare la variable li (LIgne)
Range("A4:M4").Copy
Range("A5").Insert Shift:=xlDown
Application.CutCopyMode = False
Range("A5").Select
End Sub

 

[manu]

Re : Ajouter des colonnes à remplir grace à un boutton.

Merci, j'ai trouvé la solution. Je fais tout d'abord l'insertion puis je copie les ligne dans la nouvelle. J'ai une question plus technique, est-ce que les variable que l'on crèe dans une sous-partie peuvent etre utilisé dans une autre?

 

[manu]

Re : Ajouter des colonnes à remplir grace à un boutton.

je souhaite maintenant créer un autre boutton et utiliser le même code, le problème c'est que le nouveau boutton est toujours attribué aux lignes de l'ancien boutton, comment je définie à quelle lignes s'appliquent le nouveau boutton?

 

[manu]

Re : Ajouter des colonnes à remplir grace à un boutton.

le problème de mon fichier est que lorsque j'appuie sur le premier boutton, la macro ne s'applique pas à la ligne ou il est situé et j'arrive pas à comprendre comment arranger cela. Je vous remercie d'avance pour votre aide.