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.