extraire d'une cellule

[Eric702]

Bonjour

J'aimerais pouvoir extraire les valeurs VIR MIR V et D importées dans la colonne A
Merci pour votre aide

Bonne soirée
Eric

 

[mth]

Re : extraire d'une cellule

Bonsoir,

Un petit essai avec quelques formules en PJ.
Vois si cela peut t'aider (et si ça passe dans tous les cas de ton fichier réel)

Bonne soirée,

mth

Edit: Bonsoir Fred0o, David

 

[Fred0o]

Re : extraire d'une cellule

Bonsoir Eric

Vois si cette solution te convient.

A+

 

[david84]

Re : extraire d'une cellule

Bonsoir à tous, mth
à tester en E2 et à tirer vers la droite et le bas :

=SUBSTITUE(SUBSTITUE(STXT(SUBSTITUE($A2;"-";"");EQUIV(E$1&"=";STXT(SUBSTITUE($A2;"-";"");LIGNE($1:$255);NBCAR(E$1)+1);0)+NBCAR(E$1)+2;3);"/";"");"""";"")

Formule matricielle à valider par Ctrl, Maj et entrée.
A+

 

[Monique]

Re : extraire d'une cellule

Bonjour,

Une autre

[FONT=Verdana][FONT=Verdana]=SUBSTITUE(SUBSTITUE(SUBSTITUE(STXT($A2;TROUVE(E$1&"=";$A2)+NBCAR(E$1)+2;3);"""";"");"/";"");"-";"")*1[/FONT]
[/FONT]

 

[Eric702]

Re : extraire d'une cellule

Trop sympa, merci les amis
Excusez ma réponse tardive à cause du décallage horaire
Je teste vos idées...

Bonne journée
Eric

 

[Eric702]

Re : extraire d'une cellule

Merci bien

vos idées marche impec
Mais je me retrouve avec un autre format de coordonnées et plus rien ne marche...
Si vous pouviez me trouver quelque chose

Merci d'avance
Eric

 

[mth]

Re : extraire d'une cellule

Bonsoir Eric, bonsoir à tous

Un petit essai dans le fichier joint avec ce code:

Sub Macro1()
Application.ScreenUpdating = False
With Sheets("Feuil1")
        .Columns("C:F").ClearContents
        .Columns("A:A").Copy .Range("B1")
        
        With .Columns("B:B")
        
          .Replace What:="°", Replacement:=";", LookAt:=xlPart
          .Replace What:="'", Replacement:=";", LookAt:=xlPart
          .Replace What:="""", Replacement:=";", LookAt:=xlPart
          .TextToColumns Destination:=Range("C1"), DataType:=xlDelimited, _
                TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
                Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo _
                :=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1)), TrailingMinusNumbers:= _
                True
          .ClearContents
        End With
End With
Application.ScreenUpdating = True
End Sub

Pour les zéros, j'ai mis le format personnalisé: [=0]-;Standard

Bonne soirée,

mth

 

[Eric702]

Re : extraire d'une cellule

Bonsoir mth

Merci bien pour ta réponse
Mais existe-t-il une solution sans macro ?
Encore merci

Bonne soirée
Eric

 

[Tibo]

Re : extraire d'une cellule

Bonsoir tout le monde,

Sans macro, avec 4 formules différentes :

en C4 :

=GAUCHE(A4;TROUVE("°";A4)-1)*1

en D4 :

=STXT(A4;TROUVE("°";A4)+1;TROUVE("'";A4)-TROUVE("°";A4)-1)*1

en E4 :

=STXT(A4;TROUVE("'";A4)+1;TROUVE("""";A4)-TROUVE("'";A4)-1)*1

en F4 :

=DROITE(A4)

Attention aux apostrophes et doubles guillemets entre guillemets

Je te laisse tester


@+

 

[Eric702]

Re : extraire d'une cellule

Merci beaucoup Tibo

Mais excuses moi pour ma réponse tardive
J'étais absent une semaine de mon bureau


Excellent we
Eric

 

[Eric702]

Re : extraire d'une cellule

Bonjour

Tour marche au poil
Mais comment revenir en arrière pour recréer la cellule initiale sans VBA cf fichier joint

Merci d'avance
Eric

 

[Eric702]

Re : extraire d'une cellule

Qui cherche trouve....

A bientôt les amis

 

[Eric702]

Re : extraire d'une cellule

Par contre pour "exploser" cette cellule sans VBA, je cale...

Merci pour votre aide
Eric

 

[Staple1600]

Re : extraire d'une cellule

Bonjour


Tu le dis pourtant toi-même

Qui cherche trouve....

Cherches encore ...

EDITION: une façon de faire (pas des plus simple )
En B4:

=SUPPRESPACE(GAUCHE(A4;CHERCHE("°";A4)-1))*1

en C4

=STXT(A4;CHERCHE("°";A4)+1;-1+CHERCHE("'";A4)-CHERCHE("°";A4))*1

en D4

=SUBSTITUE(SUBSTITUE(GAUCHE(DROITE(A4;7);5);"'";"");".";",")*1

en E4

=DROITE(A4)