Selection de sheets

Question

Bonjour,

A l'aide de vba, j'aimerais savoir comment selectionner une feuille dans excel dont le nom commence par : Bowen

Sheets("Bowen" *).Select 

me donne une erreur de compilation

Gonz

jpleroisse · Answer

Sheets("Bowen").Select,  Pas d'&#233;toile !!

jpleroisse

Gonz005 · Answer

Effectivement ca fonctionne bien lors que le nom de la feuille est seulement Bowen.  J'ai des feuilles, dans diff&#233;rent fichiers, dont le nom commence par Bowen suivi de l'ann&#233;e. Donc j'aimerais pouvoir utiliser le m&#234;me code pour selectionner ces feuille dans les diff&#233;rent fichier sans avoir &#224; changer mon code

michelxld · Answer

bonsoir

tu peux tester

Option Compare Text
Sub chercheFeuille()
Dim i As Byte


For i = 1 To Sheets.Count
If Left(Sheets(i).Name, 5) = "Bowen" Then
Sheets(i).Select
Exit For
End If
Next i


End Sub

bonne soiree
michel

jpleroisse · Answer

Tu peux aussi r&#233;cuprer toutes les feuilles  du classeur dans une ListBox et il suffit alors de cliquer sur le nom d'une feuille pour l'activer. Cela te permettra aussi d'utiliser du code.
Place une ListBox sur ton UserForm ainsi q"un CheckBox que tu appelle pour cet exemple cbPrevew. Ensuite le code:

Option Explicit
Public OriginalSheet As Object
Private Sub ListBox1_Click()
If cbPrevew Then Sheets(ListBox1.Text).Activate
End Sub


Private Sub UserForm_Initialize()
Dim SheetData() As String
Dim ShtCnt As Integer
Dim ShtNum As Integer
Dim Sht As Object
Dim ListPos As Integer


Set OriginalSheet = ActiveSheet
ShtCnt = ActiveWorkbook.Sheets.Count
ReDim SheetData(1 To ShtCnt, 1 To 4)
ShtNum = 1


For Each Sht In ActiveWorkbook.Sheets    If Sht.Name ActiveSheet.Name Then ListPos ShtNum - 1
    SheetData(ShtNum, 1) = Sht.Name
    
    Select Case TypeName(Sht.Name)
        Case "WorkSheet"
            SheetData(ShtNum, 2) = "Feuil"
            SheetData(ShtNum, 3) = Application.CountA(Sht.Cells)
        Case "Chart"
            SheetData(ShtNum, 2) = "Graph"
            SheetData(ShtNum, 3) = "N/A"
        Case "DialogSheet"
            SheetData(ShtNum, 2) = "Dialog"
            SheetData(ShtNum, 3) = "N/A"
      
    End Select
   
If Sht.Visible Then
    SheetData(ShtNum, 4) = "Oui"
Else
    SheetData(ShtNum, 4) = "Non"
   End If
 ShtNum = ShtNum + 1



Next Sht


With ListBox1
    .ColumnWidths = "100 pt;30 pt;40 pt;50 pt"
    .List = SheetData
    .ListIndex = ListPos
End With
End Sub

jpleroisse

cs_ITALIA · Answer

En Cochant Projet...R&#233;f&#233;rence..Microsoft Excel XX Object Library

Set xlApp = New Excel.Application
With xlApp
    'Ouverture du document XLS
    Set xlBook = .Workbooks.Open(FileName:="C:\TonFichier.xls", ReadOnly:=False, Editable:=True)
    Set xlSheet = xlBook.Worksheets(1) ' Feuille 1
    Set xlSheet2 = xlBook.Worksheets(2) ' Feuille 2
....
....
....
End With

With xlSheet 
...
...
...
End With

It@li@

Gonz005 · Answer

Merci Michel,

Exactement ce qu'il me fallait: un code simple qui fonctionne comme je veux. J'ai &#233;galement ajout&#233;:


nombowen = ActiveSheet.Name<?xml:namespace prefix o ns "urn:schemas-microsoft-com:office:office" />

apr&#232;s la s&#233;lection afin de conserv&#233; le nom de la feuille en m&#233;moire pour le r&#233;utiliser dans d'autres sub de la macro

Gonz

Selection de sheets

6 réponses

Discussions similaires