Discussion :

[oscar.cesar]

bonjour
une question sur la manipulation de chaine de caractere .
soit les chaines $B$45 ou $H$2.
je cherche à recuperer uniquement les chiffres pour une utilisation ulterieure.
zctuellement il me reste la lettre à supprimer ?

voila ou j'en suis

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
 
Replace(chaine, "$", "")

[fred65200]

bonsoir,
une petite fonction qui doit faire l'affaire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
Function ExtraireChiffres(chaine)
For i = 1 To Len(chaine)
If IsNumeric(Mid(chaine, i, 1)) Then ExtraireChiffres = ExtraireChiffres & Mid(chaine, i, 1)
Next
 
End Function

cordialement

[oscar.cesar]

bonsoir à tous , fred
merci de ta reponse , je regarde ta function

pour ma part j'ai trouve ce code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
 
NbCol = CInt(Mid(Replace(chaine, "$", ""), 2, 2))

merci

[fred65200]

bonsoir,

ton code n'est pas adapté

NbCol = CInt(Mid(Replace(chaine, "$", ""), 2, 2))

tu cherche le numéro de colonne ou de ligne? Je pensais que tu cherchais la ligne.

Qu'arrive t'il avec ce code si tu as $IV$65535 ou $XFD$1048576 ?


cordialement

[oscar.cesar]

bonsoir

oui effecvtivement , j'avais pas vu ce cas .
cas qui ne devrait pas arrive dans mon prog .
la function est plus appropiee

Qu'arrive t'il avec ce code si tu as $IV$65535 ou $XFD$1048576 ?

[SilkyRoad]

bonsoir


Si tu recherches le numéro de ligne à partir d'une référence de cellule:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim Adresse As String
Adresse = "$B$45"
MsgBox Range(Adresse).Row

bonne journée
michel