Execution d'une macro dans plusieurs onglets

[David06]

Bonjour a tous,
Voila mon PB, j'execute une macro qui me crée des lien hyper texte automatiquement sur les noms ce trouvant dans une colonne vers le meme nom correspondant à son fichier word. Mais je dois modifier celle ci pour quelle fonctionne dans un autre onglet du meme classeur qui en comporte 38.
Comment dire à ma macro de s'effectuer du 1er au dernier onglet de mon classeur. Merci d'avance. 🙄

 

[Bernard_XLD]

Re : Execution d'une macro dans plusieurs onglets

Bonjour

tu utilises à la place une macro dans thisworkbook

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
sh te renverra la feuille et target la cellule
une seule macro pour l'ensemble des feuilles

A+

 

[David06]

Re : Execution d'une macro dans plusieurs onglets

je test .
merci

 

[David06]

Re : Execution d'une macro dans plusieurs onglets

Re. La macro fonctionne mais je suis obligé de l'exécuter sur chaque onglet. Ne pourais-je pas l'automatisée pour quelle puisse se lancer en balayant les onglets 1 par 1. ci-joint la macro ....
J'approche du sommet. Merci:😎

 

[Pierrot93]

Re : Execution d'une macro dans plusieurs onglets

Bonjour David, Yeaou

tu peux placer le code ci dessous dans thiworkbook, cadevrait marcher, à tester tout de même acvec ta macro.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

Application.EnableEvents = False

For Each Sh In Sheets

'code de ta macro

Next Sh

Application.EnableEvents = True

End Sub

Attention elle s'executera sur tous les onglets.

Bonne soirée.
@+

 

[Bernard_XLD]

Re : Execution d'une macro dans plusieurs onglets

Bonjour david06, pierrot93, le forum

j'avais mal compris ta demande, voici ta macro modifiée pour s'appliquer d'un coup à toutes les feuilles du classeur

A+

Sub ajoutlink()
Dim Link As Variant
Dim E As Range
Dim Addr As String
Dim Compteur As Integer
ThisWorkbook.Activate
For Compteur = 1 To ThisWorkbook.Worksheets.Count
Addr = ThisWorkbook.Path
With Sheets(Compteur)
.Hyperlinks.Delete 'on efface les liens existants
On Error Resume Next
For Each E In .Range("F2:F100")
Link = E.Value
If Not E = "" Then 'pas de vérification de l'existance du fichier erreur _
si non existant
With E
.Hyperlinks.Add Anchor:=E, Address:= _
Addr & "\" & Trim(Link) & ".rtf" '".pdf"
End With
End If
Next
End With
Next Compteur
End Sub