Discussion :

[ghisunit]

Bonjour a tous les amis,

J'ai utilise la formule suivante:

Code :

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

=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 :

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

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

[ESVBA]

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

Code :

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

=remove_aprespointvirgule(B6)

Code :

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

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

ESVBA

[jfontaine]

Bonjour,

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

Code :

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

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

[ghisunit]

Merci les jfontaine et ESVBA ca fonctionne super.

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



A plus

Ghis