Discussion :

[yankelben]

Bonjour à tous,

Je suis complètement novice à la programmation en VBA, et j'ai besoin d'un peu d'aide.
Pour faire simple, j'ai une macro de base très simple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Range("A1:M66").Select
Application.Run macro:="EssMenuRetrieve"
 
   End Sub

J'aurais besoin de faire appliquer cette macro sur tous les onglets de mon classeur dont la colonne N1="retrieve"

Pouvez-vous m'aider svp ?

Merci d'avance

[tamtam64]

En fait il faut voir ta macro et appliquer l'action a toutes les feuilles avec une boucle

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
For each ws in worksheets
'Action
next ws

Montre ta macro et op on va te dire

[Theze]

Bonjour,

Déjà, il faudrait savoir que fait la macro "EssMenuRetrieve" ? Agit elle sur une feuille en particulier ou sur la feuille active ?

J'aurais besoin de faire appliquer cette macro sur tous les onglets de mon classeur dont la colonne N1="retrieve"

Je suppose que tu parles de la cellule N1 car il n'existe pas de colonne N1 !
Dans ton bout de code on voit la plage "A1:M66", la macro agit dessus ? Le Select me pique les yeux

Hervé.

[yankelben]

Bonjour,

Alors la macro ne doit s'appliquer que pour les onglets dont la cellule (sorry pour l'erreur dans ma demande) N1 est écrit "retrieve" (c'est un repère que je me suis donné).
Si c'est le cas, elle doit s'appliquer sur la plage A1:M66 des onglets en question.

merci de votre aide, je suis complètement perdu !

[Theze]

Re,

Une piste en lançant la proc "Test ci-dessous. Montre ta proc "EssMenuRetrieve" pour voir comment l'adapter au mieux :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
 
Sub Test()
 
    Dim Fe As Worksheet
 
    For Each Fe In Worksheets
 
        If Fe.Range("N1").Value = "retrieve" Then
 
            'appel de la proc ("Application.Run" étant inutile)
            EssMenuRetrieve Fe
 
        End If
 
    Next Fe
 
End Sub
 
Sub EssMenuRetrieve(Fe As Worksheet)
 
    With Fe.Range("A1:M66")
 
        'ici le code devant intervenir sur la plage
        '...
 
        'affiche le nom de la feuille où se trouve "retrieve" en cellule N1
        'c'est juste pour le test, tu peux le virer..!
        MsgBox Fe.Name
 
    End With
 
End Sub

Hervé.