Programmation Macro - étendre une macro sur certains onglets

Version imprimable

03/06/2015, 16h38
yankelben

Programmation Macro - étendre une macro sur certains onglets
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:

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
03/06/2015, 22h22
tamtam64
En fait il faut voir ta macro et appliquer l'action a toutes les feuilles avec une boucle
Code:

1 2 3 For each ws in worksheets 'Action next ws
Montre ta macro et op on va te dire
04/06/2015, 07h10
Theze

Bonjour,

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

Citation:

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é.
04/06/2015, 09h30
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 !

Re,

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

Code:

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é.