Recuperation de chiffres

[Bruce68]

Bonsoir à tous
Je recherche une macro pour recuperer uniquement les chiffes Derriere le A ( Colonne A)cela peut aller de 1 à 65000


Je vous remercie de votre aide

 

[Bebere]

Re : Recuperation de chiffres

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

 

[hoerwind]

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

 

[Bebere]

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

 

[Bruce68]

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

 

[hoerwind]

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";"")

 

[hoerwind]

Re : Recuperation de chiffres

Re,

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

 

[Bruce68]

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

 

[Bebere]

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

 

[Bruce68]

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

 

[Bebere]

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

 

[Bruce68]

Re : Recuperation de chiffres

Bonjour à tous

Merci bebere pour l'infos

à bientot