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

[fid]

bonjour le forum !

j'ai un fichier qui liste toutes les références produits avec les informations liées
dans une colonne j'ai la description
mais celle-ci se présente dans une seule et même cellule de cette façon :
MON PRODUIT
deuxième ligne de description
troisième ligne de description
etc...

le retour à la ligne étant indiqué par le signe ? dans un petit carré

je voudrais par une macro supprimer tout le texte qui se trouve derrière le premier "retour" c-à-d le premier ? dans le carré

une petite idée sur la question ?

 

[Hulk]

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.

 

[fid]

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

ok , le voici

 

[Hulk]

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.

 

[JHA]

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

 

[fid]

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

 

[klin89]

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

Bonsoir à tous,

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

 

[JNP]

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 .

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

Bonne soirée