Discussion :

[HAMIDOU AMERI]

Salem, Bonjour

comment convertir ce code VBA en macro
Merci d'avance

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub VALIDER_Click()
If MsgBox("ETES VOUS SUR ?", vbYesNo) = vbYes Then
 [MONTHT] = [Texte34]
 [MONTVA] = [Texte36]
 [MONTTC] = [Texte38]
 DoCmd.Save
 DoCmd.GoToRecord , , acNewRec
End If
End

[Zekraoui_Jakani]

Normalement, c'est l'inverse que l'on fait !
Le plus simple serait de créer un nouveau bouton de commande auquel vous assignez une macro dans laquelle vous sélectionnez les actions de la boite de dialogue que vous voulez.

[marot_r]

Bonjour.

Oui il est rare de faire le chemin dans ce sens (et personnellement je n'utilise presque jamais les macros) aussi vais-je détailler chaque action qui te permettra de trouver la bonne instrcution de macro à appeler :

Code :

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

1
2
3
4
5
6
7
If MsgBox("ETES VOUS SUR ?", vbYesNo) = vbYes Then 'Affiche un message demandant une confirmation, un bouton Oui et un bouton Non. Le test est vrai si la personne appuis sur le bouton Oui.
 [MONTHT] = [Texte34] 'Assigne le champ Texte34 au champ (de données probablement) MONTHT
 [MONTVA] = [Texte36] 'Assigne le champ Texte36 au champ (de données probablement) MONTVA
 [MONTTC] = [Texte38] 'Assigne le champ Texte38 au champ (de données probablement) MONTTC
 DoCmd.Save 'Sauvegarde l'enregistrement courant
 DoCmd.GoToRecord , , acNewRec 'Va à un nouvel enregistrement
End If

A+