[RESOLU] Extraction Nom dans une étiquette après un retour chariot

Staple1600

XLDnaute Barbatruc

• 24 Octobre 2019

• #2

Bonsoir le fil

Daniel38
Je te laisse tester et adapter ensuite à tes besoins

VB:

Sub ext_NomEntreprise()
MsgBox Split(ActiveCell.Text, Chr(10))(1)
End Sub

 

Vote positif 0 Vote négatif

Daniel38

XLDnaute Occasionnel

• 24 Octobre 2019

• #3

Staple
trop fort
Merci pour ta réactivité, tu es super

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 24 Octobre 2019

• #4

Re

Comme j'ai pondu, et testé, je poste

VB:

Sub ext_Boucle()
Dim c As Range
For Each c In Rows(1).Cells
If Len(c.Item(1)) Then
c.Item(1).Offset(5) = Split(c.Text, Chr(10))(1)
End If
Next
End Sub

Tu en étais arrivé là dans tes tests?

 

Vote positif 0 Vote négatif

Daniel38

XLDnaute Occasionnel

• 24 Octobre 2019

• #5

Oh que nom en fait je vais insérer le split que je n'avais pas trouvé.
Maintenant je lutte pour supprimer les caractères blancs après le nom de l'entreprise
Ces blancs n'apparaissent pas tout le temps c'est suite à l'export depuis un logiciel.
La je viens de tester ta boucle c'est au top tu te ballades
Merci encore Staple

 

Dernière édition: 24 Octobre 2019

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 24 Octobre 2019

• #6

Re

Non, je me ballade pas, j'affiche juste ma moue dubitative
En me posant la question suivante
Pourquoi diable des étiquettes dans un fichier Excel?
(alors que Word sait très bien les créer (avec un grand nombre de format) automatiquement en se basant sur un fichier Excel en guise de base de données lors d'un publipostage)
Ce qui permettrai alors d'éviter ce problème de retour chariot.
Puisque dans la base Excel, nous aurions
NOM_ENT|ADRESSE|CP|VILLE
(donc 1 ligne, un enregistrement et pas un poil de retour chariot )

 

Vote positif 0 Vote négatif

Daniel38

XLDnaute Occasionnel

• 24 Octobre 2019

• #7

Oui je sais bien Staple mais comme dit avant ces fichiers sortent d'un export Excel depuis un logiciel.
Je n'en suis pas le créateur.
En fait je me retrouve comme avant avec mid, j'ai toujours ces caractères blancs après le nom de l'entreprise. 32 caractères pour ce nom dont le nom de l'entreprise et le reste est blanc pour aller jusqu'à 32.
J'aimerai bien supprimer ces blancs car sinon ça implique des colonnes bien trop larges dans les autres tableaux ...

 

Dernière édition: 24 Octobre 2019

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 24 Octobre 2019

• #8

Re

J'ai passé l'aspirateur

VB:

Sub ext_BoucleII()
Dim c As Range
For Each c In Rows(1).Cells
If Len(c.Item(1)) Then
c.Item(1).Offset(5) = VBA.RTrim$(Split(c.Text, Chr(10))(1))
End If
Next
End Sub

 

Vote positif 0 Vote négatif

Daniel38

XLDnaute Occasionnel

• 24 Octobre 2019

• #9

Staple le Dyson d'Excel
J'étais dans le TRIM au niveau de la feuille (formule)
c'est parfait et ça conserve les noms composés, ça efface juste ce qu'il faut
c'est parfait
Merci beaucoup Staple

 

Vote positif 0 Vote négatif