Boîte de dialogue + données

[Fox]

Bonsoir le forum et bon week-end à tous.

Voilà est-il réalisable à partir d'un macro de réaliser :

Un boite de dialogue s'ouvre et qui me demande :

Nombres d'engins->
suivant la réponse exemple: 3

Puis me demande :

Numéro de l'engin N°1 ->
Nombre de Tours ->
et me donne le résultat Nombre de tour * 75 si le numéro de l'engin est inférieur à 40 sinon * 90

Ainsi de suite suivant le nombre d'engins rentrée

Et au final me donner le résultat total


Je sais que cela est directement possible à faire sur le tableur mais j'ai un problème de place et c'est un peu un genre de mini calculette que je veux réaliser ou je n'aurai qu'à placer le résultat final.

Merci d'avance de votre aide

 

[Mytå]

salu Fox

Vite fait sa ressemblerait a ceci

Sub essai()
MyValue = InputBox("Veuillez entrer le nombre d'engins", "Nombre d'engins", "1")
If MyValue < 1 Then Exit Sub
For i = 1 To MyValue
MyValue2 = InputBox("Veuillez entrer le nombre de tours", "Engin No:" & i, "1")
If MyValue2 < 1 Then Exit Sub
If MyValue2 < 40 Then
resultat = MyValue2 * 75
Else
resultat = MyValue2 * 90
End If
Cells(i, 1) = i
Cells(i, 2) = resultat
Next i
End Sub

Reste a adapter a ton gout

Mytå

 

[Fox]

Merci, ça ressemble éffectivement, mais dans ton exemple il ne me demande pas le numéro de l'engin N° et c'est suivant le numéro de l'engin que le nombre de tours doit-être multiplié par 75 ou 90.

Merci

 

[Mytå]

re Fox

Bien la tu veux quoi clé en main. Et dire regarde Boss j'ai fait ca?

remplace ceci

If MyValue < 40 Then
resultat = MyValue2 * 75
Else
resultat = MyValue2 * 90
End If

 

[Fox]

Merci

Pour le boss, il s'en tappe de la manière dont les rapports sont réalisées du moment qu'il a ceux-ci le matin quand il arrive.

C'est juste un confort pour moi même et ayant de faible connaissance en vb j'essaye simplement d'essayer de mieux comprendre grâce en grande partie à ce forum

Bon week-end et merci de ta compréhension