Macro supprimer tous les caractères après 1er caractère special

Hulk

XLDnaute Barbatruc

• 8 Février 2012

• #2

Re : Macro supprimer tous les caractères après 1er caractère special

Hello Fid,

À mon avis, un petit fichier avec des explications plus claires s'impose

Dans l'attente.

 

Vote positif 0 Vote négatif

F

fid

XLDnaute Nouveau

• 8 Février 2012

• #3

Re : Macro supprimer tous les caractères après 1er caractère special

ok , le voici

 

Pièces jointes

• SuppApresCarSpecial.xlsx

  9.2 KB · Affichages: 188

Vote positif 0 Vote négatif

Hulk

XLDnaute Barbatruc

• 8 Février 2012

• #4

Re : Macro supprimer tous les caractères après 1er caractère special

Re,

Désolé, mais pas assez clair pour moi. Pas dans mes cordes, mais d'autres t'aideront.

Bonne fin de journée.

 

Vote positif 0 Vote négatif

J

JHA

XLDnaute Barbatruc

• 8 Février 2012

• #5

Re : Macro supprimer tous les caractères après 1er caractère special

Bonjour à tous,

Un début de piste

=GAUCHE(B2;TROUVE("A19";B2;1)-2)

ou entre les guillemets, j'ai appliqué Alt+entrée

=GAUCHE(B2;TROUVE("
";B2;1)-1)

JHA

 

Dernière édition: 8 Février 2012

Vote positif 0 Vote négatif

F

fid

XLDnaute Nouveau

• 8 Février 2012

• #6

Re : Macro supprimer tous les caractères après 1er caractère special

Merci beaucoup JHA,
la deuxième solution fonctionne parfaitement
je la garde précieusement car j'ai souvent ce problème qui revient dans des fichiers que je reçois de nos fournisseurs

 

Vote positif 0 Vote négatif

klin89

XLDnaute Accro

• 8 Février 2012

• #7

Re : Macro supprimer tous les caractères après 1er caractère special

Bonsoir à tous,

VB:

Sub Supprimer()
Dim tablo, i As Long
tablo = Range("B1:B" & Range("B65536").End(xlUp).Row)
For i = 1 To UBound(tablo)
  tablo(i, 1) = Split(tablo(i, 1), vbLf)(0)
Next i
Range("b1").Resize(UBound(tablo), 1) = tablo
End Sub

Klin89

 

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 8 Février 2012

• #8

Re : Macro supprimer tous les caractères après 1er caractère special

Bonsoir le fil ,
CAR(10) peut être peut-être plus simple que Alt+Entrée .

Code:

=GAUCHE(B2;TROUVE(CAR(10);B2;1)-1)

Bonne soirée

 

Vote positif 0 Vote négatif