Bonjour,
Je cherche à ce que pour une variable donnée puisse me restituer plusieurs valeurs.
Imaginons une liste de cette manière :
Bordeaux -- Vin
Marseille -- Pastis
Nîmes -- Arène
Annecy -- Lac
Genève -- Chocolat
Strasbourg -- Choucroute
Bordeaux -- Rouge
Marseille -- Navettes
Si ma variable doit aller chercher Bordeaux, elle me ramène Vin Rouge,
Si ma variable doit aller chercher Marseille, elle me ramène Pastis Navettes.
Mais il faut qu'après je puisse utiliser ses variables dans le code pour ouvrir un onglet.
J'ai pensé à déclarer la variable en variant et ensuite utiliser Array ca ne fonctionne pas.
Je cherche à ce que pour une variable donnée puisse me restituer plusieurs valeurs.
Imaginons une liste de cette manière :
Bordeaux -- Vin
Marseille -- Pastis
Nîmes -- Arène
Annecy -- Lac
Genève -- Chocolat
Strasbourg -- Choucroute
Bordeaux -- Rouge
Marseille -- Navettes
Si ma variable doit aller chercher Bordeaux, elle me ramène Vin Rouge,
Si ma variable doit aller chercher Marseille, elle me ramène Pastis Navettes.
Mais il faut qu'après je puisse utiliser ses variables dans le code pour ouvrir un onglet.
J'ai pensé à déclarer la variable en variant et ensuite utiliser Array ca ne fonctionne pas.
Code:
Sub marica()
Dim feuille() As Variant
Dim derlig, i As Integer
Dim cptr As Byte
'On affiche tous les onglets
For cptr = 1 To ThisWorkbook.Sheets.Count
Sheets(cptr).Visible = True
Next
Application.ScreenUpdating = False
matricule = "Bordeaux"
Sheets("Table").Select
derlig = Range("A" & Cells.Rows.Count).End(xlUp).Row
For i = 1 To derlig
If Cells(i, 1).Value = matricule Then
Array(feuille) = Cells(i, 2).Value
End If
Next
'On affiche que les onglets contenus dans la variable
For cptr = 1 To ThisWorkbook.Sheets.Count
If Sheets(cptr).Name <> feuille Then
Sheets(cptr).Visible = 2
End If
Next
End Sub