Déplacer donné sur une autre feuil
Résolu
Che01
Messages postés
12
Date d'inscription
Statut
Membre
Dernière intervention
-
Che01 Messages postés 12 Date d'inscription Statut Membre Dernière intervention -
Che01 Messages postés 12 Date d'inscription Statut Membre Dernière intervention -
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
- Déplacer barre des taches windows 11 - Guide
- Deplacer une icone sur iphone - Guide
- Déplacer onedrive sur un autre disque - Guide
- Déplacer une fenetre hors écran - Guide
3 réponses
yg_be
Messages postés
23541
Date d'inscription
Statut
Contributeur
Dernière intervention
Ambassadeur
1 584
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.
Le problème étant que je n'y comprend pas grand chose.
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