Créer un bouton pour plusieurs fonctions

Bonjour à tous,

Je remercie déjà d'avance tout ceux qui pourront m'aider car je n'ai pour l'instant aucun piste.

Je pense qu'il va falloir que je 'code' quelques petites lignes de vba et j'y connais rien pour le moment (ou pas grand chose).

Enfin, voilà ce que je souhaite faire.

Le fichier que je construis actuellement représente une fiche métier avec des listes déroulantes, quelques renvois type recherchev, fonctions si.

En bref, une fois que la fiche métier est remplie par la personne, je souhaiterai qu'il trouve en bas du formulaire un bouton "Terminer" qui enregistre le fichier, qui lance une impression (pour création pdf) et enfin, ce point doit être plus compliqué à faire, déverser le contenu des champs remplis dans le formulaire dans un onglet journal.

Voilà, cela me semble clair mais sinon je vous joignerai le fichier.

L'onglet Journal est déjà créé, de même que les titres des colonnes.

Cela me permettra au final de récupérer les journaux de chacune des personnes et archiver l'ensemble proprement.

Je pense que vous avez compris le principe maintenant, vos remarques/conseils sont les bienvenus.

Bonsoir et bienvenue

Merci de joindre ton fichier en ayant rempli une fiche

EbNYLzTz5wM

Amicalement

Nad

Voici une copie du fichier avec les deux onglets.

Merci

Alors voilà ce que j'ai pondu

Ca fonctionne pour ce que je voulais en faire, merci à ceux qui y jetteront un oeil.

Je souhaite créer deux boutons "Terminé !" et "Imprimer" mais lorsque j'y attache du code j'ai un msg de débog.

Là dessus, je continue de chercher..

Je vous laisse le code.

Sub Enregistrement_auto()

Sheets("Journal").Select

Rows(2).Insert

Range("A2").Select

ActiveCell.Formula = Date

Range("B2").Select

ActiveCell.Formula = "=EXEMPLE!D4"

Range("C2").Select

ActiveCell.Formula = "=EXEMPLE!D6"

Range("D2").Select

ActiveCell.Formula = "=EXEMPLE!..."

Range("E2").Select

ActiveCell.Formula = "=EXEMPLE!..."

Range("F2").Select

ActiveCell.Formula = "=EXEMPLE!..."

Range("G2").Select

ActiveCell.Formula = "=EXEMPLE!..."

Range("BW2").Select

ActiveCell.Formula = "=EXEMPLE!... "

Range("A1:DD300").Select

Selection.Copy

Range("A1").Select

Selection.PasteSpecial Paste:=xlPasteValues

Range("A2").Select

Range("A2:CC300").Select

Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _

OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal

Selection.Font.Bold = False

Range("A2").Select

Sheets("EXEMPLE").Select

ActiveWorkbook.Save

MsgBox "Archivage effectué avec succès. L'application va maintenant se fermer.", vbOKOnly, "L'équipe EAD - 2011"

Application.Quit

End Sub

Sub Impression()

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

End Sub

Bonjour à tous,

J'ai créé le bout de code comme je le voulais, seulement j'aimerai apporter une petite amélioration et là je bloque.

Le fichier vous est joint. J'aimerai que les deux boutons Enregistrer et Imprimer se déplacent en même temps que le curseur de la souris.

J'ai d'ailleurs récupéré un autre petit bout de code, mais que je n'arrive pas à insérer dans le mien.

Le voici :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

ActiveSheet.CommandButton1.Select

With Worksheets(1)

.CommandButton1.Top = .Rows(Target.Row).Top

End With

Target.Select

End Sub

Votre aide est donc la bienvenue, et cela ne devrait pas vous demander plus de 4sec....

Merci en tout cas.

Salut le forum

Un peu de lecture : Suivre le mouvement du scroll

Ou encore : Bouton suiveur

Mytå

Merci pour ces liens mais comme vous pouvez le constater dans mon dernier post, j'ai déjà le bout de code que je désire insérer.

Le problème c'est que je ne sais pas ou l'insérer

Je n'y connais encore pas grand chose en vba, et donc je tâtonne..

En l’occurrence, j'ai essayé de le mettre la feuil1 de Microsoft Excel Objets ou encore module mais cela plante.

C'est plus un coup de main quant à ce point-là.

Mais merci, je vais aller lire les posts, j'y apprendrais forcément quelquechose

Re le forum

Tu utilises des objects de la boîte formulaire

Le code à copier dans le module de la feuille "Exemple"

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With ActiveSheet
.Shapes(1).Top = .Rows(Target.Row).Top
.Shapes(2).Top = .Rows(Target.Row).Top
End With
End Sub

Si il y une risque d'ajouter d'autres boutons

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With ActiveSheet
.Shapes("Button 1").Top = .Rows(Target.Row).Top
.Shapes("Button 2").Top = .Rows(Target.Row).Top
End With
End Sub

Mytå

Merci beaucoup, ça fonctionne à merveille.

Je clos le topic.

Encore merci !