Bonjour,
Je bloque sur un petit problème, j'ai eu beau chercher je ne trouve pas de solutions
Voilà je dispose d'une liste "min/heure"
et au changement de cette liste je voudrais pouvoir changer plusieurs cellule
je m'explique:
J'ai un tableau ou sont marqué des temps (différentes opérations sur différentes pièces) de B210, ma liste est en A1
Je rentre mes temps das une unité donnée, ex en min
puis je souhaite connaitre les temps en heure,
je veux donc lorsque je met "heure" sur ma liste le tableur m'affiche mes temps en heure (juste /60)
et vis versa , en mettant min les temps *60, (donc je retombe sur mes valeurs initiales)
Je souhaite juste avoir un entiers, pas besoin de mettre le temps en format heure où autres
Si quelqu'un à une idée de réponse
sinon j'ai essayé avec cette macro (déjà sur une cellule):
Pas très fructueux :/
Merci
Je bloque sur un petit problème, j'ai eu beau chercher je ne trouve pas de solutions
Voilà je dispose d'une liste "min/heure"
et au changement de cette liste je voudrais pouvoir changer plusieurs cellule
je m'explique:
J'ai un tableau ou sont marqué des temps (différentes opérations sur différentes pièces) de B210, ma liste est en A1
Je rentre mes temps das une unité donnée, ex en min
puis je souhaite connaitre les temps en heure,
je veux donc lorsque je met "heure" sur ma liste le tableur m'affiche mes temps en heure (juste /60)
et vis versa , en mettant min les temps *60, (donc je retombe sur mes valeurs initiales)
Je souhaite juste avoir un entiers, pas besoin de mettre le temps en format heure où autres
Si quelqu'un à une idée de réponse
sinon j'ai essayé avec cette macro (déjà sur une cellule):
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A1")) Is Nothing Then
If Range("A1").Value = "min" Then
Range("B2").Value = Range("B2").Value * 60
ElseIf Range("A1").Value = "heure" Then
Range("B2").Value = Range("U10").Value / 60
End If
End If
End Sub
Merci
Dernière édition: