Ouverture d'onglet en fonction d'une valeur dans une cellule
1 réponse
Alex
Bonsoir =E0 tous,
J'ai un classeur avec plusieurs onglets, dont 1 Base de donn=E9es, et
les 'autres se nomment tous Fiche (Num=E9ro). Seul le Num=E9ro change 1,
2, 3, 4 ...
Sur ma base, j'ai en colonne A, une colonne Selection O/N. Si la
valeur est =3D O alors en colonne B se trouve le num=E9ro de la Fiche
(Fiche (& Num=E9ro) )
Alors j'ai =E9crit ceci :
Dim i As Long
Dim Nbligne As Long
Dim Num=E9roFiche As String
Sheets("BASE").Select
i =3D ActiveCell.Row
Nbligne =3D Range("A1").CurrentRegion.Rows.Count
For i =3D Nbligne To 2 Step -1
If Cells(i, 1).Value =3D "O" Then
Cells(i, 2).Value =3D Num=E9roFiche
Sheets("Fiche '" & Num=E9roFiche & ")").Select
End If
Next i
End Sub
Tout fonctionne bien sauf la selection de l'onglet, ma ligne :
Sheets("Fiche " & Num=E9roFiche & ")").Select
Je vous remercie par avance de votre aide.
Cordialement.
Alex
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Jacky
Bonsoir,
Si les feuilles sont nommées de cette façon Fiche (1)... Fiche (2) Alors ceci peut-être Sheets("Fiche (" & NuméroFiche & ")").Select -- Salutations JJ
"Alex" a écrit dans le message de news:
Bonsoir à tous,
J'ai un classeur avec plusieurs onglets, dont 1 Base de données, et les 'autres se nomment tous Fiche (Numéro). Seul le Numéro change 1, 2, 3, 4 ... Sur ma base, j'ai en colonne A, une colonne Selection O/N. Si la valeur est = O alors en colonne B se trouve le numéro de la Fiche (Fiche (& Numéro) ) Alors j'ai écrit ceci : Dim i As Long Dim Nbligne As Long Dim NuméroFiche As String Sheets("BASE").Select i = ActiveCell.Row Nbligne = Range("A1").CurrentRegion.Rows.Count For i = Nbligne To 2 Step -1 If Cells(i, 1).Value = "O" Then Cells(i, 2).Value = NuméroFiche Sheets("Fiche '" & NuméroFiche & ")").Select End If Next i End Sub Tout fonctionne bien sauf la selection de l'onglet, ma ligne : Sheets("Fiche " & NuméroFiche & ")").Select
Je vous remercie par avance de votre aide. Cordialement. Alex
Bonsoir,
Si les feuilles sont nommées de cette façon Fiche (1)... Fiche (2)
Alors ceci peut-être
Sheets("Fiche (" & NuméroFiche & ")").Select
--
Salutations
JJ
"Alex" <alex-m@orange.fr> a écrit dans le message de news:
fb21b9d5-f6c4-4a3b-9bd9-6b7e270579f8@p23g2000vbl.googlegroups.com...
Bonsoir à tous,
J'ai un classeur avec plusieurs onglets, dont 1 Base de données, et
les 'autres se nomment tous Fiche (Numéro). Seul le Numéro change 1,
2, 3, 4 ...
Sur ma base, j'ai en colonne A, une colonne Selection O/N. Si la
valeur est = O alors en colonne B se trouve le numéro de la Fiche
(Fiche (& Numéro) )
Alors j'ai écrit ceci :
Dim i As Long
Dim Nbligne As Long
Dim NuméroFiche As String
Sheets("BASE").Select
i = ActiveCell.Row
Nbligne = Range("A1").CurrentRegion.Rows.Count
For i = Nbligne To 2 Step -1
If Cells(i, 1).Value = "O" Then
Cells(i, 2).Value = NuméroFiche
Sheets("Fiche '" & NuméroFiche & ")").Select
End If
Next i
End Sub
Tout fonctionne bien sauf la selection de l'onglet, ma ligne :
Sheets("Fiche " & NuméroFiche & ")").Select
Je vous remercie par avance de votre aide.
Cordialement.
Alex
Si les feuilles sont nommées de cette façon Fiche (1)... Fiche (2) Alors ceci peut-être Sheets("Fiche (" & NuméroFiche & ")").Select -- Salutations JJ
"Alex" a écrit dans le message de news:
Bonsoir à tous,
J'ai un classeur avec plusieurs onglets, dont 1 Base de données, et les 'autres se nomment tous Fiche (Numéro). Seul le Numéro change 1, 2, 3, 4 ... Sur ma base, j'ai en colonne A, une colonne Selection O/N. Si la valeur est = O alors en colonne B se trouve le numéro de la Fiche (Fiche (& Numéro) ) Alors j'ai écrit ceci : Dim i As Long Dim Nbligne As Long Dim NuméroFiche As String Sheets("BASE").Select i = ActiveCell.Row Nbligne = Range("A1").CurrentRegion.Rows.Count For i = Nbligne To 2 Step -1 If Cells(i, 1).Value = "O" Then Cells(i, 2).Value = NuméroFiche Sheets("Fiche '" & NuméroFiche & ")").Select End If Next i End Sub Tout fonctionne bien sauf la selection de l'onglet, ma ligne : Sheets("Fiche " & NuméroFiche & ")").Select
Je vous remercie par avance de votre aide. Cordialement. Alex