Discussion :

[Elix4]

Bonjour à tous,

Je suis completement novice en excel / vba, mais j'ai déjà dev avec d'autres langages.
J'ai un document excel où dans une colonne j'ai des produits sous la forme Nom.Numéro (exemple shampoing.42)
J'aimerais pouvoir remplacer cette colonne par les noms uniquement (shampoing).

Ex :
Lapin.13
Shampoing.42
...

devient
Lapin
Shampoing
...

Une boucle et des expressions régulieres devraient faire l'affaire mais je ne vois pas comment m'y prendre en vba.
Un peu d'aide serait la bienvenue

Merci !

[fring]

Bonjour,

Tu peux le faire soit via une fonction (sans passer par VBA), par exemple Lapin.13 en A1 et la fonction suivante en B1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=GAUCHE(A1;CHERCHE(".";A1;1)-1)

Soit en remplaçant directement les chaînes de caractères, dans la colonne en question, par un bout de code VBA. Par exemple pour la ligne 1 à la dernière ligne de la colonne A ça donnerait :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub test()
Dim i As Integer
 
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
    On Error Resume Next
    Cells(i, 1) = Split(Cells(i, 1), ".")(0)
Next
 
End Sub

[Elix4]

Merci beaucoup pour cette réponse rapide

Edit:
La premiere fonction est parfaite, en revanche je peux avoir des noms abrégés type :
Lapin bleu .42 => Lapin bl. .42

donc il faut vraiment que je match .[0-9]+ et non pas seulement le .
Une façon simple de le faire avec la premiere fonction? : )

Merci encore

[issoram]

Bonjour,

S'il n'y a qu'un numéro par chaine tu peux t'en tirer avec la fonction Val sans passer par les regexp.

Cordialement.

[Elix4]

J'ai réussi avec une fonction qui récupère la dernière occurence du .
Merci à tous les deux.