Saisie de valeurs

Bonjour à toutes et à tous

J'ai un véritable souci pour écrire un code VBA simple, très simple. Je reconnais que je suis débutant !

Voici mon souci :

Écrire une procédure qui affiche une InputBox() demandant à l'utilisateur de saisir une valeur
puis affiche une MsgBox() demandant à l'utilisateur s'il souhaite continuer et boucle tant que
l'utilisateur clique sur le bouton Oui. Si l'utilisateur clique sur Non, la boucle se termine et une
dernière MsgBox() apparait pour afficher toutes les valeurs saisies par l'utilisateur.

De l'aide s'il vous plaît

Merci à toutes et à tous

Bonjour theodulemagloire et

Une petite présentation ICI serait la bienvenue

Si vous ne l'avez pas encore fait, je vous invite à lire la charte du forum [A LIRE AVANT DE POSTER]
qui vous aidera dans vos demandes et réponses sur ce forum.

Concernant votre demande, voici le code

Sub SaisiValeurs()
  Dim sVal As String, MemVal As String
  Dim Rep As Long
  Do
    ' Demande de saisie
    sVal = InputBox("Quelle valeur", "SAISIE DEMANDEE")
    ' Si la valeur n'est pas vide
    If sVal <> "" Then MemVal = MemVal & sVal & ", "
    ' Poser la question
    Rep = MsgBox("Voulez-vous cotinuer la saisie ?", vbQuestion + vbYesNo, "QUESTION...")
  Loop While Rep = vbYes
  ' Supprimer la dernière virgule
  MemVal = Left(MemVal, Len(MemVal) - 2)
  ' Afficher les valeurs
  MsgBox "Voici la liste des valeurs saisies :" & MemVal
End Sub

Merci de votre participation

Cordialement

bonjour,

Merci pour votre prompte réponse, je vais l'essayer et je vous reviens

Je suis ravie

Une fois de plus merci

Merci à toutes et merci à tous !

Sujet résolu ! Merci