Discussion :

[tibofo]

Bonjour,
J'ai 1 form.
Je lis un fichier Excel et j'affiche dans mon form : la ligne lue, et l'adresse du contact lu.

J'ai mis 2 textbox qui affiche cette adresse.

Je voudrais que mon programme s'arrête quand l'adresse est trop longue (supérieure à 35 caractères) pour permettre à l'utilisateur, de corriger l'adresse via les 2 textbox (pour la raccourcir)

Est-ce possible ou suis-je obligé de créer un autre form pour saisir la correction ?

Merci
Thib

[ProgElecT]

Salut

Faire une condition If Len(adresse) > 35 Then au moment de la lecture de la ligne du fichier Excel.
Le principe

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Command1_Click()
Dim Adresse As String, MemoAdrss As String
Adresse = "pas trop long mais au moins plus de 35 caractères"
MemoAdrss = Adresse
If Len(Adresse) > 35 Then
    Do
        Adresse = InputBox("Adresse: " & vbNewLine & MemoAdrss & vbNewLine & "Maximum 35 caractères", "Adresse trop longue", Left(Adresse, 35))
        If Adresse = "" Then Adresse = MemoAdrss 'pour le cas ou l'utilisateur clic le bouton ''Annuler''
    Loop Until Len(Adresse) <= 35
    MsgBox "c'est bon"
End If
End Sub

Tant que l'utilisateur ne réduit pas à un maximum de 35 caractères, il reste dans la boucle Do ....Loop.