Scribd
Importer
5 vues3 pages

Création et modification de feuilles Excel

Le document contient trois macros VBA qui modifient les noms de feuilles dans un classeur Excel. La première crée des liens hypertexte vers d'autres feuilles, la deuxième remplace des chaînes dans les noms de feuilles, et la troisième définit la zone de défilement pour certaines feuilles.

Transféré par

Tina Mandresy Arthur LAHAMAHATRATRA
Copyright
© All Rights Reserved
Nous prenons très au sérieux les droits relatifs au contenu. Si vous pensez qu’il s’agit de votre contenu, signalez une atteinte au droit d’auteur ici.
Formats disponibles
Téléchargez aux formats PDF, TXT ou lisez en ligne sur Scribd
5 vues3 pages

Création et modification de feuilles Excel

Le document contient trois macros VBA qui modifient les noms de feuilles dans un classeur Excel. La première crée des liens hypertexte vers d'autres feuilles, la deuxième remplace des chaînes dans les noms de feuilles, et la troisième définit la zone de défilement pour certaines feuilles.

Transféré par

Tina Mandresy Arthur LAHAMAHATRATRA
Copyright
© All Rights Reserved
Nous prenons très au sérieux les droits relatifs au contenu. Si vous pensez qu’il s’agit de votre contenu, signalez une atteinte au droit d’auteur ici.
Formats disponibles
Téléchargez aux formats PDF, TXT ou lisez en ligne sur Scribd

Feuil3 - 1

Sub CréerLiensHypertexte()
Dim wsAccueil As Worksheet
Dim cell As Range
Dim feuilleNom As String

' Spécifiez le nom de la feuille "Accueil"


Set wsAccueil = [Link]("Accueil")

' Parcourez chaque cellule dans la colonne C de la feuille "Accueil"


For Each cell In [Link]("C2:C" & [Link]([Link], "C").End(xlUp).Row)
' Obtenez le nom de la feuille à partir de la cellule
feuilleNom = [Link]

' Vérifiez si la feuille existe


If FeuilleExistante(feuilleNom) Then
' Créez le lien hypertexte dans la cellule
[Link] _
Anchor:=cell, _
Address:="", _
SubAddress:=feuilleNom & "!A1", _
TextToDisplay:=feuilleNom
End If
Next cell
End Sub

Function FeuilleExistante(ByVal feuilleNom As String) As Boolean


' Vérifiez si la feuille existe dans le classeur
On Error Resume Next
FeuilleExistante = Not Sheets(feuilleNom) Is Nothing
On Error GoTo 0
End Function
Module12 - 1

Sub ModifierNomsFeuillesCom()
Dim ws As Worksheet

' Parcourir toutes les feuilles dans le classeur actif


For Each ws In [Link]
' Vérifier si le nom de la feuille contient "Com_"
If InStr(1, [Link], "Com-", vbTextCompare) > 0 Then
' Remplacer "Com_" par "Com-"
[Link] = Replace([Link], "Com-", "Com_")
End If
Next ws
End Sub

Sub ModifierNomsFeuillesCHRD()
Dim ws As Worksheet

' Parcourir toutes les feuilles dans le classeur actif


For Each ws In [Link]
' Vérifier si le nom de la feuille contient "Com_"
If InStr(1, [Link], "CHRD-", vbTextCompare) > 0 Then
' Remplacer "Com_" par "Com-"
[Link] = Replace([Link], "CHRD-", "CHRD_")
End If
Next ws
End Sub

Sub ModifierNomsFeuillesDis()
Dim ws As Worksheet

' Parcourir toutes les feuilles dans le classeur actif


For Each ws In [Link]
' Vérifier si le nom de la feuille contient "Com_"
If InStr(1, [Link], "-Dis", vbTextCompare) > 0 Then
' Remplacer "Com_" par "Com-"
[Link] = Replace([Link], "-Dis", "_Dis")
End If
Next ws
End Sub
Module1 - 1

Sub SelectSheetsAndSetScrollAreaDis()
Dim ws As Worksheet
Dim sheetName As String

' Définir la plage de défilement pour toutes les feuilles


Dim scrollArea As String
scrollArea = "$A$1:$AW$60"

' Parcourir toutes les feuilles dans le classeur


For Each ws In [Link]
' Vérifier si le nom de la feuille contient "Dis"
If InStr(1, [Link], "Dis", vbTextCompare) > 0 Then
' Définir la plage de défilement pour la feuille actuelle
[Link] = scrollArea
End If
Next ws

End Sub

Vous aimerez peut-être aussi