EXCEL - VBA - supprimer les caractères apres le 1er point

[airsage]

Bonjour,

Dans le fichier excel en exemple, je voudrais supprimer tous les caractères y compris le point, a partir du 1er point rencontré.

exemple : "papa1.toto.titi.leo" doit etre transformé en "papa1".

Merci par avance pour votre aide.

 

[Pierrot93]

Re : EXCEL - VBA - supprimer les caractères apres le 1er point

Bonjour,

essaye peut être ceci :

Option Explicit
Sub test()
Dim i As Long
For i = 2 To Range("A65536").End(xlUp).Row
    Cells(i, 1) = Split(Cells(i, 1), ".")(0)
Next i
End Sub

bon après midi
@+

 

[Efgé]

Re : EXCEL - VBA - supprimer les caractères apres le 1er point

Bonjour airsage
Une proposition au plus rapide:

Private Sub CommandButton1_Click()
Dim i&, T As Variant, Rng As Range
Set Rng = Range(Cells(2, 1), Cells(Rows.Count, 1).End(3))
T = Rng
For i = LBound(T, 1) To UBound(T, 1)
    T(i, 1) = Split(T(i, 1), ".")(0)
Next i
Rng = T
End Sub

Le code est dans le code de la feuille (clic droit sur l'onglet / visualiser le code)
Cordialement

EDIT Bonjour Pierrot 🙂
J'ajoute une proposition par formule en $B$2 à tirer vers le bas:
=GAUCHE(A2;TROUVE(".";A2)-1)

 

[Modeste geedee]

Re : EXCEL - VBA - supprimer les caractères apres le 1er point

Bonsour®

🙄 sans formule, sans macro ...

selectionner la plage
Menu Edition > Remplacer
Rechercher : .*
remplacer par : (rien) effacer la zone de saisie
OK

 

[Jam]

Re : EXCEL - VBA - supprimer les caractères apres le 1er point

Slt Modeste, pierro, airsage

Bon faut bien la version avec la formule pour être complet hein 😀
donc:

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

Bon courage

 

[Modeste geedee]

Re : EXCEL - VBA - supprimer les caractères apres le 1er point

Bonsour®

Slt Modeste, pierro, airsage

Bon faut bien la version avec la formule pour être complet hein 😀
donc:

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

🙄
https://www.excel-downloads.com/thr...mer-les-caracteres-apres-le-1er-point.206484/
ça commence à pencher vers la redondance ... 😱

 

[Jam]

Re : EXCEL - VBA - supprimer les caractères apres le 1er point

Aaaaargh, désole j'avais pas vu l'edit du post d'Efgé, que je salue au passage l'ayant aussi oublié.

 

[airsage]

Re : EXCEL - VBA - supprimer les caractères apres le 1er point

Re bonjour,

Merci à tous pour votre réactivité. Toutes les solutions proposées fonctionnent.

A bientôt.