extraire d'une cellule

mth

XLDnaute Barbatruc

• 24 Octobre 2010

• #2

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

 

Pièces jointes

• Eric702.xls

  32.5 KB · Affichages: 55
• Eric702.xls

  32.5 KB · Affichages: 51
• Eric702.xls

  32.5 KB · Affichages: 53

Dernière édition: 24 Octobre 2010

Vote positif 0 Vote négatif

Fred0o

XLDnaute Barbatruc

• 24 Octobre 2010

• #3

Re : extraire d'une cellule

Bonsoir Eric

Vois si cette solution te convient.

A+

 

Pièces jointes

• Eric702.xlsx

  11.7 KB · Affichages: 57

Vote positif 0 Vote négatif

D

david84

XLDnaute Barbatruc

• 24 Octobre 2010

• #4

Re : extraire d'une cellule

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

Code:

=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+

 

Vote positif 0 Vote négatif

M

Monique

Nous a quitté

Repose en paix

• 24 Octobre 2010

• #5

Re : extraire d'une cellule

Bonjour,

Une autre

Code:

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

 

Vote positif 0 Vote négatif

E

Eric702

Guest

• 25 Octobre 2010

• #6

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

 

Vote positif 0 Vote négatif

E

Eric702

Guest

• 30 Novembre 2010

• #7

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

 

Pièces jointes

• Classeur1.xlsx

  9.8 KB · Affichages: 50
• Classeur1.xlsx

  9.8 KB · Affichages: 55
• Classeur1.xlsx

  9.8 KB · Affichages: 57

Vote positif 0 Vote négatif

mth

XLDnaute Barbatruc

• 1 Décembre 2010

• #8

Re : extraire d'une cellule

Bonsoir Eric, bonsoir à tous 🙂

Un petit essai dans le fichier joint avec ce code:

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

 

Pièces jointes

• tmp.xlsm

  18.8 KB · Affichages: 47
• tmp.xlsm

  18.8 KB · Affichages: 46
• tmp.xlsm

  18.8 KB · Affichages: 54

Vote positif 0 Vote négatif

E

Eric702

Guest

• 1 Décembre 2010

• #9

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

 

Vote positif 0 Vote négatif

Tibo

XLDnaute Barbatruc

• 1 Décembre 2010

• #10

Re : extraire d'une cellule

Bonsoir tout le monde,

Sans macro, avec 4 formules différentes :

en C4 :

Code:

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

en D4 :

Code:

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

en E4 :

Code:

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

en F4 :

Code:

=DROITE(A4)

Attention aux apostrophes et doubles guillemets entre guillemets

Je te laisse tester


@+

 

Vote positif 0 Vote négatif

E

Eric702

Guest

• 5 Décembre 2010

• #11

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

 

Vote positif 0 Vote négatif

E

Eric702

Guest

• 12 Décembre 2010

• #12

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

 

Pièces jointes

• Classeur1.xlsx

  9.8 KB · Affichages: 40
• Classeur1.xlsx

  9.8 KB · Affichages: 41
• Classeur1.xlsx

  9.8 KB · Affichages: 48

Vote positif 0 Vote négatif

E

Eric702

Guest

• 12 Décembre 2010

• #13

Re : extraire d'une cellule

Qui cherche trouve....

A bientôt les amis

 

Pièces jointes

• Classeur1.xlsx

  9.8 KB · Affichages: 53
• Classeur1.xlsx

  9.8 KB · Affichages: 53
• Classeur1.xlsx

  9.8 KB · Affichages: 52

Vote positif 0 Vote négatif

E

Eric702

Guest

• 12 Décembre 2010

• #14

Re : extraire d'une cellule

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

Merci pour votre aide
Eric

 

Pièces jointes

• Classeur1.xlsx

  9.8 KB · Affichages: 42
• Classeur1.xlsx

  9.8 KB · Affichages: 40
• Classeur1.xlsx

  9.8 KB · Affichages: 50

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 12 Décembre 2010

• #15

Re : extraire d'une cellule

Bonjour


Tu le dis pourtant toi-même 😉

Qui cherche trouve....

Cliquez pour agrandir...

Cherches encore ...

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

Code:

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

en C4

Code:

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

en D4

Code:

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

en E4

Code:

=DROITE(A4)

 

Dernière édition: 12 Décembre 2010

Vote positif 0 Vote négatif