Modifier un petit bout de code VBA...

[Christian0258]

Bonjour à tout,

J'ai à nouveau besoin de votre aide, afin de modifier un petit bout de code...

Voir fichier... c'est plus simple.

Merci pour votre aide,
Bien amicalement,
Christian

 

[wilfried_42]

Re : Modifier un petit bout de code VBA...

Bonjour christian

ton code

Private Sub Worksheet_Change(ByVal Target As Range)

  Application.EnableEvents = False
  If Target.Address <> "$C$8" Then Exit Sub
    If IsNumeric(Target.Value) Then
      Target.Value = Target.Value / 24
    End If
  Application.EnableEvents = True
End Sub

 

[Luki]

Re : Modifier un petit bout de code VBA...

Bonjour,
Tu peux essayer ainsi :

If Target.Column = 3 And Target.Row = 8 Then

A+

Edit, encore plus propre de la part de Wilfried 🙂 !

 

[Christian0258]

Re : Modifier un petit bout de code VBA...

Re le forum, Wilfried,


Merci, Wilfried, pour ton code, c'est impec.

à+
Bien amicalement,
Christian

 

[Christian0258]

Re : Modifier un petit bout de code VBA...

Re, le forum, Wilfried, Luki,


Merci à vous pour vos solutions.

J'ai toutefois un truc bizarre..

Fichier joint...

Encore merci,
Christian.

 

[wilfried_42]

Re : Modifier un petit bout de code VBA...

re:

ton fichier en retour

 

[Christian0258]

Re : Modifier un petit bout de code VBA...

Re,

Wilfried, merci pour ton aide.

Mais comment obtenir
expl :12h00 si je tape 12 (et non 288h00) ?

fichier joint

Merci pour le temps que vous me consacrez.

à+
Christian

 

[Christian0258]

Re : Modifier un petit bout de code VBA...

Re,

Problème résolu, dans option, calcul, ne pas cocher itération.

Merci à vous.
à+
Christian

 

[wilfried_42]

Re : Modifier un petit bout de code VBA...

re:

cela n'a rien à voir, ta procedure d'interruption de saisie n'est plus en cours, donc il concidere que tu tapes des jours et non des heures, il te les tansforme automatiquement en heures (nb * 24)

Je t'ai mis une macro, en dessous init, qui remet ton interrupteur d'evennement en marche,

tu te positionnes dessus (dans la procedure init) et en haut tu as une icone (un triangle (lecture)), tu cliques dessus et tu essaies
ca devrait fonctionner