Discussion :

[texas2607]

Bonjour à tous,
j'ai besoin de rentrer des code postaux dans des cellules mais actuellement, et pour des raisons de compatibilité, la forme doit être '69000 par exemple et non pas 69000 (je réutilise ces données dans d'autres formules)

par contre comme je vais devoir "partager" ce classeur, Il y a-t-il un moyen que si la personne rentre directement 69000 alors la valeur soit remplacé par '69000 et ce de facon transparente

J'ai fais un bout de code qui teste la longueur une fois la cellule mise à jour par l'intervenant mais avec ou sans le ' cela me marque toujours 5 caractères.
Ensuite j'ai fais un test sur IsNumeric, mais là également dans les 2 cas Excel me le donne numérique,
Donc j'en déduit que le ' est "invisible" pour excel, aussi comment faire pour le rajouter si il est manquant ???


D'avance merci
Fred

[jfontaine]

Bonjour,
Tu peux utiliser l’évènement Change
Ici les CP sont dans la colonne A

Code :

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

1
2
3
4
5
6
7
Private Sub Worksheet_Change(ByVal Target As Range)
 
If Target.Count = 1 And Target.Column = 1 Then
    Target.Value = "'" & Target.Value
End If
 
End Sub

[texas2607]

salut jfontaine et merci,
Merci mais je l'avais déjà mais si je rejoute cette "formule" alors tout plante.

Je joint le fichier
je travaille sur l"onglet nommé : Reporting et les CP sont en B

les seuls CP qui marchent sont dans les départements 15, 63, 69, 42 puisque j'ai d'autres calculs qui se font à partir de ces CP et des dates.

tu verra, actuellement cela fonctionne si tu rentre les CP en manuel avec ' mais si tu remet ta ligne en fonction (je l'ai mise en commentaire) alors tout plante.
En changeant la date en A7 et en mettant par exemple 30/5/2011 (afin d'avoir une semaine à cheval sur 2 mois) tu verra le reste des calculs et le pourquoi du besoin du '

Amicalement,
Fred

[jfontaine]

Essai de mettre le code dans Worksheet_SelectionChange