formule DROITE extraire 1 à 3 chiffres

Staple1600

XLDnaute Barbatruc

• 9 Février 2013

• #2

Re : formule DROITE extraire 1 à 3 chiffres

Bonsoir

Et tu veux les extraire où ces chiffres? Dans quelles cellules?

Tu as pensé à Edition/Remplacer ?

 

Vote positif 0 Vote négatif

ralph45

XLDnaute Impliqué

• 9 Février 2013

• #3

Re : formule DROITE extraire 1 à 3 chiffres

Bonsoir coulou,

Formule à essayer :

=SI(OU(DROITE(B10;1)=":";DROITE(B10;1)="-");0;DROITE(B10;1))

Cliquez pour agrandir...

EDIT : Salut Staple1600 ! 😉
A+

 

Vote positif 0 Vote négatif

C

coulou

XLDnaute Occasionnel

• 9 Février 2013

• #4

Re : formule DROITE extraire 1 à 3 chiffres

Dans n'importe Quelles cellules et merci de ta réponse rapide et je vais essayer Edition/Remplacer

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 9 Février 2013

• #5

Re : formule DROITE extraire 1 à 3 chiffres

Re

Voilà ce donne l’enregistreur de macros en utilisant Edition/Remplacer
Code VB:
Sub Macro1()
Selection.Replace What:="courues :", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="places :", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="victoires :", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="-", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End Sub

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 9 Février 2013

• #6

Re : formule DROITE extraire 1 à 3 chiffres

Re


Si tu veux le faire par formules

Code:

=SI(ESTERR(STXT(C11;CHERCHE(":";C11)+1;3)*1);"";STXT(C11;CHERCHE(":";C11)+1;3)*1)

(en insérant au préalable une colonne entre chaque colonne existante)
donc ici mettre cette formule en D11 (qui sera vide puisque tu viendras d'insérer une colonne)

 

Dernière édition: 9 Février 2013

Vote positif 0 Vote négatif

J

JHA

XLDnaute Barbatruc

• 9 Février 2013

• #7

Re : formule DROITE extraire 1 à 3 chiffres

Bonsoir à tous,

Voir fichier joint

JHA

 

Pièces jointes

• extraire les chiffres.xls

  19 KB · Affichages: 47
• extraire les chiffres.xls

  19 KB · Affichages: 48
• extraire les chiffres.xls

  19 KB · Affichages: 50

Vote positif 0 Vote négatif

C

coulou

XLDnaute Occasionnel

• 9 Février 2013

• #8

Re : formule DROITE extraire 1 à 3 chiffres

oui mais il me faudrait 3 chiffres il me manque 2 meme si ta réponse fonctionne bien que pour un chiffre
merci de ta réponse

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 9 Février 2013

• #9

Re : formule DROITE extraire 1 à 3 chiffres

Bonjour à tous,

Peux-tu essayer :

=DROITE(B11;1)&"-"&SI(DROITE(B12;1)="-";0;DROITE(B12;1))&"-"&SI(DROITE(B13;1)="-";0;DROITE(B13;1))

Cliquez pour agrandir...

A + à tous

 

Dernière édition: 9 Février 2013

Vote positif 0 Vote négatif

C

coulou

XLDnaute Occasionnel

• 9 Février 2013

• #10

Re : formule DROITE extraire 1 à 3 chiffres

Bonsoir JHA milles mercis pour ta réponse excellente c'est bien ce que je voulais et je n'oublie surtout pas de remercier le forum
que j'adore merci encore

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 9 Février 2013

• #11

Re : formule DROITE extraire 1 à 3 chiffres

Re, Bonsoir JHA, JCGL

Comme c'est fait, inutile que cela reste dans mon VBE
Code VBA:
Sub a()
Dim c As Range, p As Range
Range("B10:Q13").Name = "ZONE"
For Each c In [ZONE]
Select Case c.Column Mod 2
Case 1
c.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
End Select
Next c
Application.Goto Reference:="ZONE"
Set p = Selection.SpecialCells(xlCellTypeBlanks)
p.FormulaR1C1 = "=IF(ISERR(MID(RC[-1],SEARCH("":"",RC[-1])+1,3)*1),"""",MID(RC[-1],SEARCH("":"",RC[-1])+1,3)*1)"
End Sub

 

Vote positif 0 Vote négatif

C

coulou

XLDnaute Occasionnel

• 9 Février 2013

• #12

Re : formule DROITE extraire 1 à 3 chiffres

Bsr Staple1600 je te remercie sincèrement pour le travail que tu fais j'ai gardé dans mes documents la macro
merci de ta gentillesse coulou

 

Vote positif 0 Vote négatif