macro de suppression

[spiker]

Je voudrais savoir comment creer une macro qui permet, de supprimer du texte dans une cellule, mais pas tout le texte, en faite je voudrais garder le premier mot de la cellule et supprimer tous les autres.
Quelqu'un pourrait il m'aider ?
Merci par avance

 

[Lord Nelson]

Salut Spiker,

Tu peux essayer ceci :

Sub PremierMot()
Dim CL As Range
Dim Position As Integer
For Each CL In Selection
Position = InStr(CL.Text, " ")
If Position > 0 Then
CL.Value = Left(CL.Text, Position - 1)
End If
Next
End Sub

Dans chaque cellule sélectionnée, la macro recherche le premier espace et, s'il existe, ne retient que la partie gauche de la chaîne de caractères.

A+
Horatio

 

[spiker]

Salut lord Nelson,
je te remerci, pour ta reponse; mais etant novice en matiere de macro , pourrais tu me dire, comment et ou dois-je rentrer le code.
Merci

 

[Lord Nelson]

Tu peux, pour commencer, utiliser l'enregistreur de macros :

Outils/Macro/Nouvelle macro

Tu verras une petite fenêtre avec un bouton carré bleu qui permet d'arrêter l'enregistrement. Tu cliques dessus puis tu appelles VB avec ALT F11.

Dans la fenêtre projet, tu verras Module1, tu double-clic dessus pour faire apparaître la fenêtre de code.
C'est dans cette fenêtre que tu vas coller la procédure PremierMot (au passage, tu peux effacer la procédure Macro1 créee par l'enregistreur de macro).

Retour à Excel avec ALT F11, tu sélectionnes une plage de cellules à modifier puis :

Outils/Macro/Macros, cliquer sur PremierMot puis Exécuter.

A+
Horatio