Discussion :

[charlesb95]

Bonjour à tous,

Je suis PMO dans une équipe d'intégration de progiciel, j'ai créé un fichier Excel pour que l'équipe renseigne ses imputations.

Je souhaiterai ajouter un bouton qui copie ma ligne "type" A33:BM33 et la colle en dernier au fur et à mesure lorsqu'ils souhaitent ajouter une activité.

Je ne sais pas si je suis clair,

Vous trouverez le fichier à ce lien car 9Mo http://dl.free.fr/evFqI4Qtu ,

Je reste à votre disposition,

Par avance, merci beaucoup
Charles

[Menhir]

Je souhaiterai ajouter un bouton qui copie ma ligne "type" A33:BM33 et la colle en dernier au fur et à mesure lorsqu'ils souhaitent ajouter une activité.

Pour repérer la dernière ligne utilisée, propriété End, de préférence avec le paramètre xlUp.
https://msdn.microsoft.com/fr-fr/lib...9(v=office.15)

Pour faire une copie, méthode Copy de Range.
https://msdn.microsoft.com/fr-fr/lib...0(v=office.15)

[marot_r]

Bonjour.

Quelque chose comme cela à mettre "dans" le code associé à la feuille

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
public sub CopierLigneType()
    dim source as range
     set source=me.range("A33:BM33")
    source.copy
 
    dim cible as range
    set cible=me.range("A33:A" & me.rows.count).find("") 'Trouve la 1ère cellule libre affichée (attention si il y a des filtres ça peut poser des problèmes)
 
    if not cible is nothing then
        call cible.PasteSpecial(xlPasteAll)
    end if
 
end sub

Après tu as juste à associer la macro au bouton.

A+

[Menhir]

Quelque chose comme cela à mettre "dans" le code associé à la feuille

Perso, je ne prendrais pas la peine de faire un UserForm pour si peu.
J'associerais la macro à une simple forme dans la feuille de calcul ou (mieux) je créerais une icone dans la barre d'outils à accès rapide.

[charlesb95]

Perso, je ne prendrais pas la peine de faire un UserForm pour si peu.
J'associerais la macro à une simple forme dans la feuille de calcul ou (mieux) je créerais une icone dans la barre d'outils à accès rapide.

Bonjour Menhir et à tous,

Merci pour vos retours, mais à vrai dire, je ne sais même pas ajouter de macro ni de code donc tout ce que vous me dites est du "chinois" pour moi.

Je ne sais pas comment m'y prendre, juste avoir un bouton ou autre permettant de copier la ligne type en dernier.

Toutes vos propositions sont les bienvenues (si vous pouvez ajouter ce code/bouton dans mon fichier je vous en serai énormément reconnaissant)

Merci bcp,
Charles

[Theze]

Bonjour,

Une piste à mettre dans un module standard (depuis Excel, maintenir la touche Alt puis appui sur touche F11 (tu entres dans le VBE), sur la lettre I et enfin sur la lettre M et coller le code dans la zone de texte qui vient d'apparaître à droite) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
Sub Recopier()
 
    With Worksheets("Imputation")
        .Rows(33).Copy .Rows(.Cells(.Rows.Count, 1).End(xlUp).Row + 1)
    End With
 
End Sub

Ensuite, revenir sur Excel, clic droit sur la barre d'outils Accès rapide puis sur le bouton "Personnaliser la barre d'outils Accès rapide" dans la liste de choix "Choisir les commandes..." cliquer sur "Macros" et dans la liste dessous cliquer sur "Recopier" (surligner le nom de la macro ci-dessus), dans la liste de droite, tu cliques sur le bouton après lequel tu veux avoir le bouton de commande de la macro, clic sur le bouton "Ajouter" et enfin, sur le bouton "OK".
A chaque clic sur ce bouton qui commande la macro, la ligne 33 sera copiée sur la première ligne vide en bas de ton tableau

[Menhir]

Je ne sais pas comment m'y prendre
Toutes vos propositions sont les bienvenues

J'espère que celle-ci sera bienvenue : http://bidou.developpez.com/article/VBA/

si vous pouvez ajouter ce code/bouton dans mon fichier je vous en serai énormément reconnaissant

Le jour où j'ouvrirai un lien externe proposé par un inconnu sur un forum, il gèlera en enfer.

[charlesb95]

Bonjour,

Une piste à mettre dans un module standard (depuis Excel, maintenir la touche Alt puis appui sur touche F11 (tu entres dans le VBE), sur la lettre I et enfin sur la lettre M et coller le code dans la zone de texte qui vient d'apparaître à droite) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
Sub Recopier()
 
    With Worksheets("Imputation")
        .Rows(33).Copy .Rows(.Cells(.Rows.Count, 1).End(xlUp).Row + 1)
    End With
 
End Sub

Ensuite, revenir sur Excel, clic droit sur la barre d'outils Accès rapide puis sur le bouton "Personnaliser la barre d'outils Accès rapide" dans la liste de choix "Choisir les commandes..." cliquer sur "Macros" et dans la liste dessous cliquer sur "Recopier" (surligner le nom de la macro ci-dessus), dans la liste de droite, tu cliques sur le bouton après lequel tu veux avoir le bouton de commande de la macro, clic sur le bouton "Ajouter" et enfin, sur le bouton "OK".
A chaque clic sur ce bouton qui commande la macro, la ligne 33 sera copiée sur la première ligne vide en bas de ton tableau

Merci Theze pour ton aide pas à pas lol
Ça fonctionne bien.
Dommage que je ne puisse pas masquer ma ligne type (33) et avoir un bouton. Mais c'est déjà top
Merci

[charlesb95]

Bonjour Theze,
J'ai un petit souci, en copiant mon fichier sur un répertoire Sharepoint, lorsque je clique sur le bouton pour recopier, j'ai un message "Désolé...Excel ne peut pas ouvrir en même temps deux classeurs portant le même nom". J'ai l'impression que cette commande fait appel à mon fichier en local.
En modifiant le nom du fichier copié sur SharePoint, en cliquant sur le bouton, il va ouvrir mon fichier en local pour ajouter une ligne dans celui de SharePoint.

Peux-tu me dire comment modifier cela pour que le fichier sur SharePoint soit autonome ???

Par avance, merci beaucoup.
Charles

[marot_r]

Perso, je ne prendrais pas la peine de faire un UserForm pour si peu.
J'associerais la macro à une simple forme dans la feuille de calcul ou (mieux) je créerais une icone dans la barre d'outils à accès rapide.

Bonjour.

Je ne parlais pas de UserForm mais de feuille du classeur.
On peut associer un module à une feuille.
C'est là que je mets mon code quand j'ai une "interface" avec un bouton par exemple sur une feuille en particulier.

A+