Quelle touchres du clavier utiliser pour arrêter une macro

Bonjour à tous,

je travaille avec des macros qui comportent des boucles For...Next

cela varie de 1 To 25, mais parfois 5 boucles sont suffisantes. c'est un MsgBox avec saisie

Comment arrêter cette macro pour éviter la succession de cette boucle ? après 4 ou 5 actions.

Soit avec une ligne de code ou une touche du clavier

je vous poste mon code

  Sub Message()
Dim x As Integer

   MsgBox "Avez-vous sélectionné la colonne de la commune ?" & vbCr & _
    "entrez le N° de la commune avant le Nom ( ex: 04 pour Perwez"
    ActiveCell.Range("A1").Select                                     ''''''Permet deux lignes de message
     For x = 1 To 25
                        ' parfois 5 sont suffisantes
    ActiveCell.FormulaR1C1 = Application.InputBox(Prompt:="Entrez un Nom")
      ActiveCell.Select
    With Selection.Font           '    Dans cet exemple,la macro attend que l'utilisateur
        .Name = "Arial"        ' entre une valeur dans la boite de message
        .Size = 11
        .ColorIndex = xlAutomatic

    End With
     ActiveCell.Offset(1, 0).Range("A1").Select

    Next x
   ActiveCell.Offset(1, 0).Range("A1").Select         ' Effectue la boucle suivant la variable
End Sub

Un grand merci à tous

Amicalement

Pierrot

Bonjour pierrot

je ne sais pas si j'ai bien saisi ta demande...

mais si tu veux arreter ta boucle for après 5 boucle par exemple tu peux mettre

if x = 5 then exit for

Quelle est ta condition de sortie de boucle ne fait...

pourquoi ne pas réduire ta boucle dans ce cas passer de 25 à 5...

fred

Bonsoir Fred,

Je mets 25 dans la boucle parce que dans certain cas, j'ai besoin de plus de 20 entrées

cette macro est très aléatoire,

Je vais suivre ton conseil, et réduire la boucle à 5. Si nécessaire, on effectuera plusieurs tours.

Un grand merci et bonne soirée

Amicalement

Pierrot