Ajouter des colonnes à remplir grace à un boutton.

Robert

XLDnaute Barbatruc

Repose en paix

• 1 Juillet 2011

• #2

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.

Cliquez pour agrandir...

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...

 

Vote positif 0 Vote négatif

M

manu

Guest

• 1 Juillet 2011

• #3

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 🙂

 

Pièces jointes

• exemple.xls

  22.5 KB · Affichages: 75
• exemple.xls

  22.5 KB · Affichages: 78
• exemple.xls

  22.5 KB · Affichages: 78

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 1 Juillet 2011

• #4

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 :

Code:

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

 

Pièces jointes

• Manu_v01.xls

  25 KB · Affichages: 73
• Manu_v01.xls

  25 KB · Affichages: 81
• Manu_v01.xls

  25 KB · Affichages: 78

Vote positif 0 Vote négatif

M

manu

Guest

• 1 Juillet 2011

• #5

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.

 

Vote positif 0 Vote négatif

M

manu

Guest

• 1 Juillet 2011

• #6

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

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 1 Juillet 2011

• #7

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 :

Code:

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

 

Vote positif 0 Vote négatif

M

manu

Guest

• 1 Juillet 2011

• #8

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?

 

Vote positif 0 Vote négatif

M

manu

Guest

• 1 Juillet 2011

• #9

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?

 

Pièces jointes

• Constat DIESE REALISATION.xls

  53 KB · Affichages: 63
• Constat DIESE REALISATION.xls

  53 KB · Affichages: 62
• Constat DIESE REALISATION.xls

  53 KB · Affichages: 64

Dernière modification par un modérateur: 1 Juillet 2011

Vote positif 0 Vote négatif

M

manu

Guest

• 1 Juillet 2011

• #10

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.

 

Vote positif 0 Vote négatif