MacroVBA_Incrementer une variable dès l'appel de la procédure

[Résolu/Fermé]
Signaler
Messages postés
47
Date d'inscription
mercredi 6 août 2014
Statut
Membre
Dernière intervention
2 juillet 2015
-
Messages postés
47
Date d'inscription
mercredi 6 août 2014
Statut
Membre
Dernière intervention
2 juillet 2015
-
Bonjour ,
j'ai fais une procédure qui me permet de recuperer des valeurs d'une feuille d'un autre classeur .
maintenant elle me permet de recuperer mes valeurs en une seule fois
et moi j'aimerais que ma vraible qui me permet de parcourir les colonne et de recuperer mes valeurs s'incremente a chaque fois que je lance l'appel de ma procédure

voic mon code:
Public i As Integer


Sub Value_PP()
i = 16

'recuperer les valeurs de la feuille PP
Sheets("PP").Select
a1 = Cells(3, i)
b1 = Cells(5, i)

a2 = Cells(3, i - 1)
b2 = Cells(5, i - 1)

a3 = Cells(3, i - 2)
b3 = Cells(5, i - 2)

a4 = Cells(3, i - 3)
b4 = Cells(5, i - 3)

a5 = Cells(3, i - 4)
b5 = Cells(5, i - 4)

a6 = Cells(3, i - 5)
b6 = Cells(5, i - 5)

'copie des valeurs de PP vers le PDP kitting

Sheets("creation").Select

Sheets("creation").Range("B5").Value = a1 & Chr(10) & b1
Sheets("creation").Range("B6").Value = a2 & Chr(10) & b2
Sheets("creation").Range("B7").Value = a3 & Chr(10) & b3
Sheets("creation").Range("B8").Value = a4 & Chr(10) & b4
Sheets("creation").Range("B9").Value = a5 & Chr(10) & b5
Sheets("creation").Range("B10").Value = a6 & Chr(10) & b6


je veux incrementer i à chaque moment que je vais cliquer sur un bouton qui serait affecté a cette procédure ou macro


merci d'avance pour votre aideExplorer 8.0</config>

1 réponse

Messages postés
13097
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
16 septembre 2021
2 246
Bonjour

Tu peux stocker la variable dans une cellule d'une feuille, à l'ouverture de la macro l'incrémenter de 1 puis récupérer la valeur de la cellule pour l'utiliser dans la suite de la macro

Cdlmnt
Via
Messages postés
47
Date d'inscription
mercredi 6 août 2014
Statut
Membre
Dernière intervention
2 juillet 2015

merci , je l'ai fais et ça marche