Boucle appelle macro

[Marc_du_78]

Bonjour le Forum,
Qui pourrait me dire comment réaliser un code qui bouclerai (je ne sais si le terme est exact) dans le champ Y de Y3 à Y250 et si cellule = 0 alors ca appellerait une autre macro pour exécution.
En vous remerciant chaleureusement

 

[porcinet82]

Salut Marc_du_78,

Je ne sais pas si j'ai bien compris, car qu'entends-tu par le champ Y? Si il s'agit de la colonne Y, je dirais qu'un code du genre suivant devrait faire l'affaire:

For i=3 to 250
  If cells(i,25).value=0 then
     Call macro
  Else
     ....
  End if
Next i

@+

 

[Marc_du_78]

Bonjour porcinet,
Oui il s'agit bien de la colonne Y, il faudrait que la boucle tourne après chaque changement dans la feuille et ceci sans l'adjonction d'un bouton

 

[porcinet82]

re,

Et bien il te suffit d'utiliser une macro evenementielle de ce genre:

Private Sub Worksheet_Change(ByVal Target As Range)
  'ton code
End Sub

Ce code est a placer dans le module de la feuille adéquate, et non un module standard.

@+

PS : Pour voir les macro evenementielles possibles, va voir dans un module de feuille, tu cliques dans la listes déroulantes ou il y a (Général) et tu sélectionnes Worksheet, ensuite, regarde dans l'autre listes

 

[Marc_du_78]

Je te remercie bien fort porcinet pour l'aide apporté et je te souhaite un bon week-end m$eme s'il est déjà entamé.
Au plaisir

 

[deudecos]

SalutMarc et Porcinet, le forum,

Marc, pour faire ce que tu veux sans adjonction de bouton, je te conseille le code de notre ami Porcinet, dans la feuille concernee :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For i=3 to 250
If cells(i,25).value=0 then
Call macro
Else
....
End if
Next i
End Sub

Bonne soiree

Olivier

Je dois etre sacrement long pour ecrire... je ne vous avais pas vu revenir ! 🙂

Message édité par: Deudecos, à: 18/02/2006 18:14

 

[Marc_du_78]

Bonsoir deudecos,
J'ai failli quitter quand j'ai vu que tu étais intervenu aussi je te remercie également et te souhaite une bonne soirée et un bon dimanche.
A+