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

10 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
bonjour,

voici l'extrait de l'aide xl2002 :

Mid, fonction, exemple
Ce premier exemple utilise la fonction Mid pour renvoyer un nombre de caractères déterminé parmi ceux composant une chaîne.

Dim MyString, FirstWord, LastWord, MidWords
MyString = "Démo Fonction Mid" ' Crée une chaîne texte.
FirstWord = Mid(MyString, 1, 4) ' Renvoie "Démo".
LastWord = Mid(MyString, 6, 8) ' Renvoie "Fonction".
MidWords = Mid(MyString, 6) ' Renvoie "Fonction Mid".



isabelle


désolé "FL" mais chez moi ca ne fonctionne pas
merçi
"Utilisateur1" a écrit dans le message de news:
44edb07b$0$897$

J'essais ça tout de suite
merçi encore
"FL" a écrit dans le message de news:
44edaf26$0$896$

Bonjour,
la solution de FxM fonctionne !

Essaie cela :
Sub der()
dercel = Range("G65000").End(xlUp).Row
For Each cel In Range("G2:G" & dercel)
cel = Mid(cel, 4, 1)
Next
End Sub

@+
FL

"Utilisateur1" a écrit dans le message de news:
44eda85e$0$1021$

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
isabelle
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
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
isabelle
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
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
isabelle
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
J'ai testé avec M ou m dans mon fichier exel et les 2 donnent M dans la
MsgBox
"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
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
jps
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
Mon bonjour au nouveau passager
bienvenue dans mon omnibus savoyard
"jps" a écrit dans le message de news:

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