• Initiateur de la discussion Initiateur de la discussion Jocelyn
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Bonjour le forum
Bonjour Jocelyn, bonjour Gérard

Pour le plaisir de te croiser, Gérard, la même chose sous VBA (Je sais que tu en es friand maintenant) :

Sub Vitesse()
'ChrisV, mpfe
Dim Trajet As Double, Temps As Double, Vitesse As Double
Distance = Application.InputBox _
('Précisez la distance parcourue en Km', Type:=1)
Temps = Application.InputBox _
('Combien de temps avez vous mis ? (Ex: 02:15)', Type:=1)
Vitesse = Distance / (Temps * 24)
Valeur_arrondie = Application.Round _
((Distance / (Temps * 24)), 2)
MsgBox 'Votre vitesse moyenne était de: ' _
& Valeur_arrondie & ' Km/h'
End Sub

Bonne soirée à toutes & à tous 😉
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
10
Affichages
268
Réponses
3
Affichages
175
  • Question Question
Microsoft 365 Mediane occupation
Réponses
6
Affichages
223
Retour