VBA Besoin d'aide pour création d'un code.
michoulu
Messages postés
62
Statut
Membre
-
eljojo_e Messages postés 1255 Statut Membre -
eljojo_e Messages postés 1255 Statut Membre -
Bonjour à tous,
Je souhaite créer une macro Excel qui va s'exécuter comme suit :
1) Je remplis une cellule d'Excel avec un mot (toujours la même cellule, le mot par contre change)
2) Une boite de dialogue s'ouvre et me demande des infos (exemple : première Box : saisie du jour puis OK, 2ème Box : saisie de la quantité puis clic sur OK)
Selon les infos données, la macro remplit une cellule d'un tableau avec par exemple en colonne le jour en ligne le mot que j'ai rentré dans la cellule et la quantité au final donc la quantité en correspondance)
J'ai uniquement réussi à écrire le code des MsgBox qui semble faux au niveau des `Si mot saisi différent de ... alors...' :
Sub Interrogation()
' Déclaration des variables :
Dim x As String
Dim y As String
Dim z As String
Dim l As Integer
Dim m As String
Dim n As Integer
RetourArrière:
x = InputBox("Veuillez saisir un jour" _
& vbNewLine & vbNewLine & "Lundi à Samedi", "Saisie du Jour")
If x = "" Then Exit Sub
l = Val(x)
If l <> (Lundi, Mardi, Mercredi, Jeudi, Vendredi, Samedi) Then
MsgBox "Veuillez vérifier votre saisie"
GoTo RetourArrière
End If
RetourArrière1:
y = InputBox("Entrée ou Sortie", "Saisie de l'action")
If y = "" Then Exit Sub
m = Val(y)
If m = <> (entrée, entree, sortie) Then
MsgBox "Veuillez vérifier votre saisie"
GoTo RetourArrière1
End If
RetourArrière2:
z = InputBox("Veuillez saisir une quantité" _
& vbNewLine & vbNewLine & "Puis la vérifier", "Saisie quantité plaquettes")
If z = "" Then Exit Sub
n = Val(z)
If n < 1 Then
MsgBox "Veuillez vérifier votre saisie"
GoTo RetourArrière1
End If
End Sub
Je souhaite créer une macro Excel qui va s'exécuter comme suit :
1) Je remplis une cellule d'Excel avec un mot (toujours la même cellule, le mot par contre change)
2) Une boite de dialogue s'ouvre et me demande des infos (exemple : première Box : saisie du jour puis OK, 2ème Box : saisie de la quantité puis clic sur OK)
Selon les infos données, la macro remplit une cellule d'un tableau avec par exemple en colonne le jour en ligne le mot que j'ai rentré dans la cellule et la quantité au final donc la quantité en correspondance)
J'ai uniquement réussi à écrire le code des MsgBox qui semble faux au niveau des `Si mot saisi différent de ... alors...' :
Sub Interrogation()
' Déclaration des variables :
Dim x As String
Dim y As String
Dim z As String
Dim l As Integer
Dim m As String
Dim n As Integer
RetourArrière:
x = InputBox("Veuillez saisir un jour" _
& vbNewLine & vbNewLine & "Lundi à Samedi", "Saisie du Jour")
If x = "" Then Exit Sub
l = Val(x)
If l <> (Lundi, Mardi, Mercredi, Jeudi, Vendredi, Samedi) Then
MsgBox "Veuillez vérifier votre saisie"
GoTo RetourArrière
End If
RetourArrière1:
y = InputBox("Entrée ou Sortie", "Saisie de l'action")
If y = "" Then Exit Sub
m = Val(y)
If m = <> (entrée, entree, sortie) Then
MsgBox "Veuillez vérifier votre saisie"
GoTo RetourArrière1
End If
RetourArrière2:
z = InputBox("Veuillez saisir une quantité" _
& vbNewLine & vbNewLine & "Puis la vérifier", "Saisie quantité plaquettes")
If z = "" Then Exit Sub
n = Val(z)
If n < 1 Then
MsgBox "Veuillez vérifier votre saisie"
GoTo RetourArrière1
End If
End Sub
A voir également:
- VBA Besoin d'aide pour création d'un code.
- Code ascii - Guide
- Comment déverrouiller un téléphone quand on a oublié le code - Guide
- Création d'un qr code - Guide
- Creation compte gmail - Guide
- Code puk bloqué - Guide
3 réponses
Bonjour,
Je te conseillerai de faire un userform avec une liste déroulante qui contiendrai lundi mardi ..... ainsi qu'un champ text pour rentrer tes quantités.
Cordialement,
Je te conseillerai de faire un userform avec une liste déroulante qui contiendrai lundi mardi ..... ainsi qu'un champ text pour rentrer tes quantités.
Cordialement,
