Passer un nombre en minute

Bonjour,

Dans un programme j'obtiens une variable i qui vaut un nombre, j'aimerais que dans une cellule (A1 par exemple) s'affiche i*20 minutes.

Ex: si i=2 alors A1=00:40:00 si i=3 alors A1=01:00:00

Merci d'avance!

Bonjour YannisB le forum

si ta feuille s'appelle Feuil1 (codename)

Sub traiter()
    Dim i&
    i = 5
    Feuil1.Cells(1, 1) = CDate(i * CDate("00:20:00"))
    Feuil1.Cells(1, 1).NumberFormat = "hh:mm"
End Sub

a+

Papou

bonjour,

range("A1")=i*(1/72)

1/72= 20 min

mettre A1 au format heure

Merci de vos réponses, j'ai un problème avec une autre ligne de code pour le même sujet, c'est un ligne que quelqu'un m'avait donné sur le forum: (c'est la ligne If)

For Each c In Me.Controls

             If TypeName(c) = "CheckBox" & c.Value = True Then
             nombre = nombre + 1
             End If

        Next

        f.Range("I" & i).Value = CDate(nombre * CDate(" 00 :20 :00 "))

Mon but est de compter le nombre de checkbox cochées et d'afficher dans ("I"&i), 20 minutes par case cochée.

Compter les Check box cochées me suffirait, j'ai essayé cela mais ça ne marche pas:

 For n = 1 To 17

             If "CheckBox" & n.Value = True Then
             nombre = nombre + 1
             End If

        Next n

EDIT: j'ai 17 CheckBox et elles s'appellent CheckBox1, CheckBox2, etc...

Re YannisB le forum

If  Controls("CheckBox" & n) =1 Then
             nombre = nombre + 1
             End If

a+

Papou

Mon code ressemble désormais a cela:

        nombre = 0
        For n = 1 To 17

             If Controls("CheckBox" & n) = 1 Then
                nombre = nombre + 1
             End If

        Next n

        f.Range("I" & i).Value = CDate(nombre * CDate(" 00 :20 :00 "))

mais peu importe combien de CheckBox je coche, ça m'affiche "12:00:00 AM"

Re Bonjour Yannis le forum

si tu passais un fichier avec les explication de ce que tu veux exactement, ce serait déjà réglé depuis longtemps

a+

Papou

Le fichier est grand et complexe, ce code se trouve dans la userform de demande de mesure, quand on lance la userform on doit la remplir, en fonction du nombre de case que l'on coche, un temps de performance attendu "temps alloué "s'affiche, je te laisse regarder

Re YannisB le forum

je te fais cela en début d'après midi, car là il faut que je passe en cuisine

a+

Papou

Merci pour ton temps!

Bon appétit!

Re YannisB le forum

ton fichier en retour avec ce que tu veux (tu avais déjà la réponse dans mon post de ce matin, encore faut-il le recopier ou du moins l'adapter)

a+

Papou

Merci ça fonctionne parfaitement!

J'avais essayé plusieurs choses mais sans succès!

Bonne journée!