Imposer un chiffre

Victor21

XLDnaute Barbatruc

• 26 Novembre 2011

• #2

Re : Imposer un chiffre

Bonjouz.

la macro événementielle dans le module de la feuille Janvier

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 Then
    If Target.Column = 1 And Target.Row > 3 And Target <> "" Then
        Application.EnableEvents = False
        Target = Target + [A1] - 1
        Target.NumberFormat = "dd/mm/yyyy"
        Application.EnableEvents = True
    End If
End If
End Sub

ajoute 40908 à chaque entrée dans votre colonne (numéro de série du 1/1/2012-1).

 

Vote positif 0 Vote négatif

D

dipsiemarin

XLDnaute Occasionnel

• 26 Novembre 2011

• #3

Re : Imposer un chiffre

Bonsoir Victor21

Merci pour la reponse malgre tout si je ne comprends pas le language vba comment se fait il que meme en affichant un nombre standard je n'arrive pas à obtenir le chiffre que je voudrais

merci
dipsiemarin

 

Vote positif 0 Vote négatif

Victor21

XLDnaute Barbatruc

• 26 Novembre 2011

• #4

Re : Imposer un chiffre

Re,

Parce que

la macro événementielle dans le module de la feuille Janvier ajoute 40908 à chaque entrée dans votre colonne.

Cliquez pour agrandir...

PS1 : c'est du français, pas du VBA...
PS2 : Je serais surpris que, bien qu' événementielle, cette macro se soit auto-générée.

 

Vote positif 0 Vote négatif

Fred0o

XLDnaute Barbatruc

• 26 Novembre 2011

• #5

Re : Imposer un chiffre

Bonsoir dipsiemarin, Victor21,

Dans ta feuille, il y a déjà une procédure évènementielle qui rajoute à la valeur entrée : 01/01/2012 + 1 et transforme le tout en date.
Il faut faire click-droit sur l'onglet, puis 'Visualiser le code'. Là, tu supprimes la Sub et tu quittes VBA.
Ensuite, tu peux applique la mise en forme et ça marche !

A+

Edit : Bing. Salut Victor21

 

Vote positif 0 Vote négatif

D

dipsiemarin

XLDnaute Occasionnel

• 27 Novembre 2011

• #6

Re : Imposer un chiffre

Bonjour Victor21 et Fred0o,

effectivement en supprimant la sub ca fonctionne j'ai pu refaire mes tableaux
je vous en remercie infiniment

bon dimanche
dipsiemarin

 

Vote positif 0 Vote négatif