Discussion :

[airji]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[casefayere]

Bonjour à tou(te)s, airji

le code n'est pas bon :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
If Range("b1") = 1 Then
    Sheets(Array("1")).Select
End If

si la feuille se nomme "1", il faut :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
If Range("b1") = 1 Then
    Sheets("1").Select
End If

si le numéro de feuille est 1 il faut :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[tedo01]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[airji]

Quand je met le code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[casefayere]

normal,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

il faut :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[airji]

Ok merci ça fonctionne SUPER:

[casefayere]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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