Eclatement d'une cellule texte

[sawya]

Bonjour,
c'est de nouveau moi.
Toujours, pour le même type de fichier (voir suppression de lignes vierge), j'ai par exemple ceci dans une cellule :

ANDRIEUX Marie Françoise.
Il y a un lien Hypertexte a supprimer et ensuite, il faudrait que le nom majuscule, se retrouve dans une colonne et les prénoms dans une autre.

Pouvez vous m'expliquer comment faire s'il vous plait?
Je suis toujours dan sle fichier de 18000 lignes.......😱

Merci d'avance

Sawya

 

[pierrejean]

Re : Eclatement d'une cellule texte

bonjour sawya

vois si tu peux t'inspirer de ceci

 

[patte d'ours]

Re : Eclatement d'une cellule texte

Bonsoir Sawya, bonsoir Jean-Pierre

Pour annuler les liens hypertextes, voici une macro valable dans Word

Vois si tu peux la modifier pour Excel

Sub SuppressionLiens_Simple()
With ActiveDocument.Hyperlinks
For j = .Count To 1 Step -1
.Item(j).Delete
Next j
End With
End Sub

 

[jeanpierre]

Re : Eclatement d'une cellule texte

Bonsoir à tous,

Patte d'ours, PierreJean, sinon, on risque d'être encore faché................

Edit : Pourtant essayé de mettre des bestiolles rigolottes en Mode avancé, ben, ça marche pas.... mais bon dans l'esprit, elles y sont...

 

[fred65200]

Re : Eclatement d'une cellule texte

bonsoir à tous 🙂

les smileys ça marche ici 😱

tu peux adapter et essayer ce code (moins d'une seconde pour 20 000 lignes)

Travaille sur une copie pour tester

Sub Sawya()
  'suppression de la colonne C en imaginant que les liens hypertexte sont colonne C
  '''''  Columns("C:C").Delete Shift:=xlToLeft
  'ou effacement des données et du format
   Columns("C:C").Clear
  'Attention ici tu a "perdu" une colonne il y a un décalage
  "si tu as choisies la suppression
  'je met un
Stop
  'pour que tu vérifies tes colonnes
  'appuie sur F5 pour continuer
  'deplacement des données de la colonne A vers la colonne D
  Columns("A:A").Cut Columns("D:D")
  'deplacement des données de la colonne B vers la colonne E
  Columns("B:B").Cut Columns("E:E")
End Sub

cordialement 😀

 

[jeanpierre]

Re : Eclatement d'une cellule texte

Re tous, sawya, PierreJean qui a répondu (et non Jean-Pierre), patte d'ours, et Fred, le forum,

Pour les smileys, chez moi ils ne passent pas (vieille version d'IE) sinon je dois passer par FF, ce que je fais pour la messagerie (car impossible sous IE depuis la nouvelle version du forum), par exemple, mais pas encore à l'aise avec, surtout que cela ne correspond pas à ma manière de travailler...

Bon dimanche tous.

Jean-Pierre

 

[Tibo]

Re : Eclatement d'une cellule texte

Bonjour,

Pour le fun, avec une formule matricielle :

Suppose que le nom soit toujours en majuscule et le prénom avec l'initiale en majuscule.

Le principe : repérer le rang de la 1ère minuscule : ce qui correspond à la 2ème lettre du prénom.

En A1 : NOM Prénom

En B1 : le NOM

=GAUCHE(A1;EQUIV(FAUX;EXACT(STXT(A1;LIGNE(INDIRECT("1:"&NBCAR(A1)));1);MAJUSCULE(STXT(A1;LIGNE(INDIRECT("1:"&NBCAR(A1)));1)));0)-3)

en C1 : le Prénom

=STXT(A1;EQUIV(FAUX;EXACT(STXT(A1;LIGNE(INDIRECT("1:"&NBCAR(A1)));1);MAJUSCULE(STXT(A1;LIGNE(INDIRECT("1:"&NBCAR(A1)));1)));0)-1;9^9)

Fonctionne avec les noms et prénoms composés.

Formules à valider par CTRL + MAJ + ENTREE

Je joins un fichier exemple.

@+

 

[sawya]

Re : Eclatement d'une cellule texte

Bonjour, bonsoir, c'est selon.

Je vais tester vos réponses des demain, apres le repassage )))))

Je vous remrcie beaucoup pour vos reponses
Je vous tiens au courant de l'evolution de mon fichier.

A tous , une bonne soiree et encore un grand merci

Sawya

 

[Hervé]

Re : Eclatement d'une cellule texte

salut

tibo, tu as pas plus court comme formule 😛😛

je plaisante, juste epaté par ton savoir.

bye