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
,
