Macro ou code VBA d'un formule Gauche et Recherche

Bonjour a tous les amis,

J'ai utilise la formule suivante:

Code:

---

=LEFT(B1;FIND(";";B1)-1)

---

Qui me permet de supprimer tous les caractères après le ; (point virgule) dans toute ma colonne A.

A B
Aer12 Aer12;#17
Aer12 Aer12;#17
Aer12 Aer12;#17
All Program All Program;#14
All Program All Program;#14
All Program All Program;#14

Mais en fait, je souhaiterai la mettre en Macro ou en VBA dans Excel et la lancer pour toute la colonne A.

Je sais qu'il faut commencer par:

Code:

---

1 2 3

Function remove_aprespointvirgule()   End Function

---

Mais je ne sais quoi mettre au milieu pour que cela fonctionne.

J'ai mi le fichier Excel si ça peut aider.
Merci d'avance pour votre aide les amis.

Ciao

Ghis

Voici pour te mettre sur la voie, une fonction utilisateur UDF à mettre dans un module de code.
Exemple d'appel :

Code:

---

=remove_aprespointvirgule(B6)

---

Code:

---

1 2 3 4

Function remove_aprespointvirgule(Rng As Range) Application.Volatile remove_aprespointvirgule= Left(Rng.Value, InStr(Rng.Value, ";")-1) End Function

---

ESVBA

Bonjour,

Ci dessous un exemple de procédure qui traite la colonne entière

Code:

---

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

Sub remove_aprespointvirgule()   Dim i As Long Dim Sh As Worksheet   Set Sh = Sheets("Sheet1")   For i = 1 To Sh.Range("B" & Rows.Count).End(xlUp).Row Sh.Range("A" & i).Value = Split(Sh.Range("B" & i).Value, ";")(0) Next i   End Sub

---

Merci les jfontaine et ESVBA ca fonctionne super.

Vous avez vraiment fait vite on peut compter sur vous les gars.

:mrgreen:

A plus

Ghis