Utiliser VBA pour essayer plusieurs valeurs dans une feuille de calcul

Résolu
mipseudoperso -  
 mipseudoperso -
Bonjour,

Je n'ai jamais utilisé VBA, mais je pense bien en avoir besoin dans le cadre de mon stage.
J'ai une feuille de calcul "Feuill1" dans laquelle je rentre un nombre entier en entrée en G4. Le résultat du calcul est donné Q29.
Je voudrais faire varier G4 de 0 à 31 et lister les résultats en "Feuill2".
J'ai donc créer un module sur VBA et j'ai rédigé ce bout de code :

Sub scenarios()

For nb_jour = 0 To 31
Sheets("Feuill1").Range("G4").Value = nb_jour
Sheets("Feuill2").Cells(nb_jour, 2).Value = Sheets("Feuill1").Range("Q29").Value
Next nb_jour

End Sub

Lorsque j'exécute cette macro, une fenêtre apparaît pour m'informer de l'erreur d'exécution '1004' : erreur définie par l'application ou par l'objet.

Je passe sans doute à côté d'un problème simple, mais je n'arrive pas à le trouver.

Merci à ceux qui me liront !

Configuration: Windows / Chrome 89.0.4389.82
A voir également:

2 réponses

cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729
 
Bonjour,

Corriger Feuil1 et Feuil2
Ensuite la boucle nb_jour doit débuter à 1 (1ère ligne)

Sub scenarios()
Dim nb_jour As Integer
For nb_jour = 1 To 31
Sheets("Feuil1").Range("G4").Value = nb_jour
Sheets("Feuil2").Cells(nb_jour, 2).Value = Sheets("Feuil1").Range("Q29").Value
Next nb_jour
End Sub



0
mipseudoperso
 
Merci, j'avais changé le nom des feuilles, ce n'était donc pas le problème, mais bien l'indice de la boucle.

Merci beaucoup, mon premier code VBA fonctionne désormais grâce à vous.
0