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 Excel afficher automatiquement 3 ème caractère

afficher automatiquement 3 ème caractère

22 réponses
Avatar
Utilisateur1
Bonjour à tous!
J'utilise le code suivant pour attribuer la valeur "1"
à toutes les cellules de la colonne G de mon tableau
qui ont à l'origine la valeur "M"

dercel = Range("G65000").End(xlUp).Row
Range("G2:G" & dercel).Name = "zone"
Range("G2:G" & dercel).Select
For Each cel In Selection

If cel.Value = "M" Then cel.Value = 1

Je connais la formule suivante =STXT(A1;4;255) qui me permet
d'extraire la lettre x de chaine amtx en A1 par exemple.

Je cherche le code qui me permettrait d'afficher automatiquement
le 4ème caractère dans les cellules de ma colonne G
par exemple;
O POUR AEROP
F POUR GRAFI

merci d'avance
Signaler un problème avec ce contenu

2 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
1 2 3
Avatar
isabelle
salut mon ange,

c'est compliqué dès fois ;-)

Utilisateur1, il faudrait remplacer dans ta procédure :

If cel.Value = "M" Then cel.Value = 1

par

If UCase(Mid(cel.Value, 4, 1)) = "M" Then cel.Value = UCase(Mid(texte, 4, 1))

isabelle


bonjour
je prends le train en marche (il doit être de marchandises car il est
sacrément long mais il s'est arrêté à Sherwood)
si tu remplaces, utilisateur1, le M par un m dans la proc de mon ange
(private joke) tu es cuit
en effet le UCase qui précède le Mid élève ton "m" à la majuscule s'il
devait être minuscule dans ta cellule et ensuite, la proc dit que le M
est majuscule...forcément
jps

"Utilisateur1" a écrit dans le message de news:
44edd55f$0$27388$

Si je remplace M par m dans ton code il ne se passe rien
"isabelle" a écrit dans le message de news:
O6#

c'est encourageant, on avance,
c'est probablement le majuscule (M) qu'il faut prendre en considération,
ou non, tu saura me le dire, si le résultat de Mid(texte, 4, 1) est "m"


(minuscule) c'est à dire

si "m"="M"
la condition est t'elle vrai ou fausse ?

essaie celle ci :

Sub Macro1()
texte = "asdmq"
If UCase(Mid(texte, 4, 1)) = "M" Then MsgBox UCase(Mid(texte, 4, 1))
End Sub

isabelle


J' ai bien mon "w" qui s'affiche
(désolé pour la réactivité)
"isabelle" a écrit dans le message de news:


si tu veut bien,
essaie cette nouvelle macro et dit moi s'il y a bien une boite de




message


qui s'ouvre avec comme information "w"

Sub Macro1()
texte = "asdwq"
MsgBox Mid(texte, 4, 1)
End Sub

isabelle



je n'ai pas de message d'erreur
il ne ce passe rien
"isabelle" a écrit dans le message de news:
#


lorsque tu dit "mais chez moi ca ne fonctionne pas"
est ce que c'est la fonction Mid qui ne fonctionne pas ?
y a t'il un message d'erreur ?

isabelle






bonjour
Oui Isabelle
je veux remplacer le contenu de la cellule par cette unique valeur

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




bonjour,

je n'ai pas bien compris ce que tu cherche à faire, quant tu dit :



Je cherche le code qui me permettrait d'afficher automatiquement
le 4ème caractère dans les cellules de ma colonne G


le code donner par FxM est correct pour trouver le 4ème caractère

texte = "asdwq"
x = Mid(texte, 4, 1)

la variable x est bien égal à "w"

maintenent que veut tu faire avec ce "w"
est ce que tu veut remplacer le contenu de la cellule par cette








unique


valeur ?



ou bien veut tu mettre ce résultat dans une cellule adjacente ?

isabelle







Je n'ai pas trouvé mon bonheur du coté de "MID"
merci quand même
"Utilisateur1" a écrit dans le message de
news:
44eda37a$0$857$




Merci je vais essayer

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





Bonjour Utilisateur1,

Vois du coté de MID(...)
mid(texte,4,1) renvoit "t" (le second)
mid(texte,3,2) renvoit "xt"

@+
FxM






Bonjour à tous!
J'utilise le code suivant pour attribuer la valeur "1"
à toutes les cellules de la colonne G de mon tableau
qui ont à l'origine la valeur "M"

dercel = Range("G65000").End(xlUp).Row
Range("G2:G" & dercel).Name = "zone"
Range("G2:G" & dercel).Select
For Each cel In Selection

If cel.Value = "M" Then cel.Value = 1

Je connais la formule suivante =STXT(A1;4;255) qui me permet
d'extraire la lettre x de chaine amtx en A1 par exemple.

Je cherche le code qui me permettrait d'afficher
automatiquement
le 4ème caractère dans les cellules de ma colonne G
par exemple;
O POUR AEROP
F POUR GRAFI

merci d'avance





































Avatar
Utilisateur1
Merci les anges
ce soir je dois partir je vous tiens au courant de mes Progrès

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

salut mon ange,

c'est compliqué dès fois ;-)

Utilisateur1, il faudrait remplacer dans ta procédure :

If cel.Value = "M" Then cel.Value = 1

par

If UCase(Mid(cel.Value, 4, 1)) = "M" Then cel.Value = UCase(Mid(texte, 4,
1))


isabelle


bonjour
je prends le train en marche (il doit être de marchandises car il est
sacrément long mais il s'est arrêté à Sherwood)
si tu remplaces, utilisateur1, le M par un m dans la proc de mon ange
(private joke) tu es cuit
en effet le UCase qui précède le Mid élève ton "m" à la majuscule s'il
devait être minuscule dans ta cellule et ensuite, la proc dit que le M
est majuscule...forcément
jps

"Utilisateur1" a écrit dans le message de news:
44edd55f$0$27388$

Si je remplace M par m dans ton code il ne se passe rien
"isabelle" a écrit dans le message de news:
O6#

c'est encourageant, on avance,
c'est probablement le majuscule (M) qu'il faut prendre en
considération,




ou non, tu saura me le dire, si le résultat de Mid(texte, 4, 1) est
"m"





(minuscule) c'est à dire

si "m"="M"
la condition est t'elle vrai ou fausse ?

essaie celle ci :

Sub Macro1()
texte = "asdmq"
If UCase(Mid(texte, 4, 1)) = "M" Then MsgBox UCase(Mid(texte, 4, 1))
End Sub

isabelle


J' ai bien mon "w" qui s'affiche
(désolé pour la réactivité)
"isabelle" a écrit dans le message de news:


si tu veut bien,
essaie cette nouvelle macro et dit moi s'il y a bien une boite de




message


qui s'ouvre avec comme information "w"

Sub Macro1()
texte = "asdwq"
MsgBox Mid(texte, 4, 1)
End Sub

isabelle



je n'ai pas de message d'erreur
il ne ce passe rien
"isabelle" a écrit dans le message de news:
#


lorsque tu dit "mais chez moi ca ne fonctionne pas"
est ce que c'est la fonction Mid qui ne fonctionne pas ?
y a t'il un message d'erreur ?

isabelle






bonjour
Oui Isabelle
je veux remplacer le contenu de la cellule par cette unique
valeur










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




bonjour,

je n'ai pas bien compris ce que tu cherche à faire, quant tu dit
:













Je cherche le code qui me permettrait d'afficher
automatiquement











le 4ème caractère dans les cellules de ma colonne G


le code donner par FxM est correct pour trouver le 4ème
caractère











texte = "asdwq"
x = Mid(texte, 4, 1)

la variable x est bien égal à "w"

maintenent que veut tu faire avec ce "w"
est ce que tu veut remplacer le contenu de la cellule par cette








unique


valeur ?



ou bien veut tu mettre ce résultat dans une cellule adjacente ?

isabelle







Je n'ai pas trouvé mon bonheur du coté de "MID"
merci quand même
"Utilisateur1" a écrit dans le message de
news:
44eda37a$0$857$




Merci je vais essayer

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





Bonjour Utilisateur1,

Vois du coté de MID(...)
mid(texte,4,1) renvoit "t" (le second)
mid(texte,3,2) renvoit "xt"

@+
FxM






Bonjour à tous!
J'utilise le code suivant pour attribuer la valeur "1"
à toutes les cellules de la colonne G de mon tableau
qui ont à l'origine la valeur "M"

dercel = Range("G65000").End(xlUp).Row
Range("G2:G" & dercel).Name = "zone"
Range("G2:G" & dercel).Select
For Each cel In Selection

If cel.Value = "M" Then cel.Value = 1

Je connais la formule suivante =STXT(A1;4;255) qui me
permet














d'extraire la lettre x de chaine amtx en A1 par exemple.

Je cherche le code qui me permettrait d'afficher
automatiquement
le 4ème caractère dans les cellules de ma colonne G
par exemple;
O POUR AEROP
F POUR GRAFI

merci d'avance







































1 2 3