Comment créer un bouton enregistrer
Résolu/Fermé
Che01
Messages postés
12
Date d'inscription
mardi 12 janvier 2021
Statut
Membre
Dernière intervention
19 janvier 2021
-
12 janv. 2021 à 10:07
Che01 Messages postés 12 Date d'inscription mardi 12 janvier 2021 Statut Membre Dernière intervention 19 janvier 2021 - 13 janv. 2021 à 11:34
Che01 Messages postés 12 Date d'inscription mardi 12 janvier 2021 Statut Membre Dernière intervention 19 janvier 2021 - 13 janv. 2021 à 11:34
A voir également:
- Comment créer un bouton enregistrer
- Créer un compte gmail - Guide
- Créer un compte google - Guide
- Créer un compte instagram - Guide
- Enregistrer video youtube - Guide
- Créer un compte facebook - Guide
2 réponses
cs_Le Pivert
Messages postés
7883
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
18 mars 2023
724
Modifié le 12 janv. 2021 à 11:38
Modifié le 12 janv. 2021 à 11:38
Bonjour,
un classeur modèle serait plus utile qu'une image pour t'aider
mettre le classeur sur ce site et venir coller le lien ici:
https://www.cjoint.com/
un classeur modèle serait plus utile qu'une image pour t'aider
mettre le classeur sur ce site et venir coller le lien ici:
https://www.cjoint.com/
Che01
Messages postés
12
Date d'inscription
mardi 12 janvier 2021
Statut
Membre
Dernière intervention
19 janvier 2021
12 janv. 2021 à 10:14
12 janv. 2021 à 10:14

12 janv. 2021 à 12:24
12 janv. 2021 à 14:31
Private Sub CommandButton3_Click() Dim rep As Integer, Dl As Long With Sheets("Feuil1") Dl = .Range("H" & Rows.Count).End(xlUp).Row + 1 If Dl = 2 Then Dl = 7 rep = MsgBox("Voulez-vous vraiment enregistrer ?", vbYesNo, "Enregistrement") If rep = vbYes Then .Range("H" & Dl).Value = Range("A6").Value 'nom .Range("L" & Dl).Value = Range("E11").Value 'heure .Range("J" & Dl).Value = Range("D8").Value & "/" & Range("E8").Value & "/" & Range("F8").Value 'date .Range("O" & Dl).Value = Range("A23").Value 'fournisseur .Range("Q" & Dl).Value = Range("C23").Value 'N° BL .Range("S" & Dl).Value = Range("E23").Value 'montant End If End With End SubVoilà
@+ Le Pivert
13 janv. 2021 à 09:45
https://www.cjoint.com/c/KAniSLeXgUC .
13 janv. 2021 à 10:48
Bon courage
Le Pivert
13 janv. 2021 à 11:20