Discussion :

[casavba]

Bonjour,

j'ai une requete intégrée dans une macro, dans la requete j'ai des variables que j'ai déclaré "String", la macro marche à merveille.
Mon souci c'est que je veux mettre un contrôle au niveau d'une variable.
en fait j'ai associé cette variable à une cellule(ou plutôt à une valeur d'une cellule ex: mavariable=range("a1").value)
l'utilisateur doit saisir cette valeur.
sachant que la cellule est au format texte, et que les valeurs saisies sont du style( 456,879,...) elles doivent obligatoirement être séparées par des virgules.
Le contrôle que je veux mettre c quand l'utilisateur rempli la cellule en question, il faudra contrôler son contenu càd contrôler si les chiffres sont séparés par des virgules (3 chiffres puis une virgule et ainsi de suite)
si celà n'est pas respecté y aura un exit sub.
j'espère que je suis clair.
D'avance merci pour votre aide

[Invité]

Bonjour Casavba,

Un exemple parmi d'autres (en supposant qu'après le dernier nombre il n'y a pas de virgule sinon il faut mettre : nbsep = lg / 4) :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
nb = 0
lg = Len(mavariable)
nbsep = (lg - 3) / 4
For i = 1 To nbsep
nb = nb + 4
mc = Mid(mavariable, nb, 1)
If mc <> "," Then
MsgBox "Format non respecté" & mavariable & "!"
Exit Sub
End If
Next i

[ouskel'n'or]

Ou sinon, dans la feuille de code de la feuille de calculs pour avoir un contrôle au moment de la saisie

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Worksheet_Change(ByVal Target As Range)
Dim ok As Boolean
    ok = True
    If Target.Address(False, False) = "A1" Then
        For i = 4 To Len(Target) - 3 Step 4
            ok = ok And Mid(Target, i, 1) = ","
        Next
    End If
    If Not ok Then
        MsgBox "erreur de saisie, les points doivent être des virgules ^^^"
        Target.Select
    End If
End Sub

[casavba]

Merci à jacques et Modérateur