[VBA] "Toutes autres valeurs..."Résolu

Question

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_" & *   "...

Merci d'avance pour votre aide :)

jrivet · Accepted Answer

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

@+: Ju£i?n
Pensez: Réponse acceptée

cs_bultez · Answer

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.

Cordialement Bul [mon Site] [M'écrire]

jrivet · Answer

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)

@+: =89254 Ju£i?n
Pensez: Réponse acceptée

cs_bultez · Answer

salut à toi JRivet >>j'avais même pas vu comme tu fréquentes le forum VB, c'est normal, j'y vais peu et je n'étais pas sur celui-ci, j'ai donc remarqué. bien sûr INSTR, je n'avais pensé qu'à LIKE dans un 1er réflêxe...

Cordialement Bul [mon Site] [M'écrire]

Renfield · Answer

topic déplacé

Renfield
Admin CodeS-SourceS- MVP Visual Basic

drikce06 · Answer

Ou encore un left!

 Drikce 06 (Nouveau !!! Forum Exclusivement Office Et VBA By Mortalino)

Si la réponse vous convient: Réponse acceptée < body>

drikce06 · Answer

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

 Drikce 06 (Nouveau !!! Forum Exclusivement Office Et VBA By Mortalino)

Si la réponse vous convient: Réponse acceptée < body>

PtitGenie7 · Answer

Oups, désolé pour l'emplacement de base du topic!
J'me suis douté de mon erreur une fois que j'avais quitté, bref '-'

Merci beaucoup pour vos trois propositions!

J'ai compris la syntaxe pour Left, mais pour InStr(1, WS.Name, "tech_") à quoi correspond le "1"?

drikce06 · Answer

1 correspond au départ de la recherhce dans la chaîne c'est à dire dans ce cas à partir du premier caractère.

 Drikce 06 (Nouveau !!! Forum Exclusivement Office Et VBA By Mortalino)

Si la réponse vous convient: Réponse acceptée < body>

PtitGenie7 · Answer

D'accord ^^ Mirci :D

jrivet · Answer

Si problème résolu, Réponse acceptée sur le ou les post qui ont aider merci

@+: Ju£i?n
Pensez: Réponse acceptée

drikce06 · Answer

N'oublie d'accepter la ou les réponses qui on répondu à ta question.

 Drikce 06 (Nouveau !!! Forum Exclusivement Office Et VBA By Mortalino)

Si la réponse vous convient: Réponse acceptée < body>

Renfield · Answer

bande d'acharnés ^^

jrivet · Answer

Salut,
Nous sommes simplement des personnes qui essaie de faire respecter le règlement 

@+: Ju£i?n
Pensez: Réponse acceptée

drikce06 · Answer

Et c'était un post croisé aussi 

 Drikce 06 (Nouveau !!! Forum Exclusivement Office Et VBA By Mortalino)

Si la réponse vous convient: Réponse acceptée < body>

[VBA] "Toutes autres valeurs..."

15 réponses

Votre réponse

Discussions similaires