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

[Daniel38]

Bonjour les Excellents

Voilà, je cherche à extraire le nom complet d'une entreprise dans des cellules fusionnées (formant une étiquette) après un retour chariot.
J'ai pu trouver un code mais le problème c'est que selon la longueur de nom de l'entreprise celui-ci ne s'extraie pas complétement
Le fichier joint détaille le format ainsi que l'extraction trouvée ...

Si vous avez d'autres idées

A bientôt

 

[Staple1600]

Bonsoir le fil

Daniel38
Je te laisse tester et adapter ensuite à tes besoins

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

 

[Daniel38]

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

 

[Staple1600]

Re

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

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?

 

[Daniel38]

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

 

[Staple1600]

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 )

 

[Daniel38]

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 ...

 

[Staple1600]

Re

J'ai passé l'aspirateur

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

 

[Daniel38]

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