Recuperation de chiffres

B

Bebere

XLDnaute Barbatruc

• 5 Février 2010

• #2

Re : Recuperation de chiffres

bonjour Bruce
en a1=a65000
en b1=CNUM(STXT(A1;2;NBCAR(A1)-1))
à bientôt

 

Vote positif 0 Vote négatif

H

hoerwind

XLDnaute Barbatruc

• 5 Février 2010

• #3

Re : Recuperation de chiffres

Bonjour, salut Bebere,

Pour Bebere : il me semble que notre ami a demandé une macro.

Pour une formule il y a plus court, au choix :
=SUBSTITUE(A1;"A";"")*1
=DROITE(A1;NBCAR(A1)-1)*1

 

Vote positif 0 Vote négatif

B

Bebere

XLDnaute Barbatruc

• 5 Février 2010

• #4

Re : Recuperation de chiffres

bonjour Hoerwind
je dois nettoyer mes lunettes c'est certain
une macro est ce nécessaire
cest sûr,il ya plusieurs solutions
j'ai du ajouté cnum pour avoir un nombre
et toi
merçi
à bientôt

 

Vote positif 0 Vote négatif

B

Bruce68

XLDnaute Impliqué

• 5 Février 2010

• #5

Re : Recuperation de chiffres

Bonjour à tous
Merci bebere et hoewind pour vos réponses mais effectivement il me faut une macro voir ci dessous

Dim SuppAdress As String
With UserForm2.ListView1
SuppAdress = .ListItems(.SelectedItem.Index).ListSubItems(1).Key '(6) N°colonne ;1° colonne = 0 Feuille Factures
End With

Ici la recup du chiffre dans SuppAdress je rercupe tout( ex: A150 et il me faut 150)

With Worksheets("Donnees")
.Rows(?).Delete 'Shift:=xlUp
End With

Merci pour votre aide

 

Vote positif 0 Vote négatif

H

hoerwind

XLDnaute Barbatruc

• 5 Février 2010

• #6

Re : Recuperation de chiffres

Salut Bebere,

Pour appliquer un format nombre à une valeur numérique extraite, qui renvoie cette valeur en format texte, je connais trois possibilités :

CNUM (qui tu as employé)
*1 ou 1* (en fin ou en début de formule)
il y a aussi dans le même esprit : +0
-- devant la fonction : =--SUBSTITUE(A1;"A";"")

 

Vote positif 0 Vote négatif

H

hoerwind

XLDnaute Barbatruc

• 5 Février 2010

• #7

Re : Recuperation de chiffres

Re,

Si tu enregistres une des formules proposées sous une macro, tu devrais obtenir le résultat souhaité.

 

Vote positif 0 Vote négatif

B

Bruce68

XLDnaute Impliqué

• 5 Février 2010

• #8

Re : Recuperation de chiffres

Dim SuppAdress As String
With UserForm2.ListView1
SuppAdress = .ListItems(.SelectedItem.Index).ListSubItems(1).Ke y '(6) N°colonne ;1° colonne = 0 Feuille Factures
End With

Voici la formule que j'ai trouvé : Nbr = Mid(SuppAdress, 2, 5)

With Worksheets("Donnees")
.Rows(Nbr).Delete 'Shift:=xlUp
End With

 

Vote positif 0 Vote négatif

B

Bebere

XLDnaute Barbatruc

• 5 Février 2010

• #9

Re : Recuperation de chiffres

merçi Hoerwind
pour Bruce
si tu n'as qu'une lettre en début, comme suit suffit
Dim SuppLigne As Long
With UserForm2.ListView1
SuppLigne= mid(.ListItems(.SelectedItem.Index).ListSubItems(1).Key,2) '(6) N°colonne ;1°

colonne = 0 Feuille Factures
End With

Ici la recup du chiffre dans SuppAdress je rercupe tout( ex: A150 et il me faut 150)

With Worksheets("Donnees")
.Rows(SuppLigne).Delete 'Shift:=xlUp
End With
à bientôt

 

Vote positif 0 Vote négatif

B

Bruce68

XLDnaute Impliqué

• 5 Février 2010

• #10

Re : Recuperation de chiffres

Bonjour à tous

Merci bebere pour l'infos
Peux tu me donner l'infos pour une colonne à 2 lettres.

Merci pour l'aide

 

Vote positif 0 Vote négatif

B

Bebere

XLDnaute Barbatruc

• 5 Février 2010

• #11

Re : Recuperation de chiffres

Bruce
dim Ad as string,LetC as string
Dim SuppLigne As Long

Ad= .ListItems(.SelectedItem.Index).ListSubItems(1).Key
'ad peut contenir 1 ou 2 lettres
LetC = Left$(Range(ad).Address(0, 0), (Range(ad).Column < 27) + 2)
SuppLigne = Mid(.ListItems(.SelectedItem.Index).ListSubItems(1).Key, Len(LetC) + 1)

à bientôt

 

Vote positif 0 Vote négatif

B

Bruce68

XLDnaute Impliqué

• 5 Février 2010

• #12

Re : Recuperation de chiffres

Bonjour à tous

Merci bebere pour l'infos

à bientot

 

Vote positif 0 Vote négatif