Enchainement de fonctions, problème de format

Version imprimable

Bonjour a tous,

Merci infiniment à tous ceux qui participent au forum en posant des questions et surtout en y répondant. C'est mon premier job et j'ai un gros projet à mener en vba. Je ne sais pas comment j'aurai pu faire sans vous tous.

J'ai un petit problème de réglage que je n'arrive pas a solutionner.

On a une chaine de caractère du type "N° IMPAIRS DU 1 AU 59 ET N° PAIRS DU 2 AU 52" et j'ai besoin d'isoler dans une colonne l'intervalle des chiffres paires ("2 52") et dans une autre l'intervalle des chiffres impaire ("1 59"). Grâce a ce forum je commence a me débrouiller un peu dans la gestion des chaines de caractères donc j'ai réussi à écrire les trois petites fonctions ci-dessous que je compte utiliser dans une procédure.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 'ne conserve que les mots composés de valeurs numériques Function VALNUM(texte$) Dim i%, txt$() txt() = Split(texte) For i = 0 To UBound(txt) If IsNumeric(txt(i)) Then _ VALNUM = VALNUM & txt(i) & " " Next i End Function ' ne conserve que les valeurs numériques paires Function VALPAIR(texte$) Dim i%, txt$() txt() = Split(texte) For i = 0 To UBound(txt) If (txt(i) Mod 2) = 0 Then _ VALPAIR = VALPAIR & txt(i) & " " Next i End Function 'ne conserve que les valeurs numériques impaires Function VALIMPAIR(texte$) Dim i%, txt$() txt() = Split(texte) For i = 0 To UBound(txt) If (txt(i) Mod 2) <> 0 Then _ VALIMPAIR = VALIMPAIR & txt(i) & " " Next i End Function
Chacune des formules marchent biens isolément mais j'ai besoin d'associer VALNUM avec respectivement VALPAIR et VALIMPAIR. Or, quand je fait des testes sur ma feuille excel, je n'arrive pas a associer les formules que cela soit séparément (Exemple A1="N° IMPAIRS DU 1 AU 59" ; B1=VALNUM(A1)="1 59"; C1=VALIMPAIR(B1)="1 59") ou ensemble (Exemple B1=VALIMPAIR(VALNUM(A1))="1 59"). La cellule affiche un message "valeur".

Est-ce que la fonction nécessite une option particulière ou est-ce un problème de format ? Je crois qu'il me manque quelque chose.

Bonjour
Le premier réflexe normal d'un développeur est d'isoler chaque module.
Au lieu de regarder directement le résultat de ta fonction personnalisée, concentre-toi d'abord sur ce qu'elle fait.
Ce petit test (que tu aurais du faire) par exemple :
Code:

1 2 3 4 5 6 7 8 9 10 ch = "N° IMPAIRS DU 1 AU 59 ET N° PAIRS DU 2 AU 52" Dim i%, txt$() txt() = Split(ch) For i = 0 To UBound(txt) If (txt(i) Mod 2) = 0 Then _ valpair = valpair & txt(i) & " " '------->> Ah ouais ? et que pourrait bien être le modulo par 2 de "N°" (par exemple) ??? Ca va, la tête, oui ? Next i MsgBox valpair
te permettra de repérer immédiatement l'erreur commise (le modulo d'une valeur non numérique est insensé).
A toi de jouer, maintenant, plus intelligemment (facile...)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Function VALNUM(texte$, Optional NotPere As Boolean, Optional NotImPere As Boolean)
Dim i%, txt$()
txt() = Split(texte)
For i = 0 To UBound(txt)
    If IsNumeric(txt(i)) Then
      If Not NotPere Then: If (txt(i) Mod 2) = 0 Then VALNUM = VALNUM & txt(i) & " "
      If Not NotImPere Then: If (txt(i) Mod 2 <> 0) Then VALNUM = VALNUM & txt(i) & " "
    End If
Next i
End Function
 
Sub test()
Debug.Print VALNUM("N° IMPAIRS DU 1 AU 59 ET N° PAIRS DU 2 AU 52")
Debug.Print VALNUM("N° IMPAIRS DU 1 AU 59 ET N° PAIRS DU 2 AU 52", True)
Debug.Print VALNUM("N° IMPAIRS DU 1 AU 59 ET N° PAIRS DU 2 AU 52", NotImPere:=True)
End Sub

11/01/2018, 11h59
SectoSSD

Merci @unparia de vous préoccuper de l'état de ma tête.

Comme je le disais, il s'agit d'utiliser la fonction qui ne conserve que les valeurs numériques PUIS d'utiliser celle qui ne conserve que les valeurs paires ou impaires.

Peut-être n'ai-je pas compris le sens exacte de votre proposition.

Merci @dysorthographie de votre proposition de fonction.

Je dois prendre ma pose déjeuner mais je reviendrais dans une heure.

Cordialement,

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Function VALNUMOrTXT(texte$, Optional NotPere As Boolean, Optional NotImPere As Boolean)
Dim i%, txt$()
txt() = Split(texte)
For i = 0 To UBound(txt)
    If IsNumeric(txt(i)) Then
      If Not NotPere Then: If (txt(i) Mod 2) = 0 Then VALNUMOrTXT = VALNUMOrTXT & txt(i) & " "
      If Not NotImPere Then: If (txt(i) Mod 2 <> 0) Then VALNUMOrTXT = VALNUMOrTXT & txt(i) & " "
    Else
       If NotPere * NotImPere Then VALNUMOrTXT = VALNUMOrTXT & txt(i) & " "
    End If
Next i
End Function
Sub test()
Debug.Print VALNUMOrTXT("N° IMPAIRS DU 1 AU 59 ET N° PAIRS DU 2 AU 52")
Debug.Print VALNUMOrTXT("N° IMPAIRS DU 1 AU 59 ET N° PAIRS DU 2 AU 52", True)
Debug.Print VALNUMOrTXT("N° IMPAIRS DU 1 AU 59 ET N° PAIRS DU 2 AU 52", NotImPere:=True)
Debug.Print VALNUMOrTXT("N° IMPAIRS DU 1 AU 59 ET N° PAIRS DU 2 AU 52", True, True)
End Sub

11/01/2018, 12h29
unparia

Citation:

Peut-être n'ai-je pas compris le sens exacte de votre proposition.

Me fait pleurer ... Vraiment.
Et je n'ai rien "proposé". Je me suis contenté de pointer du doigt une chose manifestement insensée. ;)
11/01/2018, 13h04
Phil Free

Enchainement de fonctions, problème de format

Bonjour,

hmmm... si A1="N° IMPAIRS DU 1 AU 59" alors B1=VALNUM(A1) ne renvois pas "1 59" mais renvois "1 59 "

de fait VALPAIR(VALNUM(A1)) renvois #Valeur car lors de l’exécution de la boucle dans de tes fonctions VALPAIR ou VALIMPAIR la derniere valeur de txt(i) sera vide !

Donc dans ta fonction VALNUM soit tu geres avec une condition if bien placé pour éviter d'avoir un espace en trop soit tu utilises
RTrim$ à la fin de cette fonction.

Unparia Bonjour, oui mais à priori SectoSSD injecte le type de chaine tel que "N° IMPAIRS DU 1 AU 59" uniquement dans la fonction VALNUM afin d'en extraire les valeurs numériques et ne prend donc pas trop de risque avec la fonction isnumeric().

A+

Philippe
11/01/2018, 13h14
SectoSSD

Je vous remercie dysorthographie pour votre code. Visiblement vous proposez une fonction qui sélectionne les caractères numériques puis, éventuellement, qui sélectionne les paires ou les impaires.

Je suis navré mais je ne sais pas utiliser cette fonction. Je suis parti du principe qu'elle fonctionnait avec deux arguments : le premier pour désigner la cellule source et le deuxième pour expliquer si l'on voulait garder les paires ou les impaires. J'ai donc essayer de rédiger des =VALNUM(A1,pere) ou VALNUM(A1,0) ou VALNUM(A1,vrai) ou encore VALNUM(A1,true). Il n'y a rien qui marche.

Il doit y avoir des choses qui sont pour vous des évidences mais que j'ignore.
11/01/2018, 13h25
Invité

1 pièce(s) jointe(s)

B1=VALNUM(A1)
C1=VALNUM(A1;VRAI)
D1=VALNUM(A1; ;VRAI)

Ou
B1=VALNUM(A1)
C1=VALNUM(B1;VRAI)
D1=VALNUM(B1; ;VRAI)

Pièce jointe 341643
11/01/2018, 13h25
SectoSSD

Bonjour @Phil Free,

C'est exactement ça le problème. La preuve dans mes testes : quand j'insère une fonction SUPPRESPACE avant la fonction VALPAIRE ou VALIMPAIRE ça marche très bien.

Je vous remercie je sais maintenant exactement d'où ça vient.
11/01/2018, 13h31
SectoSSD

Merci @dysorthographie, votre fonction marche très bien. Excellente journée à vous.