Vba apprentissage

[Raziel abel]

Bonjour,

Je suis novice en VB mais j’ai la volonté d’apprendre (même si quelquefois j’ai envie d’arrêter en pensant que je n’y arriverai jamais…)

J’ai besoin de vos connaissances en la matiére, car je suis en train de faire un exercice pour apprendre Vba et quelques procédures m’échappent au niveau de la compréhension.

Je vous transmet le fichier Excel d’exo.

Il y’a un userform qui permet de calculer une surface selon les données rentrées.

Il y’a des contrôles qui sont mis en place en langage Vba et c’est là que j’ai besoin de vous au niveau de la traduction et de la compréhension.

Un exemple de non compréhension :

Sub Contrôle(msg, mini, maxi, saisie)
If saisie <> "" Then
If Not IsNumeric(saisie) Then
Rép = MsgBox("Merci de saisir du numérique", vbOKOnly, "OUPS")
saisie = ""
ElseIf Val(saisie) < Val(mini) Then
Rép = MsgBox("La" & msg & " ne peut être inférieur à " & mini & _
" métre(s); recommencez", vbOKOnly, "OUPS!")
saisie = "" (Pourquoi toujours dire que saisie = rien ?)
ElseIf Val(saisie) > Val(maxi) Then
Rép = MsgBox("La" & msg & " ne peut être > à " & maxi & _
" métre(s); recommencez", vbOKOnly, "OUPS!")
saisie = ""
End If
End If

Encore merci !!!!!

 

[mercant76]

Re : Vba apprentissage

bonsoir,

en gros, la macro indiquée, sert à vérifier que ce qui est saisi est conforme, c'est à dire du numérique et non des lettres et pas < que le mini et pas > que le maxi.

ensuite à chaque fois, il y a saisie = "", celà permet de supprimer la mauvaise saisie pour repartir à zéro sans être obligé d'effacer la mauvaise saisie manuellement.

@+

 

[Raziel abel]

Re : Vba apprentissage

bonsoir,

en gros, la macro indiquée, sert à vérifier que ce qui est saisi est conforme, c'est à dire du numérique et non des lettres et pas < que le mini et pas > que le maxi.

ensuite à chaque fois, il y a saisie = "", celà permet de supprimer la mauvaise saisie pour repartir à zéro sans être obligé d'effacer la mauvaise saisie manuellement.

@+

Merci beaucoup pour la traduction!!!!!!

Bonne soirée à toi et au forum!

 

[fhoest]

Re : Vba apprentissage

Bonjour,
il y a un moyen de ne pas devoir faire une vérification de valeur numérique dans ce cas ci:

Private Sub Longueur_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    Select Case KeyAscii
        Case 46 To 57
        Case Else: KeyAscii = 13
     If KeyAscii = 13 Then KeyAscii = 0
    End Select
longueur.Value = Replace(longueur.Value, ".", ",")
End Sub

la valeur sera forcément numérique
A+

 

[Raziel abel]

Re : Vba apprentissage

Bonjour,
il y a un moyen de ne pas devoir faire une vérification de valeur numérique dans ce cas ci:

Private Sub Longueur_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    Select Case KeyAscii
        Case 46 To 57
        Case Else: KeyAscii = 13
     If KeyAscii = 13 Then KeyAscii = 0
    End Select
longueur.Value = Replace(longueur.Value, ".", ",")
End Sub

la valeur sera forcément numérique
A+

Bonjour fhoest!!!

Dans ce qui suit [Private Sub Longueur_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)], ce que tu as mis entre parenthése sert à quoi?

Merci!!!

 

[fhoest]

Re : Vba apprentissage

Cela sert a éviter d'avoir du texte car la touche du clavier numérique pour la virgule est un point hors si tu laisse un point ta valeur sera alors prise pour une valeur non numerique
donc on remplace le . par une ,
tout simplement
A+