Sélection de plusieurs feuilles en VBA

Version imprimable

Bonjour,

Je suis débutant en VBA alors j'ai un-peu de mal.

Je vous explique mon problème.

Je veux selon ce qui est marqué dans certaines cellules sélectionnées les feuilles correspondantes.

exemple : Si a1=1,a2=0, et a3=1 alors je sélectionne seulement les feuilles 1 et 3 et pas la 2.

Voici le début de mon code, mais ça ne fait pas ce que je veux.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Sub selection() If Range("b1") = 1 Then Sheets(Array("1")).Select End If If Range("b2") = 1 Then Sheets(Array("2")).Select End If If Range("b3") = 1 Then Sheets(Array("3")).Select End If End Sub

22/02/2011, 09h42
casefayere
Bonjour à tou(te)s, airji

le code n'est pas bon :
Code:

1 2 3 If Range("b1") = 1 Then Sheets(Array("1")).Select End If
si la feuille se nomme "1", il faut :
Code:

1 2 3 If Range("b1") = 1 Then Sheets("1").Select End If
si le numéro de feuille est 1 il faut :
Code:

1 2 3 If Range("b1") = 1 Then Sheets(1).Select End If
mais tu ne selectionneras pas toutes les feuilles concernées en meme temps

autre solution, exemple de syntaxe :
Code:

1 2 3 if ..... then Sheets(Array("Feuil1", "Feuil3")).Select end if

Bonjour,
Voici un petit bout de code pour construire le tableau de sélection des onglets :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub selection()
Dim tabFeuil() As String
Dim intPos As Integer
Dim intMax As Integer
 
    intMax = 0
 
    For intPos = 1 To 3
        If Range("b" & intPos) = 1 Then
            ReDim Preserve tabFeuil(intMax)
            tabFeuil(intMax) = Format(intPos)
            intMax = intMax + 1
        End If
    Next intPos
 
    If intMax > 0 Then
        Sheets(tabFeuil).Select
    End If
 
End Sub

Attention, dans le code tu inspectes la colonne B et pas la colonne A comme dans tes explications, j'ai gardé la cohérence avec ton code et fait les tests sur la colonne B.

Quand je met le code:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub selection()
Dim tabFeuil() As String
Dim intPos As Integer
Dim intMax As Integer
 
    intMax = 0
 
    For intPos = 1 To 3
        If Range("b" & intPos) = 1 Then
            ReDim Preserve tabFeuil(intMax)
            tabFeuil(intMax) = Format(intPos)
            intMax = intMax + 1
        End If
    Next i
 
    If intMax > 0 Then
        Sheets(tabFeuil).Select
    End If
 
End Sub

Il me marque erreur de compilation, référence de variable de contrôle incorrecte dans Next

normal,

Code:

1
2
For intPos = 1 To 3
...Next i

il faut :

Code:

1
2
3
For intPos = 1 To 3
...
Next intpos

22/02/2011, 10h22
airji

Ok merci ça fonctionne SUPER::ccool: :lol: :D

je viens de voir une autre solution à étudier, en plus simple

Code:

1
2
3
4
5
Sub Aff_Feuilles()
Dim Feuille As Worksheet
For Each Feuille In ActiveWorkbook.Sheets
        If Sheets("feuil1").Range("b" & Feuille.Index) = 1 Then Feuille.Select Replace:=False
Next Feuille

Bonne fin de journée