Discussion :

[Herbert50]

Bonjour,

je sollicite votre aide pour le problème suivant :

Je possède un fichier excel avec trois onglets (BASE, A et B), dans l'onglet BASE la valeur de colonne D est soit A soit B.

Je souhaiterai que, quand je sélectionne une ligne dans l'onglet BASE puis que je lance la macro, la macro effectue les actions suivantes :

sélection de l'onglet A ou B (selon la valeur de la cellule de la colonne D) et de l'onglet base.

Je travaille avec les lignes suivantes:

Code :

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

1
2
3
4
Worksheets(Base).Rows (Selection.Row)
Sheets(Array("Base", "A")).Select
Sheets(Array("Base", "B")).Select
Sheets("Base").Activate

Mais je bloque sur le problème pré-cité.

Merci d'avance à qui aura le temps de se pencher sur le problème.

[anasecu]

Bonjour,

Comme ceci :

Code :

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

Sheets(Array("Base", Range("D" & Selection.Row).Value)).Select

[OrDonc]

Bonsoir
Pour éviter des erreurs dues aux contenus de la colonne D, dans la fenêtre des codes de BASE

Code :

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

1
2
3
4
5
Sub  Private Sub Worksheet_SelectionChange(ByVal R As Range)
  With Cells(R.Row, 4)
    If .Text = "A" Or .Text = "B" Then Sheets(.Text).Select
  End With
End Sub

ou

Code :

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

1
2
3
Private Sub Worksheet_SelectionChange(ByVal R As Range)
  If Cells(R.Row, 4) = "A" Or Cells(R.Row, 4) = "B" Then Sheets(Cells(R.Row, 4).Text).Select
End Sub