Déplacer donné sur une autre feuil
Résolu
Che01
Messages postés
12
Statut
Membre
-
Che01 Messages postés 12 Statut Membre -
Che01 Messages postés 12 Statut Membre -
Bonjour, j'aimerais que dés que l'on sélectionne un nom de salarié dans la liste déroulante et que l'on remplies les autres information pour ensuite cliquer sur le bouton "enregistrer" présent sur la première feuil, toutes les information se déplaces dans la feuil associé au nom du salarié. Est-ce possible ?
https://www.cjoint.com/c/KAsmcMB4X5C
https://www.cjoint.com/c/KAsmcMB4X5C
A voir également:
- Déplacer donné sur une autre feuil
- Déplacer une colonne excel - Guide
- Deplacer une icone sur iphone - Guide
- Déplacer barre des taches windows 11 - Guide
- Déplacer dossier onedrive - Guide
- Déplacer une fenetre hors écran - Guide
3 réponses
yg_be
Messages postés
24281
Date d'inscription
Statut
Contributeur
Dernière intervention
Ambassadeur
1 585
bonjour,
je pense que c'est possible.
si tu apprends le VBA, tu pourras faire cela.
je pense que c'est possible.
si tu apprends le VBA, tu pourras faire cela.
Bonjour,
avec cet exemple il est très facile de le modifier en mettant le nom de la feuille salarié à la place de feuille1:
https://forums.commentcamarche.net/forum/affich-37039566-comment-creer-un-bouton-enregistrer#4
avec cet exemple il est très facile de le modifier en mettant le nom de la feuille salarié à la place de feuille1:
https://forums.commentcamarche.net/forum/affich-37039566-comment-creer-un-bouton-enregistrer#4
Ce n'est pas trop compliqué, il suffit de suivre le cheminement des cellules!
Voilà
@+ Le Pivert
Private Sub CommandButton3_Click()
Dim rep As Integer, Dl As Long
With Sheets(Range("A6").Value)
Dl = .Range("A" & Rows.Count).End(xlUp).Row + 1
rep = MsgBox("Voulez-vous vraiment enregistrer ?", vbYesNo, "Enregistrement")
If rep = vbYes Then
.Range("A" & Dl).Value = Range("A6").Value 'nom
.Range("E" & Dl).Value = Range("E11").Value 'heure
.Range("C" & Dl).Value = Range("D8").Value & "/" & Range("E8").Value & "/" & Range("F8").Value 'date
.Range("H" & Dl).Value = Range("H6").Value 'fournisseur
.Range("J" & Dl).Value = Range("J6").Value 'N° BL
.Range("L" & Dl).Value = Range("L6").Value 'montant
End If
End With
End Sub
Voilà
@+ Le Pivert
