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
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
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
Bonjour Utilisateur1,
Vois du coté de MID(...)
mid(texte,4,1) renvoit "t" (le second)
mid(texte,3,2) renvoit "xt"
@+
FxMBonjour à 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
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
Bonjour Utilisateur1,
Vois du coté de MID(...)
mid(texte,4,1) renvoit "t" (le second)
mid(texte,3,2) renvoit "xt"
@+
FxMBonjour à 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
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"
@+
FxMBonjour à 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
Merci je vais essayer
"FxM" <nullos@greuchmeu.ici> a écrit dans le message de news:
OiS8HU2xGHA.2168@TK2MSFTNGP06.phx.gbl...
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
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"
@+
FxMBonjour à 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
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"
@+
FxMBonjour à 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
Je n'ai pas trouvé mon bonheur du coté de "MID"
merci quand même
"Utilisateur1" <ychene@wanadoo.fr> a écrit dans le message de news:
44eda37a$0$857$ba4acef3@news.orange.fr...
Merci je vais essayer
"FxM" <nullos@greuchmeu.ici> a écrit dans le message de news:
OiS8HU2xGHA.2168@TK2MSFTNGP06.phx.gbl...
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
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"
@+
FxMBonjour à 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
Je cherche le code qui me permettrait d'afficher automatiquement
le 4ème caractère dans les cellules de ma colonne G
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"
@+
FxMBonjour à 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
Je cherche le code qui me permettrait d'afficher automatiquement
le 4ème caractère dans les cellules de ma colonne G
Je n'ai pas trouvé mon bonheur du coté de "MID"
merci quand même
"Utilisateur1" <ychene@wanadoo.fr> a écrit dans le message de news:
44eda37a$0$857$ba4acef3@news.orange.fr...
Merci je vais essayer
"FxM" <nullos@greuchmeu.ici> a écrit dans le message de news:
OiS8HU2xGHA.2168@TK2MSFTNGP06.phx.gbl...
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
Je cherche le code qui me permettrait d'afficher automatiquement
le 4ème caractère dans les cellules de ma colonne G
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"
@+
FxMBonjour à 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
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"
@+
FxMBonjour à 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
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" <ychene@wanadoo.fr> a écrit dans le message de news:
44eda85e$0$1021$ba4acef3@news.orange.fr...
Je n'ai pas trouvé mon bonheur du coté de "MID"
merci quand même
"Utilisateur1" <ychene@wanadoo.fr> a écrit dans le message de news:
44eda37a$0$857$ba4acef3@news.orange.fr...
Merci je vais essayer
"FxM" <nullos@greuchmeu.ici> a écrit dans le message de news:
OiS8HU2xGHA.2168@TK2MSFTNGP06.phx.gbl...
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
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"
@+
FxMBonjour à 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
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"
@+
FxMBonjour à 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
J'essais ça tout de suite
merçi encore
"FL" <nospam@nospam.fr> a écrit dans le message de news:
44edaf26$0$896$ba4acef3@news.orange.fr...
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" <ychene@wanadoo.fr> a écrit dans le message de news:
44eda85e$0$1021$ba4acef3@news.orange.fr...
Je n'ai pas trouvé mon bonheur du coté de "MID"
merci quand même
"Utilisateur1" <ychene@wanadoo.fr> a écrit dans le message de news:
44eda37a$0$857$ba4acef3@news.orange.fr...
Merci je vais essayer
"FxM" <nullos@greuchmeu.ici> a écrit dans le message de news:
OiS8HU2xGHA.2168@TK2MSFTNGP06.phx.gbl...
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
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"
@+
FxMBonjour à 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
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"
@+
FxMBonjour à 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
désolé "FL" mais chez moi ca ne fonctionne pas
merçi
"Utilisateur1" <ychene@wanadoo.fr> a écrit dans le message de news:
44edb07b$0$897$ba4acef3@news.orange.fr...
J'essais ça tout de suite
merçi encore
"FL" <nospam@nospam.fr> a écrit dans le message de news:
44edaf26$0$896$ba4acef3@news.orange.fr...
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" <ychene@wanadoo.fr> a écrit dans le message de news:
44eda85e$0$1021$ba4acef3@news.orange.fr...
Je n'ai pas trouvé mon bonheur du coté de "MID"
merci quand même
"Utilisateur1" <ychene@wanadoo.fr> a écrit dans le message de news:
44eda37a$0$857$ba4acef3@news.orange.fr...
Merci je vais essayer
"FxM" <nullos@greuchmeu.ici> a écrit dans le message de news:
OiS8HU2xGHA.2168@TK2MSFTNGP06.phx.gbl...
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
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"
@+
FxMBonjour à 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
Peux-tu mettre un bout du claaseur sur hhtp://www.cjoint.com pour qu'on
y jette un oeil ?
@+
FxMdé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"
@+
FxMBonjour à 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
Peux-tu mettre un bout du claaseur sur hhtp://www.cjoint.com pour qu'on
y jette un oeil ?
@+
FxM
désolé "FL" mais chez moi ca ne fonctionne pas
merçi
"Utilisateur1" <ychene@wanadoo.fr> a écrit dans le message de news:
44edb07b$0$897$ba4acef3@news.orange.fr...
J'essais ça tout de suite
merçi encore
"FL" <nospam@nospam.fr> a écrit dans le message de news:
44edaf26$0$896$ba4acef3@news.orange.fr...
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" <ychene@wanadoo.fr> a écrit dans le message de news:
44eda85e$0$1021$ba4acef3@news.orange.fr...
Je n'ai pas trouvé mon bonheur du coté de "MID"
merci quand même
"Utilisateur1" <ychene@wanadoo.fr> a écrit dans le message de news:
44eda37a$0$857$ba4acef3@news.orange.fr...
Merci je vais essayer
"FxM" <nullos@greuchmeu.ici> a écrit dans le message de news:
OiS8HU2xGHA.2168@TK2MSFTNGP06.phx.gbl...
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
Peux-tu mettre un bout du claaseur sur hhtp://www.cjoint.com pour qu'on
y jette un oeil ?
@+
FxMdé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"
@+
FxMBonjour à 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
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 ?
isabelleJe 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"
@+
FxMBonjour à 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
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" <ychene@wanadoo.fr> a écrit dans le message de news:
44eda37a$0$857$ba4acef3@news.orange.fr...
Merci je vais essayer
"FxM" <nullos@greuchmeu.ici> a écrit dans le message de news:
OiS8HU2xGHA.2168@TK2MSFTNGP06.phx.gbl...
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
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 ?
isabelleJe 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"
@+
FxMBonjour à 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
