Progamme en VBA
Résolu/Fermé
A voir également:
- Progamme en VBA
- Excel compter cellule couleur sans vba - Guide
- Mkdir vba ✓ - Forum VB / VBA
- L'indice n'appartient pas à la sélection vba ✓ - Forum Programmation
- Autofill vba ✓ - Forum Excel
- Vba range avec variable ✓ - Forum VB / VBA
4 réponses
Patrice33740
Messages postés
8561
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
15 mars 2025
1 779
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
10908
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
2 mai 2025
2 431
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
