Mise en variable du nom de la feuille

Version imprimable

Bonjour

Je cherche a faire une requete en mettant en variable le nom de feuille

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Sub noms()
Dim x As Range
Dim toto As String
Dim trav1, trav2 As Worksheet
trav1 = Worksheets("TEMPO").Name
trav2 = Worksheets("A VENIR").Name
 
 
For i = 1 To 2
Sheets("trav" & i).Select
toto = WorksheetFunction.CountA(Range("D1:D100000"))
 
For Each x In Sheets("trav" & i ).Range("A2:A" & toto)
    x.Value = Trim(x.Value)
Next x
 
With Sheets("trav" & i ).Range("A2:I" & toto)
         .Borders.Weight = 2        ' bordure  trait simple
         .Font.Size = 8                    ' Taille de la police
         .Font.Name = "Calibri"    'police de caractere
    End With
 
Next i
 
 
End Sub

Mon script bloque sur le nom de la feuille pouvez vous m'aider ?

26/02/2015, 11h51
antonysansh
Bonjour laurent27530,

la propriété Sheets("Feuille").name est de type String.

essaye avec :
Code:

1 2 3 4 Dim toto As String Dim trav1, trav2 As String trav1 = Worksheets("TEMPO").Name trav2 = Worksheets("A VENIR").Name
Antony
26/02/2015, 11h56
laurent27530

Merci maintenant j'ai une erreur 9 sur la ligne 10 :

Code:

Sheets("trav" & i).Select
26/02/2015, 12h50
Philippe Tulliez
Bonjour,
Tu ne peux pas traiter le nom des variables nommées Trav1 et Trav2 comme on gère des noms de feuilles.
Si tu souhaites traiter des variables contenant des valeurs dans une boucle, utilise des variables tableaux
A lire Utiliser les variables tableaux en VBA Excel et pour bien comprendre le concept des variables tableaux, à lire sans modération Conceptualisation des variables tableau en VBA et Application à l'optimisation du code sous Excel
Petit exemple rapide
Code:

1 2 3 4 5 6 7 8 Sub t() Dim trav(1 To 2) As String, s As Byte trav(1) = "TEMPO": trav(2) = "A VENIR" For s = 1 To 2 MsgBox "Ok" ThisWorkbook.Worksheets(trav(s)).Select Next End Sub

Si tu veux ne faire que des actions sur les feuilles TEMPO et A VENIR, je te conseil un code du genre :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub test()
 
Dim wb As Workbook
Dim sh As Worksheet
 
Set wb = ThisWorkbook
 
For Each sh In wb.Worksheets
   If sh.Name <> "TEMPO" And sh.Name <> "A VENIR" Then
      'Rien
   Else
      'Ton code
   End If
Next
 
End Sub

En espérant t'aider ;)

Antony

26/02/2015, 14h23
laurent27530

Les deux solutions sont intéressantes et instructives pour le cas actuel -- Philippe réponds mieux a mes attentes.

Je vous remercie tous les 2