Aide VBA Macros

Bonjour tout le monde,

Je dois mettre à jour un tableau excel en début de mois en important des données depuis un fichier d'internet.
Ce que j'aimerais faire c'est créer une macro qui calcule mes données et qui les affichent par exemple dans la colonne à A1 au premier appui sur le bouton puis dans la colonne B1 au 2 ème appui.
Je ne sais pas comment repeter l'appui sur le bouton
le bouton est un bouton de commande comportant le code de ma macro.
En gros au début du mois d'avril j'appuie sur le bouton les résultats se calculent et s'affichent dans la cellule A1 puis au début du mois de mai j'appuie sur le bouton et les résultats s'affichent dans la cellule B1 ainsi de suite pour les 10 autres mois de l'année. Mon code fonctionne mais que pour la première cellule j'arrive pas pour les autres ...
Merci d'avance.

Mon code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Sub Pourcentage_frappe()   'On travaille dans la feuille export_perform_moyens Windows("export_perform_moyens.xls").Activate Dim Num As Currency Num = Range("W15").Value   ' On travaille désormais dans la feuille plan de progrès Windows("Plan de progres FY2015.xls").Activate   Range("G48").Select Selection.Value = Num Selection.NumberFormat = "General"   End Sub

---

Salut,

Il faut que tu stockes l'état du bouton de commande.
De 1 à 12 par exemple dans un onglet spécifique ou ailleurs pour que la valeur stockée corresponde au numéro de la colonne.

Merci de ta réponse j'ai déjà eu ce conseil or je ne vois absolument pas comment faire ...

Par exemple:

Code:

---

1 2 3 4 5 6

Option Explicit   Private Sub cmbMois_Click() Worksheets("DONNEES").Cells(1, Worksheets("VALEUR").[A1]) = "AAA" Worksheets("VALEUR").[A1] = Worksheets("VALEUR").[A1] + 1 End Sub

---

Avec en A1 dans l'onglet "VALEUR" la valeur du bouton de commande qui est initialisée à 1 au départ.
Ensuite il suffit d'incrémenter cette valeur qui correspond alors au numéro de colonne.

Les données à afficher sont dans l'onglet "DONNEES" et sur la première ligne dans cet exemple.

Donc si j'ai bien compris avec cet exemple dans l'onglet DONNEES en A1 je dois avoir AAA. Quand je click sur le bouton je dois avoir 1 dans l'onglet VALEUR ?

Je ne comprends pas très bien.
Ce que je veux c'est par exemple :
dans mon classeur j'ai un onglet "resultat" et un onglet "afficher". Dans l'onglet resultat j'ai une multitude de chiffre. j'aimerais par exemple, lorsque j'appuie sur un bouton de commande MAJ, dans l'onglet "valeur", qu'il m'affiche le chiffre inscrit dans la cellule C4 de l'onglet "resultat". Puis le mois suivant la valeur de la colonne C4 va changée et quand j'appuierais de nouveau sur le bouton MAJ il doit m'afficher ce nouveau resultat dans la feuille valeur à coté du précédent résultat.

Je sais pas si je suis compréhensible.
Merci en tout cas pour votre aide.

Code:

---

1 2 3 4 5 6

Option Explicit   Private Sub cmbMois_Click() Worksheets("AFFICHER").Cells(1, Worksheets("VALEUR").[A1]) = Worksheets("RESULTAT").[C4] Worksheets("VALEUR").[A1] = Worksheets("VALEUR").[A1] + 1 End Sub

---

1) Le bouton de commande est initialisé à 1 dans l'onglet "VALEUR";
2) L'appui sur le bouton de commande copie la valeur de la cellule C4 de l'onglet "RESULTAT" dans l'onglet "AFFICHER" en A1;
3) Le bouton de commande vaut 2 dans l'onglet "VALEUR";
4) L'appui sur le bouton de commande copie la valeur de la cellule C4 de l'onglet "RESULTAT" dans l'onglet "AFFICHER" en B1;
5) Le bouton de commande vaut 3 dans l'onglet "VALEUR";
6) ...

Cela ne fonctionne pas, lorsque je compile j'ai un message " erreur d'exécution 1004" "erreur définie par l'application ou l'objet.

Peux-tu joindre ton fichier "Excel" ?

Le voici.

Dans l'onglet "VALEUR" il faut que tu mettes la valeur 1 dans la cellule A1.

Merci beaucoup cela fonctionne. Mais dans mon pb je dois récupérée les valeurs dans un autre classeur. Je dois donc remplacer worksheet ? De plus j'aimerais faire 12 fois l'appuie sur le bouton et non pas une infinité. Dois-je ajouter une boucle for ?
Exemple :

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub cmbMois_Click() Dim i As integer for i = 1 to 12 Worksheets("AFFICHER").Cells(1, Worksheets("VALEUR").[A1]) = Worksheets("RESULTAT").[C4] Worksheets("VALEUR").[A1] = Worksheets("VALEUR").[A1] + i Next End Sub

---

Cela me parait pas très correct

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub Pourcentage_frappe()   Windows("export_perform_moyens.xls").Activate Dim Num As Currency Num = Range("W15").Value   Windows("Plan de progres FY2015.xls").Activate   Range("G48").Select Selection.Value = Num Selection.NumberFormat = "General"   End Sub

---

Dans ce code, je travaille dans la feuille export_perform_moyens :
- j'attribue à la variable Num la valeur de la cellule W15
- Puis dans je retourne dans la feuille plan de progres je sélectionne la cellule G48 et je lui colle la valeur de la variable Num.

Je veux faire cette opération avec un appui sur le bouton MAJ chaque mois.