PtitGenie7
Messages postés10Date d'inscriptionvendredi 25 mai 2007StatutMembreDernière intervention 6 avril 2010
-
5 juin 2007 à 12:12
drikce06
Messages postés2236Date d'inscriptionlundi 29 mai 2006StatutMembreDernière intervention29 mai 2008
-
6 juin 2007 à 11:29
Bonjour!
Je souhaite écrire une macro qui, par exemple, n'affiche pas l'onglet de toutes les pages dont le nom commence par "tech_".
Je me demande si il y a une syntaxe qui pourrait traduire ce que je cherche à faire?
Ma condition se présenterait ainsi :
If Not Sheets(i).Name = "tech_" (???) Then ...
Peut-être il y a t'il quelque chose (un symbole?) à mettre à l'amplacement du "(???)", du genre grossièrement " "tech_" & * "...
jrivet
Messages postés7392Date d'inscriptionmercredi 23 avril 2003StatutMembreDernière intervention 6 avril 201260 5 juin 2007 à 12:25
Salut,
Instr répond à tes besoins.
Private Sub CommandButton1_Click()
Dim WS As Worksheet
For Each WS In ActiveWorkbook.Worksheets
If InStr(1, WS.Name, "tech_") Then WS.Visible = xlSheetHidden
Next
End Sub , ----
[code.aspx?ID=41455 By Renfield]
ATTENTION Si toutes les feuilles on un nom du style tech_ la derniere te donneras une erreur car tu dois avoir au moins une feuille visible dans un classeur
drikce06
Messages postés2236Date d'inscriptionlundi 29 mai 2006StatutMembreDernière intervention29 mai 200810 5 juin 2007 à 13:11
Private Sub CommandButton1_Click()
Dim WS As Worksheet
For Each WS In ActiveWorkbook.Worksheets
If Left(WS.Name, 5)="Tech_" Then WS.Visible = xlSheetHidden
Next
End Sub
cs_bultez
Messages postés13615Date d'inscriptionjeudi 13 février 2003StatutMembreDernière intervention15 octobre 201330 5 juin 2007 à 12:25
Bonjour,
le ptitGénie aurait mieux fait de poster dans le forum adhéquat !
car qu'est-ce que ça a à voir avec "les sites Codes Sources" ?
ne serait-ce pas une question VB ou VBA ?
si oui recherche donc "like" dans l'aide.
jrivet
Messages postés7392Date d'inscriptionmercredi 23 avril 2003StatutMembreDernière intervention 6 avril 201260 5 juin 2007 à 12:27
RE
Ah bien vu [auteurdetail.aspx?ID= 51635 bultez] (salut) , j'avais même pas vu (pas bien [auteurdetail.aspx?ID=1071352 PtitGenie7] , pas bien du tout)