Normalement, vous ne pouvez saisir des données que dans un champ de texte dans une zone de saisie. Cependant, si vous devez effectuer plusieurs entrées, vous pouvez appeler cette fonction plusieurs fois de suite et écrire les valeurs enregistrées dans un tableau les unes après les autres.
Sub donneesMultiple() Dim i As Long Dim i2 As Long For i2 = 1 To 6 i = Application.InputBox(prompt:="Entrer le nombre:", _ Type:=1) If i <> False Then Sheets("Feuil1").Cells(1, i2).Value = i Else: Exit Sub End If Next End Sub
Commentaires
■ La méthode Inputbox est appelée six fois de suite à partie de la boucle For Next.
■ Si vous cliquez sur le bouton ANNULER, la macro se termine immédiatement. Sinon, les données saisies sont écrites dans la feuille de calcul Feuil1.