Division Automatique[Résolu]

[3xceln4ute]

Bonjour,

Je souhaite implémenter la division automatique dans une cellule.
Dès que j'insère un chiffre, il se divise automatique par 24 dans la même cellule.

Comment procède-t-on à ceci s'il vous plait ?

 

[kjin]

Re : Division Automatique

Bonjour,
Ici avec la cellule A1, dans le module de la feuille

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" And Target.Count = 1 Then
    Application.EnableEvents = False
    If Target <> "" Then Target = Target / 24
    Application.EnableEvents = True
End If
End Sub

A+
kjin

 

[James007]

Re : Division Automatique

Bonjour,

Voir le fichier joint pour tester ...

A +

 

[ROGER2327]

Re : Division Automatique

Bonjour à tous

[COLOR=DarkSlateGray][B]Private Sub Worksheet_Change(ByVal Target As Range)
Dim plg As Object, cel As Range
  Set plg = Intersect([/B][/COLOR][COLOR=DarkSlateGray][B]Target[/B][/COLOR][COLOR=DarkSlateGray][B], Range("A1:A10")) [COLOR=Sienna]'Range("A1:A10") : plage de saisie à adapter[/COLOR]
  If Not plg Is Nothing Then
    Application.EnableEvents = 0
    For Each cel In plg.Cells
      If Not cel.Value = "" Then
        If IsNumeric(cel.Value) Then cel.Value = cel.Value / 24
      End If
    Next cel
    Application.EnableEvents = 1
  End If
End Sub[/B][/COLOR]

à placer dans le module de la feuille concernée.
​

ROGER2327
#4618

Jeudi 26 As 138 (Saint Mensonger, évêque, SQ)
8 Frimaire An CCXIX
2010-W47-7T14:04:42Z

 

[3xceln4ute]

Re : Division Automatique

Parfait c'est ce que je recherchais, merci beaucoup mes amis.
Comme le but de la division automatique est de convertir les chiffres avec décimales vers le mode [H:mm] (sachant que le format de cellule est : [h]"h"mm"").

Donc habituellement pour convertir les heures du décimal vers [h:m], je dois écrire : [=23.50/24] ce qui m'affiche : 23h30.

Voilà la situation, au lieu de diviser manuellement 20 fois par jours, je préfère une solution efficace et rapide.

Veuillez trouver ci-joint le fichier en question (cellules oranges : les cases des heures de marche).
Cijoint.fr - Service gratuit de dépôt de fichiers

Et je m'excuse en passant 🙂.

Amicalement.

 

[ROGER2327]

Re : Division Automatique

Re...

Adaptation :

[COLOR=DarkSlateGray][B]Private Sub Worksheet_Change(ByVal Target As Range)
Dim plg As Object, cel As Range
  Set plg = Intersect(Target, Range("C8, C14, F8, F14"))
  If Not plg Is Nothing Then
    Application.EnableEvents = 0
    For Each cel In plg.Cells
      If Not cel.Value = "" Then
        If IsNumeric(cel.Value) Then cel.Value = cel.Value / 24
      End If
    Next cel
    Application.EnableEvents = 1
  End If
End Sub[/B][/COLOR]

(Testé)
​

ROGER2327
#4622

Jeudi 26 As 138 (Saint Mensonger, évêque, SQ)
8 Frimaire An CCXIX
2010-W47-7T14:43:28Z

 

[ROGER2327]

Re : Division Automatique

Suite…

Suite à la demande de précision sur l'insertion du code dans le classeur par subirubi : pour ouvrir le module de la feuille concernée (SCHB), faire un clic-droit sur l'onglet et choisir Visualiser le code. C'est là qu'il faut placer le code.
(Voir le classeur joint.)
​

ROGER2327
#4624

Vendredi 27 As 138 (Sainte Visité, fille du précédent, SQ)
9 Frimaire An CCXIX
2010-W48-1T01:19:33Z

 

[3xceln4ute]

Re : Division Automatique

Eh bein Roger, je ne saurais comment te remercier pour le superbe boulot que tu m'as fait.
C'est pile poil ce que je cherchais, et sans l'aide du forum je ne l'aurais jamais trouvé.
Par la même occasion je remercie : Jean Marcel, Kjin & James007.

Merci infiniment encore une fois.

Amicalement.