Progamme en VBA
Résolu/Fermé4 réponses
Patrice33740
Messages postés
8556
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
2 mars 2023
1 776
25 mars 2012 à 21:03
25 mars 2012 à 21:03
j'arrive a faire avec la 1ere partie : demander utilisateurs entrer 2 valeurs
pour la 2eme partie, je suis tjrs bloque
ce que j'ai fait, mais ca marche pas comme je veux:
Sub Macro3()
Sheets("Feuil1").Select
Dim valeur1 As Long
Dim valeur2 As Long
Dim compteur As Long
Dim i As Integer
Dim j As Integer
valeur1 = InputBox("Entrez un chiffre entre 1 et 4: ")
compteur = 1
Do While valeur1 <> "1" And valeur1 <> "2" And valeur1 <> "3" And valeur1 <> "4"
MsgBox ("la valeur saisie n'est pas correcte")
valeur1 = InputBox("Re-entrez un chiffre entre 1 et 4: ")
compteur = compteur + 1
Loop
MsgBox valeur1
valeur2 = InputBox("Entrez un chiffre entre 1 et 3: ")
compteur = 1
Do While valeur2 <> "1" And valeur2 <> "2" And valeur2 <> "3"
MsgBox ("la valeur saisie n'est pas correcte")
valeur2 = InputBox("Re-entrez un chiffre entre 1 et 3: ")
compteur = compteur + 1
Loop
MsgBox valeur2
compteur = 1
Do
For i = 0 To valeur1
For j = 0 To valeur2
Range("A1").Offset(i, j) = compteur
compteur = compteur + 1
Next j
Next i
Loop While compteur > 100
End Sub
pour la 2eme partie, je suis tjrs bloque
ce que j'ai fait, mais ca marche pas comme je veux:
Sub Macro3()
Sheets("Feuil1").Select
Dim valeur1 As Long
Dim valeur2 As Long
Dim compteur As Long
Dim i As Integer
Dim j As Integer
valeur1 = InputBox("Entrez un chiffre entre 1 et 4: ")
compteur = 1
Do While valeur1 <> "1" And valeur1 <> "2" And valeur1 <> "3" And valeur1 <> "4"
MsgBox ("la valeur saisie n'est pas correcte")
valeur1 = InputBox("Re-entrez un chiffre entre 1 et 4: ")
compteur = compteur + 1
Loop
MsgBox valeur1
valeur2 = InputBox("Entrez un chiffre entre 1 et 3: ")
compteur = 1
Do While valeur2 <> "1" And valeur2 <> "2" And valeur2 <> "3"
MsgBox ("la valeur saisie n'est pas correcte")
valeur2 = InputBox("Re-entrez un chiffre entre 1 et 3: ")
compteur = compteur + 1
Loop
MsgBox valeur2
compteur = 1
Do
For i = 0 To valeur1
For j = 0 To valeur2
Range("A1").Offset(i, j) = compteur
compteur = compteur + 1
Next j
Next i
Loop While compteur > 100
End Sub
ccm81
Messages postés
10853
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
24 avril 2024
2 404
26 mars 2012 à 12:02
26 mars 2012 à 12:02
bonjour
avec ce que je comprends
dans ta boucle compteur il doit y avoir
1. la demande de valeur1
2. la demande de valeur2
3. l'affichage de compteur dans la bonne cellule
bonne suite
avec ce que je comprends
dans ta boucle compteur il doit y avoir
1. la demande de valeur1
2. la demande de valeur2
3. l'affichage de compteur dans la bonne cellule
bonne suite