[XL-2007] Figer données Texte numérique [Résolu]

[meumeu73.1]

Bonjour,

j'utilise :

Code :

Private Sub Worksheet_change(ByVal target As Range)

qui me sert lorsque je complète une cellule à ajouter des données sur d'autres.

Je n'ai pas de problème pour cela c'est assez facile, même pour figer les cellules qui contienne des formules.

par contre, ce que je n'arrive pas à faire, c'est de figer le résultat d'un recherchev (0038484 par exemple), lorsque je fige ce résultat, j'obtiens la valeur numérique 38484 alors que je voudrai le résultat 0038484 en faisant disparaître la formule de recherchev.

Par avance merci pour votre aide.

[Gestionnaire_rh]

Bonjour,

je pense que tu peut avoir le résultat voulu avec cette exemple:

Code :

1
2
3
4
Dim t As Long
Range("a1").FormulaLocal = "=RECHERCHEV(A3;02!A1:B10;2;0)"
t = Range("b1").Value
Range("a1").NumberFormat = Sheets("02").Range("b" & t).NumberFormat

et la cellule B1 qui serre pour récupérer le numéro de ligne:

Code :

B1=EQUIV(RECHERCHEV(A3;'02'!A1:B1;2;0);'02'!B:B;0)

Cordialement

Gestionnaire rh

[meumeu73.1]

Merci, en fait, je viens juste de trouver une solution :

Ma formule :

Code :

        target.Offset(0, 1).Value = "=TEXT(VLOOKUP(RC1,'" & Chemin & "\[INFOS.xlsx]Feuil1'!C1:C[27],27,FALSE),""00000000"")"

mon code pour figer :

Code :

        Range(target.Offset(0, 1), target.Offset(0, 1)).Value = "'" & Range(target.Offset(0, 1), target.Offset(0, 1)).Value