Exécuter une macro sur différents onglets
13mars93
-
13mars93 -
13mars93 -
Bonsoir à tous,
Je suppose que pour vous cela doit être simple pour vous, mais pour moi c'est compliqué.
Je viens de créer une Macro (c'est une première).
La macro s'exécute bien sur l'onglet actif.
J'aimerai que la Macro s'exécute sur d'autres onglets du même fichier.
La macro consiste à de la mise en page : "supprimer des espaces" et "supprimer <<"
voici ma macro :
Sub Supprimer_Espaces()
Cells.Find(What:="Cout global", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
ActiveCell.FormulaR1C1 = "Cout global"
Range("B79").Select
Cells.Find(What:="Heures travaillées", After:=ActiveCell, LookIn:= _
xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=False, SearchFormat:=False).Activate
ActiveCell.FormulaR1C1 = "Heures Travaillées"
Range("B80").Select
End Sub
Merci d'avance pour vos précieuses réponses.
Je suppose que pour vous cela doit être simple pour vous, mais pour moi c'est compliqué.
Je viens de créer une Macro (c'est une première).
La macro s'exécute bien sur l'onglet actif.
J'aimerai que la Macro s'exécute sur d'autres onglets du même fichier.
La macro consiste à de la mise en page : "supprimer des espaces" et "supprimer <<"
voici ma macro :
Sub Supprimer_Espaces()
Cells.Find(What:="Cout global", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
ActiveCell.FormulaR1C1 = "Cout global"
Range("B79").Select
Cells.Find(What:="Heures travaillées", After:=ActiveCell, LookIn:= _
xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=False, SearchFormat:=False).Activate
ActiveCell.FormulaR1C1 = "Heures Travaillées"
Range("B80").Select
End Sub
Merci d'avance pour vos précieuses réponses.
A voir également:
- Exécuter une macro sur différents onglets
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Restaurer les onglets chrome - Guide
- Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Jitbit macro recorder - Télécharger - Confidentialité
- Excel liste des onglets sans macro - Forum Bureautique
6 réponses
Essaies ce code :
Option Explicit
Sub Supprimer_Espaces()
Dim wsh As Worksheet
Dim cel As Range
For Each wsh In ActiveWorkbook.Worksheets
Set cel = Cells.Find(What:="Cout global", After:=ActiveCell, _
LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
If Not cel Is Nothing Then cel.Formula = "Cout global"
Set cel = Cells.Find(What:="Heures travaillées", After:=ActiveCell, _
LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
If Not cel Is Nothing Then cel.Formula = "Heures Travaillées"
Next wsh
End Sub
Merci pour votre réactivité et votre rapide réponse.
Malheureusement, cela fonctionne que sur l'onglet actif.
La macro ne s'exécute pas sur les autres onglets.
à l'aide de vos éléments, voilà ma nouvelle macro :
Sub Supprimer_Espaces()
Dim wsh As Worksheet
Dim cel As Range
For Each wsh In ActiveWorkbook.Worksheets
Set cel = Cells.Find(What:="Cout global", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)
If Not cel Is Nothing Then cel.Formula = "Cout global"
Set cel = Cells.Find(What:="Heures travaillées", After:=ActiveCell, LookIn:= _
xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=False, SearchFormat:=False)
If Not cel Is Nothing Then cel.Formula = "Heures Travaillées"
Next wsh
End Sub
Avez-vous une autre idée ?
merci
Malheureusement, cela fonctionne que sur l'onglet actif.
La macro ne s'exécute pas sur les autres onglets.
à l'aide de vos éléments, voilà ma nouvelle macro :
Sub Supprimer_Espaces()
Dim wsh As Worksheet
Dim cel As Range
For Each wsh In ActiveWorkbook.Worksheets
Set cel = Cells.Find(What:="Cout global", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)
If Not cel Is Nothing Then cel.Formula = "Cout global"
Set cel = Cells.Find(What:="Heures travaillées", After:=ActiveCell, LookIn:= _
xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=False, SearchFormat:=False)
If Not cel Is Nothing Then cel.Formula = "Heures Travaillées"
Next wsh
End Sub
Avez-vous une autre idée ?
merci
Re,
Excuse-moi, j'ai été un peu trop rapide, voici le code :
Excuse-moi, j'ai été un peu trop rapide, voici le code :
Option Explicit
Sub Supprimer_Espaces()
Dim wsh As Worksheet
Dim cel As Range
For Each wsh In ActiveWorkbook.Worksheets
Set cel = wsh.Cells.Find(What:="Cout global", After:=ActiveCell, _
LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
If Not cel Is Nothing Then cel.Formula = "Cout global"
Set cel = wsh.Cells.Find(What:="Heures travaillées", After:=ActiveCell, _
LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
If Not cel Is Nothing Then cel.Formula = "Heures Travaillées"
Next wsh
End Sub
Parfait ! Merci pour votre aide.
c'est marche parfaitement.
je dormirai moins bête ce soir grâce à vous.
Je peux vous soumettre une autre hypothèse ?
Dans le cas où, j'aurai plusieurs onglets avant et après et que ces dernières ne doivent pas être affectées par la macro.
Puis-je spécifier les onglets sur lesquels la macro doit être exécuter ?
exple :
- les onglets compris entre la feuille AAAA et la feuille ZZZZ doivent être concernés par la macro.
ou
- les onglets n°1 ; 7 ; 23 ; ... ; 99 sont concernés par la macro
Merci d'avance.
c'est marche parfaitement.
je dormirai moins bête ce soir grâce à vous.
Je peux vous soumettre une autre hypothèse ?
Dans le cas où, j'aurai plusieurs onglets avant et après et que ces dernières ne doivent pas être affectées par la macro.
Puis-je spécifier les onglets sur lesquels la macro doit être exécuter ?
exple :
- les onglets compris entre la feuille AAAA et la feuille ZZZZ doivent être concernés par la macro.
ou
- les onglets n°1 ; 7 ; 23 ; ... ; 99 sont concernés par la macro
Merci d'avance.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Re
1er cas :
2ème cas
Code à adapter en fonction du nom ou du numéro de feuille
Cordialement
Patrice
1er cas :
Sub Supprimer_Espaces()
Dim wsh As Worksheet
Dim cel As Range
For Each wsh In ActiveWorkbook.Worksheets
Select Case wsh.Name
Case "AAAA", "ZZZZ"
Set cel = wsh.Cells.Find(What:="Cout global", After:=ActiveCell, _
LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
If Not cel Is Nothing Then cel.Formula = "Cout global"
Set cel = wsh.Cells.Find(What:="Heures travaillées", After:=ActiveCell, _
LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
If Not cel Is Nothing Then cel.Formula = "Heures Travaillées"
End Select
Next wsh
End Sub
2ème cas
Sub Supprimer_Espaces()
Dim wsh As Worksheet
Dim cel As Range
For Each wsh In ActiveWorkbook.Worksheets
Select Case wsh.Index
Case 1, 7, 23 To 99
Set cel = wsh.Cells.Find(What:="Cout global", After:=ActiveCell, _
LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
If Not cel Is Nothing Then cel.Formula = "Cout global"
Set cel = wsh.Cells.Find(What:="Heures travaillées", After:=ActiveCell, _
LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
If Not cel Is Nothing Then cel.Formula = "Heures Travaillées"
End Select
Next wsh
End Sub
Code à adapter en fonction du nom ou du numéro de feuille
Cordialement
Patrice
Un Grand MERCI à vous Patrice d'avoir pris le temps pour résoudre ma problématique.
Ce n'est pas tout à fait ce que je demandais, mais je m'en contente pleinement pour le moment où je n'ai pas beaucoup d'onglets.
Donc, j'ai nommé dans ma macro les onglets concernés.
Vous êtes vraiment doué. Passez une bonne soirée.
Encore merci
Cdt,
Ce n'est pas tout à fait ce que je demandais, mais je m'en contente pleinement pour le moment où je n'ai pas beaucoup d'onglets.
Donc, j'ai nommé dans ma macro les onglets concernés.
Vous êtes vraiment doué. Passez une bonne soirée.
Encore merci
Cdt,
