Macro pour saisir plusieurs données, Excel VBA

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.

S’abonner
Notifier de
0 Commentaires
Inline Feedbacks
Voir tous les commentaires

Initiation à Excel

Fonctions Excel

Excel VBA

Macros VBA Utiles

Plus d'outils

Sur Facebook

Sur YouTube

0
Nous aimerions avoir votre avis, veuillez laisser un commentaire.x
()
x