Discussion :

[ryan44x]

Bonjour
Dans une page j ai cree une zone de texte
Je dois savoir quand je rentre un caractère sir ma chaine ne fait pas plus de 17 caractères

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub TestLongueur
Dim MonDocument As Object, LesFeuilles As Object
Dim MaFeuille As Object
Dim reponse As String
Dim LongChaine as Integer
Dim NumSerie as Object
 
MonDocument = ThisComponent
LesFeuilles = MonDocument.Sheets
MaFeuille = LesFeuilles.getByName("Feuille1")
NumSerie = maFeuille.drawPage.Forms.GetByName("NumSerie")
 
LongChaine = Len(MaFeuille.NumSerie.String)
if Len(LongChaine) > 17 then
    reponse = MsgBox("Votre numéro de série a plus de 17 caractères. Recommencez", vbOKOnly, "Erreur", "", 0)
    NumSerie.String = ""
End If
End Sub

Mais j ai a chaque fois des erreur
Mon code n est surement pas bon mais je ne vois pas ou
Merci de votre aide

[Michel]

Bonjour,
quand je lis ta question j'ai l'impression que que travailles dans writer mais si je regarde ton code en diagonale, j'y trouve des sheets qui font plutôt penser à Calc.
En fait, j'ai l'impression qu'il s’agit d'un champ texte dans un formulaire sur une feuille d'un classeur !
Pourrais-tu être un peu plus précis dans l'énoncé !

[Michel]

En fait, il y a quelques problèmes de définitions d'objets
Avec ce code au début, cela devrait aller mieux

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
 Sub TestLongueur
        Dim MonDocument As Object, LesFeuilles As Object, monFormulaire As Object
        Dim MaFeuille As Object
        Dim reponse As String
        Dim LongChaine as Integer
        Dim NumSerie as Object
 
        MonDocument = ThisComponent
        LesFeuilles = MonDocument.Sheets
        MaFeuille = LesFeuilles.getByName("Feuille1")
        monFormulaire=MaFeuille.DrawPage.Forms.GetByIndex(0)
        NumSerie = monFormulaire.GetByName("NumSerie")
 
        LongChaine = Len(NumSerie.String)

Ces deux lignes ne peuvent pas fonctionner

Code :

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

1
2
LongChaine = Len(MaFeuille.NumSerie.String)
if Len(LongChaine) > 17 then

Ce serait plutôt

Code :

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

1
2
3
 LongChaine = Len(NumSerie.Text)
       
        if LongChaine > 17 then

J'ai essayé string mais cela bloque et .Text fonctionne. Attention à une erreur de logique (distraction) dans le test

[Michel]

En regardant ce code, je me suis souvenu qu'on peut bloquer la longueur d'un champ à17 caractères maximum en jouant sur ses propriétés

[Michel]

Bonjour ryan44x
voila un code qui fonctionne !

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
Sub TestLongueur
        Dim MonDocument As Object, LesFeuilles As Object, monFormulaire As Object
        Dim MaFeuille As Object
        Dim reponse As String
        Dim LongChaine as Integer
        Dim NumSerie as Object
 
        MonDocument = ThisComponent
        LesFeuilles = MonDocument.Sheets
        MaFeuille = LesFeuilles.getByName("Feuille1")
        monFormulaire=MaFeuille.DrawPage.Forms.GetByIndex(0)
        NumSerie = monFormulaire.GetByName("NumSerie")
        LongChaine = Len(NumSerie.Text)
 
        if LongChaine > 17 then
        MsgBox("Votre numéro de série a plus de 17 caractères. Recommencez", vbOKOnly, "Erreur", "", 0)
    	NumSerie.Text = ""
		End If
 
End Sub

remarque : cela fonctionne aussi avec le nom du formulaire( GetByName("formulaire") ) plutôt que l'index (GetByIndex(0))
L'avantage de l'index,c'est que je ne dois pas connaitre le nom de ton formulaire !

Bon amusement!