Discussion :

[frunch]

Bonjour,

J'ai besoin d'avoir le nombre d'espace quand j'ai un nom prenom qui comporte 3 parties, ex. Jean LA MONTAGNE.
Mais je comprends pas comment sont éxécutées ces functions.

ou comment est éxécuté le code. A voir ici
J'aimerais intégré le code directement dans la macro.
Merci

[Philippe Tulliez]

Bonjour,

Mais je comprends pas comment sont éxécutées ces functions.

Qu'est-ce que vous ne comprenez pas dans cette fonction ?
On calcule le nombre de caractères que contient la chaîne de caractères (Source) et l'on soustrait de ce résultat la même chaîne en lui enlevant les caractères espacés représenté par la variable c
La même chose dans excel où K2 contient la chaîne de caractères

Code :

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

=NBCAR(K2)-NBCAR(SUBSTITUE(K2;" ";""))

Si cette chaîne de caractères contient 15 caractères dont deux caractères espacés cela signifie que l'on calcule 15-13 soit 2

[frunch]

Bonjour Philippe,
J'ai essayé la formule sur excel, çà marche.
mais en vba ?
forum.xlsm
Exemple sur le nom du député MARTENS BILONGO Carlos en liste (en tapant mar dans le nom) pour que le nom aille en nom et le prenom en prenom.
et en vba sur Me.lstnoms.Column(0)
Merci

[Valtrase]

Bonjour à tous,
En complément des explications ci-dessus pour ta demande tu dois renseigner c par un espace.

Pièce jointe 652093

[Valtrase]

Re,
Tu devrais mettre une colonne ID sur le tableau vote, cela te facilitera le remplissage du formulaire.
Au lieux de refaire une recherche sur le nom, tu récupère la ListRow par rapport à son ID.

[frunch]

Bonjour Valtrase,
C'est bon j'ai réussit.
Mais comment obtenez-vous l'éxécution du code dans cette fenêtre ?

Et pour l'ID du vote c'est la colonne 1 et 3 avec le dept et la circonscription.
Merci

[frunch]

Bonjour Valtrase,
C'est bon j'ai réussit.
Mais comment obtenez-vous l'éxécution du code dans cette fenêtre ?

Et pour l'ID du vote c'est la colonne 1 et 3 avec le dept et la circonscription.

Au lieux de refaire une recherche sur le nom, tu récupère la ListRow par rapport à son ID.

l'utilisateur connait le nom mais pas l'ID.
Merci

[Philippe Tulliez]

Bonjour,

Mais comment obtenez-vous l'éxécution du code dans cette fenêtre ?

La fenêtre d'exécution est indispensable pour déboguer. Elle s'obtient en l'affichant. Onglet [Affichage] de l'éditeur VBA => Fenêtre d'exécution (Raccourci clavier Ctrl + G)

[deedolith]

Salut,

C'est la fenêtre d'exécution,
affichable depuis l'IDE (Menu: Affichage ==> Fenêtre Exécution, ou raccourcis clavier Ctrl + G).

Il suffit d'entrer le nom d'une fonction publique, avec les arguments si nécessaire et d'appuyer sur Entrer.
Tu peux obtenir la valeur de retour si tu précède le nom de la fonction d'un point d'interrogation.

Cette fenêtre est également utile pour debugger, ou afficher des traces.
Tous les messages issus de le fonction Debug.Print apparaitrons dans cette fenêtre.

[frunch]

Merci pour vos réponses, mais çà marche pas.

J'ai trouvé un tuto (sans pub) mais çà marche pas, c'est toujours mal expliqué.
J'utilise le msgbox avec l'exit sub depuis longtemps, et çà marche très bien.
Bsr

[Philippe Tulliez]

Bonjour,

J'utilise le msgbox avec l'exit sub depuis longtemps, et çà marche très bien.

On a déjà discuté MsgBox est chronophage Debug.Print permet d'obtenir le même résultat mais sans avoir le bouton ok sur lequel il faut cliquer
A côté de cela, il y a dans l'éditeur VBA (VBE) un tas d'outils permettant d'espionner les variables, de s'arrêter si un condition est à False, etc.

J'ai trouvé un tuto (sans pub) mais çà marche pas, c'est toujours mal expliqué.

Il y a sur ce site, un nombre impressionnant de tutoriels

Un peu de lecture

• Le débogage sous Visual Basic 6 et Visual Basic pour Application(1re partie)
• Vos premiers pas dans l'éditeur de macros Excel

[Valtrase]

Re,

l'utilisateur connait le nom mais pas l'ID.

Bien sur qu'il ne connait pas l'ID, mais au chargement de la zone de liste déroulante tu fais d'abords un AddItem sur l'id et ensuite la concaténation du nom et prénom sur la deuxième colonne tu pourras faire une recherche sur l'ID et récupérer la ListRow en fonction de cela.


Une autre méthode pour de petits tableau est de remplir la zone de liste déroulante avec l'ensemble des cellules de chaque lignes, ensuite tu joue sur la propriété Column de la zone de liste pour remplir les contrôles exemple :

Colonne 0	Colonne 1	Colonne 2	Colonne 3	colonne 4
Nom & Prénom	Nom	Prénom
Visible	Cachée	Cachée	Cachée	Cachée

Me.nom.Value = Me.lstnoms.column(1)


petite exemple de la première version:
J'ai ajouter deux modules qui représentent le minimum syndical:

[deedolith]

Code :

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

Debug.Print "p"; CountOfChars("Jean DE LA MONTAGNE", " ")

Avec une instruction invalide,
il est normal que tu te fasse insulter par le compilateur.

Remplace le point virgule par une éperluette (&).

[Valtrase]

Re,
@Deedolith Sur ce coup je ne suis pas d'accord avec toi Debug.Print reconnais bien le point virgule et même la virgule.

Code :

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

1
2
3
4
5
Sub test1()
    Dim P
    P = "Toto"
    Debug.Print P; " Titi", "Tata"
End Sub

Pièce jointe 652120

[deedolith]

Autant pour moi,
Je ne connaissait pas ce comportement.

@frunch:

Code :

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

? e

Tu tentes d'appeler une fonction Sub (ou procédure), mais ces dernières ne retournent pas de valeur.
Une telle fonction ne peut être invoquée avec le point d'interrogation.
Au mieux, le nom de la fonction suffit.
Au pire, utilises le mot clef Call.