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):
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
Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
Application.EnableEvents = False
Application.ScreenUpdating = False
If Target.Address = "$A$1" Then
For Each c In [B2:B10]
If IsNumeric(c) And c <> "" Then
If Target = "min" Then c = c * 60 Else c = c / 60
End If
Next c
End If
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
Bonjour, Un grand merci Eric
J'ai réessayer avec ton code ça marche nickel
je ne comprend pas trop pourquoi ça n'as pas marché hier (je pense que les macro fatigué un peu parceque plus rien ne marché, le fait d'avoir rebooté sans doute...)