Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access ÉTUDIANT DEMANDE AIDE

ÉTUDIANT DEMANDE AIDE

5 réponses
Avatar
LFC
bonjour je suis un étudiant et je doois créer un programme en VBA sous access
j'aimerais savoir s'il est possible de traiter une donnée entrée en ne
tenant compte que du premier caractère.

C'est une appllication qui traite les résistances.

ex : 134

ne retenir que le 1 pour mettre la couleur brune à la première (je sais
comment).
ensuite prendre le 3 seul et mettre la couleur
ect...

merci beaucoup
Signaler un problème avec ce contenu

5 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Patrick Fredin
Bonjour,

Je pense qu'en utilisant les fonctions Left (Left(texte, 1)), Mid
(Mid(texte, 2, 1)) et Right (Right(texte, 1)) tu devrais y arriver.

--
Patrick

"LFC" wrote in message
news:
bonjour je suis un étudiant et je doois créer un programme en VBA sous
access
j'aimerais savoir s'il est possible de traiter une donnée entrée en ne
tenant compte que du premier caractère.

C'est une appllication qui traite les résistances.

ex : 134

ne retenir que le 1 pour mettre la couleur brune à la première (je sais
comment).
ensuite prendre le 3 seul et mettre la couleur
ect...

merci beaucoup



Avatar
pat
Bonjour "LFC"

Je pense que tu va utiliser le NMROJVBVGB
pour 1 2 3 4 5 6 7 8 9 0
(correspondance des couleurs de résistances vers chiffres pour les
non-electroniciens)

A la suite de la réponse de Patrick, qui va extraire le chiffre de ta valeur
ohmique

je pencherais vers un "select case" du style...enfin c'est selon ce que tu
veux faire !

dim MACOULEUR as String
......
select case MONCHIFFREEXTRAIT
case 1
MACOULEUR= "Noir" ou "N" selon tes besoins
case 2
MACOULEUR= "Marron" ou "M" selon tes besoins
case etc... jusqu'à 0
case 0
MACOULEUR = "Blanc" ou "B" selon tes besoins
case else
MACOULEUR=""
end select
----
puis ton code qui concatènera les couleurs pour chaque chiffre retenu par
les fonction left right et mid

une autre..... Patrick ;-))




"LFC" a écrit dans le message de news:

bonjour je suis un étudiant et je doois créer un programme en VBA sous
access
j'aimerais savoir s'il est possible de traiter une donnée entrée en ne
tenant compte que du premier caractère.

C'est une appllication qui traite les résistances.

ex : 134

ne retenir que le 1 pour mettre la couleur brune à la première (je sais
comment).
ensuite prendre le 3 seul et mettre la couleur
ect...

merci beaucoup



Avatar
RaphK34
Bonjour,
je pense quand même que CHOOSE serait plus à proprié dans ce cas là:

MaCouleur=Choose (MonChiffreExtrait "Blanc","Noir", ......

Qu'est ce qu'on gagne comme ligne ... ;)


--
--------------------------------------------
Merci de répondre sur le NG
Toutes remarques bienvenues !

Pour un contact direct, utiliser:
en enlevant nospam.
--------------------------------------------

"pat" a écrit dans le message de news:
| Bonjour "LFC"
|
| Je pense que tu va utiliser le NMROJVBVGB
| pour 1 2 3 4 5 6 7 8 9 0
| (correspondance des couleurs de résistances vers chiffres pour les
| non-electroniciens)
|
| A la suite de la réponse de Patrick, qui va extraire le chiffre de ta valeur
| ohmique
|
| je pencherais vers un "select case" du style...enfin c'est selon ce que tu
| veux faire !
|
| dim MACOULEUR as String
| ......
| select case MONCHIFFREEXTRAIT
| case 1
| MACOULEUR= "Noir" ou "N" selon tes besoins
| case 2
| MACOULEUR= "Marron" ou "M" selon tes besoins
| case etc... jusqu'à 0
| case 0
| MACOULEUR = "Blanc" ou "B" selon tes besoins
| case else
| MACOULEUR=""
| end select
| ----
| puis ton code qui concatènera les couleurs pour chaque chiffre retenu par
| les fonction left right et mid
|
| une autre..... Patrick ;-))
|
|
|
|
| "LFC" a écrit dans le message de news:
|
| > bonjour je suis un étudiant et je doois créer un programme en VBA sous
| > access
| > j'aimerais savoir s'il est possible de traiter une donnée entrée en ne
| > tenant compte que du premier caractère.
| >
| > C'est une appllication qui traite les résistances.
| >
| > ex : 134
| >
| > ne retenir que le 1 pour mettre la couleur brune à la première (je sais
| > comment).
| > ensuite prendre le 3 seul et mettre la couleur
| > ect...
| >
| > merci beaucoup
| >
|
|
Avatar
pat
Boujour,

Bien vu, honte sur moi....

;-))

Patrick
"RaphK34" a écrit dans le message de news:

Bonjour,
je pense quand même que CHOOSE serait plus à proprié dans ce cas là:

MaCouleur=Choose (MonChiffreExtrait "Blanc","Noir", ......

Qu'est ce qu'on gagne comme ligne ... ;)


--
--------------------------------------------
Merci de répondre sur le NG
Toutes remarques bienvenues !

Pour un contact direct, utiliser:
en enlevant nospam.
--------------------------------------------

"pat" a écrit dans le message de news:

| Bonjour "LFC"
|
| Je pense que tu va utiliser le NMROJVBVGB
| pour 1 2 3 4 5 6 7 8 9 0
| (correspondance des couleurs de résistances vers chiffres pour les
| non-electroniciens)
|
| A la suite de la réponse de Patrick, qui va extraire le chiffre de ta
valeur
| ohmique
|
| je pencherais vers un "select case" du style...enfin c'est selon ce que
tu
| veux faire !
|
| dim MACOULEUR as String
| ......
| select case MONCHIFFREEXTRAIT
| case 1
| MACOULEUR= "Noir" ou "N" selon tes besoins
| case 2
| MACOULEUR= "Marron" ou "M" selon tes besoins
| case etc... jusqu'à 0
| case 0
| MACOULEUR = "Blanc" ou "B" selon tes besoins
| case else
| MACOULEUR=""
| end select
| ----
| puis ton code qui concatènera les couleurs pour chaque chiffre retenu
par
| les fonction left right et mid
|
| une autre..... Patrick ;-))
|
|
|
|
| "LFC" a écrit dans le message de news:
|
| > bonjour je suis un étudiant et je doois créer un programme en VBA sous
| > access
| > j'aimerais savoir s'il est possible de traiter une donnée entrée en ne
| > tenant compte que du premier caractère.
| >
| > C'est une appllication qui traite les résistances.
| >
| > ex : 134
| >
| > ne retenir que le 1 pour mettre la couleur brune à la première (je
sais
| > comment).
| > ensuite prendre le 3 seul et mettre la couleur
| > ect...
| >
| > merci beaucoup
| >
|
|




Avatar
RaphK34
Aucune honte, juste une étourderie ;)

--
--------------------------------------------
Merci de répondre sur le NG
Toutes remarques bienvenues !

Pour un contact direct, utiliser:
en enlevant nospam.
--------------------------------------------

"pat" a écrit dans le message de news:
| Boujour,
|
| Bien vu, honte sur moi....
|
| ;-))
|
| Patrick
| "RaphK34" a écrit dans le message de news:
|
| > Bonjour,
| > je pense quand même que CHOOSE serait plus à proprié dans ce cas là:
| >
| > MaCouleur=Choose (MonChiffreExtrait "Blanc","Noir", ......
| >
| > Qu'est ce qu'on gagne comme ligne ... ;)
| >
| >
| > --
| > --------------------------------------------
| > Merci de répondre sur le NG
| > Toutes remarques bienvenues !
| >
| > Pour un contact direct, utiliser:
| > en enlevant nospam.
| > --------------------------------------------
| >
| > "pat" a écrit dans le message de news:
| >
| > | Bonjour "LFC"
| > |
| > | Je pense que tu va utiliser le NMROJVBVGB
| > | pour 1 2 3 4 5 6 7 8 9 0
| > | (correspondance des couleurs de résistances vers chiffres pour les
| > | non-electroniciens)
| > |
| > | A la suite de la réponse de Patrick, qui va extraire le chiffre de ta
| > valeur
| > | ohmique
| > |
| > | je pencherais vers un "select case" du style...enfin c'est selon ce que
| > tu
| > | veux faire !
| > |
| > | dim MACOULEUR as String
| > | ......
| > | select case MONCHIFFREEXTRAIT
| > | case 1
| > | MACOULEUR= "Noir" ou "N" selon tes besoins
| > | case 2
| > | MACOULEUR= "Marron" ou "M" selon tes besoins
| > | case etc... jusqu'à 0
| > | case 0
| > | MACOULEUR = "Blanc" ou "B" selon tes besoins
| > | case else
| > | MACOULEUR=""
| > | end select
| > | ----
| > | puis ton code qui concatènera les couleurs pour chaque chiffre retenu
| > par
| > | les fonction left right et mid
| > |
| > | une autre..... Patrick ;-))
| > |
| > |
| > |
| > |
| > | "LFC" a écrit dans le message de news:
| > |
| > | > bonjour je suis un étudiant et je doois créer un programme en VBA sous
| > | > access
| > | > j'aimerais savoir s'il est possible de traiter une donnée entrée en ne
| > | > tenant compte que du premier caractère.
| > | >
| > | > C'est une appllication qui traite les résistances.
| > | >
| > | > ex : 134
| > | >
| > | > ne retenir que le 1 pour mettre la couleur brune à la première (je
| > sais
| > | > comment).
| > | > ensuite prendre le 3 seul et mettre la couleur
| > | > ect...
| > | >
| > | > merci beaucoup
| > | >
| > |
| > |
| >
| >
|
|