Discussion :

[frantz06]

Bonjour a toutes et a tous,

Voila l'exemple: bernard3 4 7 8 9 11 17 18 26 27 40 42 45 47 52 53 59 62 66 68

je souhaiterais extraire dans col A le 3 colB le 4 colC le 7 etc. et que ce soit des nombres exploitables.
avec une formule excel et vba.

Formule déjà essayé

Code formule :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
STXT(A1;NBCAR(A1)-EQUIV(FAUX;ESTNUM(--(STXT(SUBSTITUE(A1;" ";"0");NBCAR(SUBSTITUE(A1;" ";"0"))-LIGNE($1:$255);1)));0)+1;99)
STXT($A1;EQUIV(0;(ESTERR(STXT($A1;LIGNE(INDIRECT( "1:"&NBCAR($A1)));2)*1)*1);0);3)*1
(STXT(A1;EQUIV(0;(ESTERREUR(STXT(A1;LIGNE(INDIRECT("1:"&NBCAR(A1)));1)*1)*1);0);NBCAR(A1)+1-SOMME((ESTERREUR(STXT(A1;LIGNE(INDIRECT("1:"&NBCAR(A1)));1)*1)*1))))

Mais je n'y arrive pas.

Merci d'avance pour vos propositions.

[EricDgn]

Bonjour,

Je proposerais de le faire en 2 étapes:
- utiliser la fonction Convertir (onglet Données) pour mettre le texte en colonnes,
- utiliser la fonction matricielle suivante pour supprimer le texte et ne garder que les nombres:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=1*STXT(A1;EQUIV(VRAI;ESTNUM(1*STXT(A1;LIGNE($1:$9);1));0);NB(1*STXT(A1;LIGNE($1:$9);1)))

Bonne continuation.

[frantz06]

Merci, je vais essayer ta formule et je te tiens au courant.

Bon, je viens de faire scinder le text en colonnes et ça fonctionne sur googlesheet.

ça me donne ça et c'est ok
colA bernard4 colB 6 etc...

Mais Ctrl+Maj+Entrée pour matriciel je le mets ou?

Code formule :

Sélectionner tout - Visualiser dans une fenêtre à part

1*MID(A1;MATCH(TRUE;ISNUMBER(1*MID(A1;ROW($1:$9);1));0);NB(1*MID(A1;ROW($1:$9);1)))

[EricDgn]

Il faut par exemple placer cette formule dans la cellule V1 (qu'il est ensuite possible copier-coller dans les cellules V2, V3, ...)
Ensuite faire un copier - collage spécial "valeur" de cette colonne V dans la colonne A (et supprimer la colonne V).

Je ne vois pas de solution permettant de séparer directement texte et nombre attachés sans passer par des copier/coller. Le plus simple est sans doute d'utiliser une macro.

Cdt.

[frantz06]

Merci beaucoup

[frantz06]

Bon je n'ai peut être pas tout compris:

A1

bernard6 8 12 13 15 16 17 24 30 35 36 38 39 40 44 47 49 57 60 66

A2 donnees/scinder le text en colonne

ce qui me fait
A2 bernard6-A3 8-A4 12-etc...

La formule je la place ou en fait?
1*MID(A1;MATCH(TRUE;ISNUMBER(1*MID(A1;ROW($1:$9);1));0);NB(1*MID(A1;ROW($1:$9);1)))
Merci

[EricDgn]

Bonjour,

Je crois que vous aurez vraiment plus facile avec une macro qu'avec des formules (à cause de ces copier-coller fastidieux).
Une façon de faire:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Option Explicit
 
Sub SplitAA()
   Dim kR As Long, k As Long, sNb As String
   kR = 2                        '--- commence à le 2e ligne
   While Cells(kR, 1) <> ""      '--- arrêt si cellule vide
      If Cells(kR, 2) = "" Then
         '--- split si cellule colonne 2 est vide (évite de traiter 2 fois)
         Cells(kR, 1).TextToColumns Destination:=Cells(kR, 2), DataType:=xlDelimited, Space:=True
         '--- sépare texte et nb de la colonne 2
         sNb = Cells(kR, 2)
         For k = 1 To Len(sNb)
            If IsNumeric(Mid(sNb, k, 1)) Then
               Cells(kR, 1) = Left(sNb, k - 1)
               Cells(kR, 2) = Val(Mid(sNb, k))
               Exit For
            End If
         Next k
      End If
      kR = kR + 1
   Wend
End Sub

Bonne continuation.

[frantz06]

Grand Merci a toi

quand je fais splitAA rien ne se passe ai-je oublié de faire quelque chose?
autrement c est exactement ce que je veux au niveau présentation.
Merci

[EricDgn]

Un clic sur le bouton 'Split A:A' traite les données placés dans les cellules de la colonne A, à partir de la 2e ligne et s'arrête dès qu'une cellule vide est rencontrée).
Ensuite, un nouveau clic sur ce bouton ne fait plus rien, vu que le traitement a été effectué, sauf si un nouveau texte a été ajouté dans une cellule en bas de la suite de données en colonne A.
Cordialement.

[frantz06]

Merci infiniment EricDgn