Discussion :

[Guy FALESSE]

Bonjour,

J'ai cette sub:

Code :

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

1
2
3
4
5
6
7
8
Private Sub Commande19_Click()
    Dim CetteAnnée As String, NFacture As String
    'Nfact_an peut contenir 123/2006 ou 25/2006 ou encore 6/2006
    CetteAnnée = Right(Me!NFact_an, 4)
    MsgBox ("") & CetteAnnée
    NFacture = Left(Me!NFact_an, 3)
    MsgBox ("") & NFacture
End Sub

Le problème est qu'avec la fonction right() j'ai le bon résultat, par contre avec la fonction left(), là, je sèche lamentablement.
Le but étant d'afficher tous les chiffres de gauche, 1,2,ou encore 3.
S'il y avait une âme charitable pour me sortir delà, j'en serais très heureux.
D'avance merci.
Guy FALESSE

[madefemere]

Bonjour,
Si ton NFact est toujours sous le format ../...., tu peux utiliser la fonction Instr pour trouver la position du "/" et trouver la partie gauche; On aurait :

Code :

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

1
2
3
4
5
6
7
8
Private Sub Commande19_Click()
    Dim CetteAnnée As String, NFacture As String
    'Nfact_an peut contenir 123/2006 ou 25/2006 ou encore 6/2006
    CetteAnnée = Right(Me!NFact_an, 4)
    MsgBox ("") & CetteAnnée
    NFacture = Left(Me!NFact_an, (Instr(1,Me!NFact_an,"/")-1))
    MsgBox ("") & NFacture
End Sub

Bonne continuation.

[Guy FALESSE]

Salut madefemere,

Merci pour ta réponse rapide.
Tout fonctionne à merveille.
C'est ce que je cherchais en vain.
@+
Guy FALESSE