VBA pour suppression de caractères

Bonjour,

je débute en VBA alors excusez moi par avance si mes questions vous semblent bêtes.

Je travaille avec des numéros d'affaires.

(x sont des chiffres)
ils doivent etre formatées en 1xxxxxx ou 9xxxxx donc commencant par 1 avec 6 caractères derrière ou 9,8,7 avec 5 chiffres derrière.
Je ne peux pas coder directement dans les cellules car je décalle chaque semaine les numéros de façon à ce que les derniers se retrouvent en première colonne.

Je cherche donc à coder en VBA l'action de supprimer des caractères de façon par exemple à ce que R11-1xxxxxx devienne 1xxxxxx et r11-9xxxxx devienne 9xxxxx.

Je vosu remercie par avance pour l'aide que vous pourrez m'apporter.

Pierre

Code:

---

Range("A:A").replace "R11-",""

---

permet de remplacer la chaine "R11-" par vide dans la colonne A

Bonjour,

Merci pour l'aide apportée.
effectivement ça fonctionne.

J'ai simplement oublié de préciser que les numéros sont formatés de la façon suivante:

R11-1****** ou
R11-09***** ou
R11-08***** ou
R11-07***** ou
09***** ou
08***** ou
07*****

Le but est donc de les mettre sous la forme 1******,9*****,8*****,7*****.

Donc le remplacement de R11- par "" et de R11-0 par "" fonctionne pour les 4 premiers cas.

Pas dans les cas ou le numéro commence par 09,08 ou 07.

J'ai essayé d'enlever le 0 mais à ce moment là il m'enlève bien sur tous les 0 contenus dans le nombre.

Je pense qu'il faudrait quelque chose comme:

SI gauche(nombre,1)=0 alors on prend droite(nombre,6).

Tous mes numéros sont contenus dans le colonne B.

Par avance merci de l'aide que vous pourrez m'apporter.

Pierre

salut

dans la seule mesure où tous les cas possibles sont ceux de tes exemples, ce sera simplement :

Code:

---

Val(Mid(mavar, InStr(mavar, "-") + 1))

---

où la variable mavar contient la chaîne à traiter.

Bonjour Babaothe,

justement j'ai modifié ma question, donc je pense que cette fonction ne marche plus dans le cas où je n'ai plus de "-" à un moment donc dans les cas pour lesquels je me retrouve avec 09,08 ou 07 et les 5 chiffres qui viennent derrière.

Pierre

Citation:

---

Envoyé par pierreferte

Bonjour Babaothe,

... je pense que cette fonction ne marche plus dans le cas où je n'ai plus de "-" à un moment donc dans les cas pour lesquels je me retrouve avec 09,08 ou 07 et les 5 chiffres qui viennent derrière.

---

Ah ?
Et l'as tu essayée ?
je viens de le faire avec 0838976 et elle me donne bien 838976
Et l'explication est fort simple : instr sur "-" = 0 puisque pas de tiret : donc instr + 1 = 1 et donc mid commence à 1 et Val retourne la valeur numérique de la chaîne ;).
et si tu veux conserver le "0" (en plus et bien que tes exemples parlent de sa suppression), il te suffit d'utiliser Format !

Bon,
je suis vraiment mauvais, je n'arrive pas à la tester.

dans ma macro qui gère toute la mise à jour de ma feuille j'ai inclu

mavar=B5
Val(Mid(mavar, InStr(mavar, "-") + 1))

avec B5=R11-09*****

Il ne se passe rien... B5 n'est pas modifiée.

De plus j'aimerait faire une boucle sur toutes les valeurs de la colonne B (jusqu'à la dernière remplie) de la feuille "Revue S"

Peux tu m'éclairer ? Je suis débutant en VBA et j'aimerais en savoir plus...

Merci beaucoup par avance.

Pierre

Bonjour

Citation:

---

justement j'ai modifié ma question, donc je pense que cette fonction ne marche plus dans le cas où je n'ai plus de "-" à un moment donc dans les cas pour lesquels je me retrouve avec 09,08 ou 07 et les 5 chiffres qui viennent derrière.

---

A te lire j'ai l'impression que dans tous les cas tu parles des 7 derniers caractères, si c'est le cas pourquoi ne pas utiliser

Code:

---

val(right(mavar,7))

---

ce qui permet de s'affranchir du début

Non ce n'est pas le cas:

il faut qu'au final le numéro soit de la forme 10***** ou 9***** etc 10 pour 2010, 9 pour 2009.


Donc sélectionner les 7 derniers chiffres mènerait à 09*****.

Je pense que la solution de babaothe est la bonne. Je n'arrive juste pas à la faire fonctionner car je suis débutant en VBA.

juste une question, à tu essayé au moins ?

car pour
mavar = "0912345"
mavar = "R1-0912345"
mavar = "toto-0912345"

tu auras toujours

val(right(mavar,7)) --> 912345 ;)

les propositions sont bonnes mais il n'arrive pas à les adapter (travailler en boucle)
Pour être tordu, je propose un code sans boucle, mais bon

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Application.ScreenUpdating = False With Sheets("Revue S") With .Cells(1, Columns.Count) .Value = 1 .Copy End With With .Range("B2:B" & .Cells(Rows.Count, "B").End(xlUp).Row) .Replace "R11-", "" .PasteSpecial Paste:=xlPasteValues, Operation:=xlMultiply End With Application.CutCopyMode = False .Cells(1, Columns.Count).ClearContents End With

---

zyhack, je ne peux pas prendre les 7 (6 en fait) derniers chiffres car je suis d'accord que 0901812 va me donner 901812 mais 1000969 va me donner 000969 alors que je voudrais 1000969.

Je vais tester ta méthode mercatog mais ta méthode ne me semble pas prendre en compte les 0 qui vont résulter de la suppression de r11- dans r11-09***.
La méthode précédente me semblait bien et avait l'aitr de fonctionner.

Je vous tiens au courant.

Merci en tout cas.

Pierre

Quel gâchis pour rien! nous continuons à méditer dans le conditionnel?
Rien ne doit te sembler, mais tu dois faire les tests adéquats et être catégorique.
Bon, à défaut de meilleur, bon courage

Citation:

---

R11-1****** ou
R11-09***** ou
R11-08***** ou
R11-07***** ou
09***** ou
08***** ou
07*****

---

combien de caractères tu as? (après le r11-)

Je persiste à dire que tu n'as pas testé car tu aurais vu que

pour

mavar = "1012345"
mavar = "R1-1012345"
mavar = "toto-1012345"

tu auras toujours

val(right(mavar,7)) --> 1012345

je n'insiste plus, si tu ne teste pas les solutions qui te sont données et que tu reste sur des impressions !!!

comme le dit mercatog

Citation:

---

Rien ne doit te sembler, mais tu dois faire les tests adéquats et être catégorique

---

Zyhack, ce que je voulais dire dans mon message précédent, c'est que j'ai parfois 7 chiffres à retenir si le nombre commence par 10 et 6 s'il commence par 9, 8 ou 7.
Je vais donc avoir autant 905730 ou 1057301 c'est pour cela que je disais que la méthode de retenir uniquement les 7 derniers chiffres marchait juste pour le cas ou le nombre commence par 10.

Comme je l'ai dit dans le message précédent (sur le fait que j'allais tester), j'ai testé la méthode que m'a proposé mercatog et elle fonctionne !
Je ne comprend toujorus pas le déroulement du code et si je peux avoir une explication j'en serais content. Je ne comprend surtout pas comment il gère les cas ou les numéros commencent par un 0, premier 0 qui est enlevé après application du code.

Si vous pouvez m'éclairer je vous en serais reconnaissant.

En attendant merci beaucoup à tous pour l'aide et désolé d'avoir pensé avant d'avoir testé !

Pierre

Tu as en A1: R11-0945632

Code:

---

range("A1").replace "R11-",""

---

modifie A1 en 0945632 qui est traité par excel comme un nombre et automatiquement enlève le 0.
reste les autres cellules sans le R11-. (par exemple 0956545). il sont considéré comme du texte et tu as un petit triangle vert indiquant que c'est un nombre stocké sous forme de texte.
J'ai proposé par code ceci

Citation:

---

Convertir les nombres stockés en tant que texte en nombres

Toute une plage à la fois

Dans une cellule vide, entrez le nombre 1.
Sélectionnez la cellule puis, dans le menu Edition, cliquez sur Copier.
Sélectionnez la plage de nombres stockés en tant que texte que vous souhaitez convertir.
Dans le menu Edition, cliquez sur Collage spécial.
Sous Opération, cliquez sur Multiplication.
Cliquez sur OK.
Supprimez de la cellule le contenu entré à la première étape.

---

c'est l'aide fourni par excel

Ok, je n'étais pas au courant de cette méthode pour convertir en nombre, j'allais à chaque fois dans format de la cellule.
Je me coucherai moins bête ce soir !

Merci beaucoup en tout cas !

Boànne fin de journée à tous.

Pierre