Utiliser VBA pour essayer plusieurs valeurs dans une feuille de calcul

Résolu/Fermé

mipseudoperso - 20 août 2021 à 15:06
mipseudoperso - 20 août 2021 à 16:15

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:

Utiliser VBA pour essayer plusieurs valeurs dans une feuille de calcul
Utiliser chromecast - Guide
Calcul moyenne excel - Guide
Feuille de pointage excel - Télécharger - Tableur
Comment supprimer une feuille sur word - Guide
Logiciel gratuit calcul valeur nutritionnelle - Télécharger - Santé & Bien-être

2 réponses

Réponse 1 / 2

cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729
20 août 2021 à 15:18

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

Réponse 2 / 2

mipseudoperso
20 août 2021 à 16:15

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.

Discussions similaires

Impossible d'utiliser ce numéro de téléphone pour la validat

Feuille de score belote

feuille excel de gestion belote

comment avoir une page blanche pour écrire