Incompatibilité de type

[wilfried_42]

salut à tous,

j'ai trouvé sur ce forum un truc interressant que j'essaie de faire fonctionner

il me met incompatibilité de type

je comprends pas pourquoi

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Value = Range("$E$10").Value Then
Dim lg As Integer
lg = Len(Target.Value)
Range("$E$10").Value = Target.value + String$(15 - lg, "9")
End If
End Sub

merci d'avance pour vos reponses

 

[ziopizza]

Re : Incompatibilité de type

Bonsoir wilfried_42,

Mon interprétation !

Ce code ne sers cas forcer la saisie à 15 caractères, il ajoute autant de 9 que ce qui manque de caractères pour arriver à 15.

Incompatibilité de type si tu rentres des chiffres.(String pour variable texte).
Perso hors de son contexte je ne vois pas à quoi il peut servir.
Salut Yves

 

[wilfried_42]

Re : Incompatibilité de type

bonsoir yves

il sert à combler par des 9 un n° de securite sociale quand c'est un etranger, tout se termine par des 9, j'ai utilisé le formatage spécial d'excel c'est mon string$ qui devrait planter, ca plante avant

merci pour ta reponse si tu as une idée incomptibilité de type est dévlanché par l'instruction en vert

merci à toi

 

[ziopizza]

Re : Incompatibilité de type

Ajoute cette ligne, juste avant ton if.

On Error Resume Next

Yves

 

[wilfried_42]

Re : Incompatibilité de type

re:yves

ok j'essaie merci pour ton aide

A+