déconcatener

[cogite]

bonsoir les XLDeurs,
Je voudrais recupérer la valeur numérique de la cellule D1= AA432 et la recopier dans la cellule C1 d'une autre feuille (C1= 452).
Meri pour votre aide

 

[Tibo]

Bonjour cogite,

Sous réserve d'avoir bien compris :

En C1 :

=DROITE(Cellule_D1;NBCAR(Cellule_D1)-2)*1


Remplace Cellule_D1 par les références de la vraie D1.

Une petite question : tu transformes AA432 en 452 ? Est une faute de frappe ? La formule proposée tranforme en 432.

Autre point : la formule est établie en considérant qu'il y a toujours 2 lettres en début suivi d'un nombre.

Si problème, reviens avec davantage de précisions.


Bonne soirée

@+

 

[cogite]

salut tibo, les XLDeurs.

En effet c'est une faute de frappe AA432 devient 432. :S
Mais il me faudrait plutot une solus en VBA. :unsure:

Cordialement

 

[myDearFriend!]

Bonsoir cogite, Tibo, le Forum.

Pour ma part, je proposerais une fonction personnalisée (à coller dans un module de code général comme Module1 par exemple) :

Function Num(R As Range) As Long
Dim V As Variant, C As Byte
      V = R.Value
      For C = 65 To 90
            If Val(V) > 0 Then Exit For
            V = Replace(V, Chr(C), '')
      Next C
      Num = Val(V)
End Function

Deux façons de l'utiliser ensuite :
[ol][li]Par VBA :

Sub Test()
      Sheets(2).Range('C1').Value = Num(Sheets(1).Range('D1').Value)
End Sub

[/li]
[li]Comme une formule directement dans la cellule C1 de la feuille 2 :

=Num(Feuil1!D1)

[/li][/ol]
Cordialement,

Message édité par: myDearFriend!, à: 18/10/2005 22:28