les macros Function

Version imprimable

13/03/2024, 11h07
frunch

1 pièce(s) jointe(s)

les macros Function

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.
Pièce jointe 652087
ou comment est éxécuté le code. A voir ici
J'aimerais intégré le code directement dans la macro.
Merci
13/03/2024, 11h28
Philippe Tulliez

Bonjour,

Citation:

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:

=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
13/03/2024, 11h46
frunch

1 pièce(s) jointe(s)

Bonjour Philippe,
J'ai essayé la formule sur excel, çà marche.
mais en vba ?
Pièce jointe 652092
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
13/03/2024, 11h50
Valtrase

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

Pièce jointe 652093
13/03/2024, 12h05
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.
13/03/2024, 14h07
frunch

1 pièce(s) jointe(s)

Bonjour Valtrase,
C'est bon j'ai réussit.
Mais comment obtenez-vous l'éxécution du code dans cette fenêtre ?
Pièce jointe 652099
Et pour l'ID du vote c'est la colonne 1 et 3 avec le dept et la circonscription.
Merci
13/03/2024, 15h12
frunch

Bonjour Valtrase,
C'est bon j'ai réussit.
Mais comment obtenez-vous l'éxécution du code dans cette fenêtre ?
Pièce jointe 652099
Et pour l'ID du vote c'est la colonne 1 et 3 avec le dept et la circonscription.

Citation:

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
13/03/2024, 15h14
Philippe Tulliez

Bonjour,

Citation:

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)
13/03/2024, 15h16
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.
13/03/2024, 15h51
frunch

2 pièce(s) jointe(s)

Merci pour vos réponses, mais çà marche pas.
Pièce jointe 652101
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
13/03/2024, 16h19
Philippe Tulliez
Bonjour,

Citation:

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.

Citation:

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
13/03/2024, 16h49
Valtrase

Re,

Citation:

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:
13/03/2024, 17h42
deedolith

Code:

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 (&).
13/03/2024, 18h29
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:

1 2 3 4 5 Sub test1() Dim P P = "Toto" Debug.Print P; " Titi", "Tata" End Sub
Pièce jointe 652120
13/03/2024, 19h18
deedolith

Autant pour moi,
Je ne connaissait pas ce comportement.

@frunch:

Code:

? 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.

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