Utilisation des Messages d'Erreur?

[YANN-56]

Bonsoir ou Bonjour, suivant l'heure à ceux qui passeront par là.

Je ne parviens pas à gérer les messages d'erreurs.
Il est vrai qu'en VBA, je balbutie encore beaucoup!

Je joins deux Fichiers à mettre impérativement dans un même répertoire.

Le Classeur "MOTEUR" va chercher dans le Classeur "TARIF" un Prix suivant
la saisie dans les TextBoxes "LARGEUR et HAUTEUR"
(Ne pas se préoccuper des manœuvres ni des coffres)

Le souci est qu'au-delà de la plage Largeur/Hauteur du Classeur "TARIF" => Plouff

C'est pour cela que je cherche à trouver comment faire pour avoir
un Message d'erreur, point par point, et cesser la procédure avant le Plantage; si l'utilisateur entre une dimension erronée.

Merci d'avance pour m'avoir évité, si vous m'aidez,
de m'ajouter nombre de cernes et enlever poignées à la tignasse.

Yann

 

[Fred0o]

Re : Utilisation des Messages d'Erreur?

Bonsoir Yann,

Voici comment tu peux modifier ton code pour gérer les hauteurs et largeurs inconnues dans ta base :

Private Sub CommandButton1_Click()
    ThisWorkbook.FollowHyperlink ActiveWorkbook.Path & "\" & "TARIF.xls"
    For i = 1 To Sheets.Count
        If Sheets(i).Cells(1, 4).Value = TABLIER Then
            Sheets(i).Activate
            Dim LARGEUR As Integer
            Dim HAUTEUR As Integer
            For Each L In ActiveSheet.Range(Cells(17, 2), Cells(17, 30))
                If L.Value = UserForm1.TextBox1.Text Then LARGEUR = L.Column
            Next
            For Each H In ActiveSheet.Range(Cells(18, 1), Cells(50, 1))
                If H.Value = UserForm1.TextBox2.Text Then HAUTEUR = H.Row
            Next
[COLOR=red]            If HAUTEUR = 0 Then[/COLOR]
[COLOR=red]                MsgBox ("Hauteur saisie incorrecte. Veuillez recommencer.")[/COLOR]
[COLOR=red]            ElseIf LARGEUR = 0 Then[/COLOR]
[COLOR=red]                MsgBox ("Largeur saisie incorrecte. Veuillez recommencer.")[/COLOR]
[COLOR=red]            Else[/COLOR]
[COLOR=red]                UserForm1.Label1.Caption = Round(ActiveSheet.Cells(HAUTEUR, LARGEUR).Value, 2)[/COLOR]
[COLOR=red]            End If[/COLOR]
        End If
    Next
    ActiveWorkbook.Save
    ActiveWorkbook.Close
End Sub

A+

 

[YANN-56]

Re : Utilisation des Messages d'Erreur?

A Fred0o

Quant à comprendre les réponses: La tienne; je l'ai fait!
En plus avec un " ElseIf" que je n'ai jamais osé utiliser…! 😕
Superbe!!!

Sincère Merci. C'est vraiment gentil de ta part.

Qu'il est bon au bord de l'abandon de rencontrer ainsi de l'aide.🙂

Bonne fin de semaine à toi et à tous.

Yann