OVH Cloud OVH Cloud

Garder les trois lettres de droite pour toutes les cell d'une colo

14 réponses
Avatar
Christophe B.
Bonjour,

J'aimerais savoir comment traduire en code vba la chose suivante: garder
seulement les trois derniers caractères de toutes les cellules d'une colonne.

Je suis sur xl 2000 en english

Merci!

Christophe.B

10 réponses

1 2
Avatar
Christophe B.
Parfois je me dis que je suis con...

En fait, je voudrais juste supprimer le premier caractère (tout à gauche) :)

"Christophe B." wrote:

Bonjour,

J'aimerais savoir comment traduire en code vba la chose suivante: garder
seulement les trois derniers caractères de toutes les cellules d'une colonne.

Je suis sur xl 2000 en english

Merci!

Christophe.B


Avatar
papou
Bonjour
For Each c In Range("A1:A" & Range("A65536").End(xlUp).Row)
c.Value = Right(c, Len(c) - 1)
Next c
Cordialement
Pascal

"Christophe B." a écrit dans le
message de news:
Parfois je me dis que je suis con...

En fait, je voudrais juste supprimer le premier caractère (tout à gauche)
:)

"Christophe B." wrote:

Bonjour,

J'aimerais savoir comment traduire en code vba la chose suivante:
garder
seulement les trois derniers caractères de toutes les cellules d'une
colonne.

Je suis sur xl 2000 en english

Merci!

Christophe.B




Avatar
Christophe B.
Gargl!!!

J'avais pas fait gaffe à un détail...
Bon, alors voilà. Déjà, dans ma colonne, j'ai des chaines de trois
caractères en moyenne dans chaque cellule. Mais dans la "formula bar", j'ai
une apostrophe devant ma chaine mais pas tout le temps. Comment supprimer
cette fichue apostrophe?

Merci...

Christophe.B
"papou" wrote:

Bonjour
For Each c In Range("A1:A" & Range("A65536").End(xlUp).Row)
c.Value = Right(c, Len(c) - 1)
Next c
Cordialement
Pascal

"Christophe B." a écrit dans le
message de news:
Parfois je me dis que je suis con...

En fait, je voudrais juste supprimer le premier caractère (tout à gauche)
:)

"Christophe B." wrote:

Bonjour,

J'aimerais savoir comment traduire en code vba la chose suivante:
garder
seulement les trois derniers caractères de toutes les cellules d'une
colonne.

Je suis sur xl 2000 en english

Merci!

Christophe.B









Avatar
ChrisV
Bonjour Christophe,

Et l'apostrophe est conservée après exécution de la procédure...?


ChrisV


"Christophe B." a écrit dans le
message de news:
Gargl!!!

J'avais pas fait gaffe à un détail...
Bon, alors voilà. Déjà, dans ma colonne, j'ai des chaines de trois
caractères en moyenne dans chaque cellule. Mais dans la "formula bar",
j'ai
une apostrophe devant ma chaine mais pas tout le temps. Comment supprimer
cette fichue apostrophe?

Merci...

Christophe.B
"papou" wrote:

Bonjour
For Each c In Range("A1:A" & Range("A65536").End(xlUp).Row)
c.Value = Right(c, Len(c) - 1)
Next c
Cordialement
Pascal

"Christophe B." a écrit dans le
message de news:
Parfois je me dis que je suis con...

En fait, je voudrais juste supprimer le premier caractère (tout à
gauche)
:)

"Christophe B." wrote:

Bonjour,

J'aimerais savoir comment traduire en code vba la chose suivante:
garder
seulement les trois derniers caractères de toutes les cellules d'une
colonne.

Je suis sur xl 2000 en english

Merci!

Christophe.B











Avatar
Christophe B.
Ben en fait, ca m'en supprime trop quand l'apostrophe n'y est pas...

"ChrisV" wrote:

Bonjour Christophe,

Et l'apostrophe est conservée après exécution de la procédure...?


ChrisV


"Christophe B." a écrit dans le
message de news:
Gargl!!!

J'avais pas fait gaffe à un détail...
Bon, alors voilà. Déjà, dans ma colonne, j'ai des chaines de trois
caractères en moyenne dans chaque cellule. Mais dans la "formula bar",
j'ai
une apostrophe devant ma chaine mais pas tout le temps. Comment supprimer
cette fichue apostrophe?

Merci...

Christophe.B
"papou" wrote:

Bonjour
For Each c In Range("A1:A" & Range("A65536").End(xlUp).Row)
c.Value = Right(c, Len(c) - 1)
Next c
Cordialement
Pascal

"Christophe B." a écrit dans le
message de news:
Parfois je me dis que je suis con...

En fait, je voudrais juste supprimer le premier caractère (tout à
gauche)
:)

"Christophe B." wrote:

Bonjour,

J'aimerais savoir comment traduire en code vba la chose suivante:
garder
seulement les trois derniers caractères de toutes les cellules d'une
colonne.

Je suis sur xl 2000 en english

Merci!

Christophe.B
















Avatar
patrick.lyon
bonjour
c'est rechercher/remplacer que tu devrais faire

Ben en fait, ca m'en supprime trop quand l'apostrophe n'y est pas...

"ChrisV" wrote:

Bonjour Christophe,

Et l'apostrophe est conservée après exécution de la procédure...?


ChrisV


"Christophe B." a écrit dans le
message de news:
Gargl!!!

J'avais pas fait gaffe à un détail...
Bon, alors voilà . Déjà , dans ma colonne, j'ai des chaines de trois
caractères en moyenne dans chaque cellule. Mais dans la "formula bar",
j'ai
une apostrophe devant ma chaine mais pas tout le temps. Comment supprimer
cette fichue apostrophe?

Merci...

Christophe.B
"papou" wrote:

Bonjour
For Each c In Range("A1:A" & Range("A65536").End(xlUp).Row)
c.Value = Right(c, Len(c) - 1)
Next c
Cordialement
Pascal

"Christophe B." a écrit dans le
message de news:
Parfois je me dis que je suis con...

En fait, je voudrais juste supprimer le premier caractère (tout Ã
gauche)
:)

"Christophe B." wrote:

Bonjour,

J'aimerais savoir comment traduire en code vba la chose suivante:
garder
seulement les trois derniers caractères de toutes les cellules d'une
colonne.

Je suis sur xl 2000 en english

Merci!

Christophe.B


















Avatar
AV
Si ta plage contient des constantes, pour supprimer les éventuelles apostrophes
précédant les chaînes :

[A1:A10] = [A1:A10].Value

AV
Avatar
Christophe B.
Merci, c'est tout ce qu'il me fallait!!!!!!

:) ;)

"AV" wrote:

Si ta plage contient des constantes, pour supprimer les éventuelles apostrophes
précédant les chaînes :

[A1:A10] = [A1:A10].Value

AV





Avatar
ChrisV
Re,

et là...?

Sub zaza()
Dim c As Range
Application.ScreenUpdating = False
For Each c In Range("A1:A" & [A65536].End(3).Row)
c = Right(c, 3)
Next c
End Sub


ChrisV


"Christophe B." a écrit dans le
message de news:
Ben en fait, ca m'en supprime trop quand l'apostrophe n'y est pas...

"ChrisV" wrote:

Bonjour Christophe,

Et l'apostrophe est conservée après exécution de la procédure...?


ChrisV


"Christophe B." a écrit dans le
message de news:
Gargl!!!

J'avais pas fait gaffe à un détail...
Bon, alors voilà. Déjà, dans ma colonne, j'ai des chaines de trois
caractères en moyenne dans chaque cellule. Mais dans la "formula bar",
j'ai
une apostrophe devant ma chaine mais pas tout le temps. Comment
supprimer
cette fichue apostrophe?

Merci...

Christophe.B
"papou" wrote:

Bonjour
For Each c In Range("A1:A" & Range("A65536").End(xlUp).Row)
c.Value = Right(c, Len(c) - 1)
Next c
Cordialement
Pascal

"Christophe B." a écrit dans
le
message de news:
Parfois je me dis que je suis con...

En fait, je voudrais juste supprimer le premier caractère (tout à
gauche)
:)

"Christophe B." wrote:

Bonjour,

J'aimerais savoir comment traduire en code vba la chose
suivante:
garder
seulement les trois derniers caractères de toutes les cellules
d'une
colonne.

Je suis sur xl 2000 en english

Merci!

Christophe.B


















Avatar
Christophe B.
Ca marche aussi!!! :))

Mais je préfère la solution précédente... Je me suis aperçu que parfois j'ai
5 caractères...

Merci beaucoup!! ;)

Christophe.B

"ChrisV" a bien contribué à ma progression en proposant:

Re,

et là...?

Sub zaza()
Dim c As Range
Application.ScreenUpdating = False
For Each c In Range("A1:A" & [A65536].End(3).Row)
c = Right(c, 3)
Next c
End Sub


ChrisV


"Christophe B." a écrit dans le
message de news:
Ben en fait, ca m'en supprime trop quand l'apostrophe n'y est pas...

"ChrisV" wrote:

Bonjour Christophe,

Et l'apostrophe est conservée après exécution de la procédure...?


ChrisV


"Christophe B." a écrit dans le
message de news:
Gargl!!!

J'avais pas fait gaffe à un détail...
Bon, alors voilà. Déjà, dans ma colonne, j'ai des chaines de trois
caractères en moyenne dans chaque cellule. Mais dans la "formula bar",
j'ai
une apostrophe devant ma chaine mais pas tout le temps. Comment
supprimer
cette fichue apostrophe?

Merci...

Christophe.B
"papou" wrote:

Bonjour
For Each c In Range("A1:A" & Range("A65536").End(xlUp).Row)
c.Value = Right(c, Len(c) - 1)
Next c
Cordialement
Pascal

"Christophe B." a écrit dans
le
message de news:
Parfois je me dis que je suis con...

En fait, je voudrais juste supprimer le premier caractère (tout à
gauche)
:)

"Christophe B." wrote:

Bonjour,

J'aimerais savoir comment traduire en code vba la chose
suivante:
garder
seulement les trois derniers caractères de toutes les cellules
d'une
colonne.

Je suis sur xl 2000 en english

Merci!

Christophe.B























1 2