Bonjour à toutes et à tous et bon dimanche, en passant.
Petit souci à résoudre:
J'aimerai qu'un clique sur une image me dirige vers un onglet.
Mais le nom de l'onglet vers lequel je veux me diriger dépendra de la valeur d'une combobox.
pour l'instant j'ai crée une macro pour aller vers un onglet, mais je ne sais pas comment faire en sorte d'aller vers l'onglet selon la valeur du combo.
[/CODE]Private Sub ComboBox1_Click()
Dim OngletBassin As String
Dim NomduBassin As String
Dim PlageSource As Range
OngletBassin = ComboBox1.Value
With Sheets(OngletBassin)
Set PlageSource = .Range(.Range("A2"), .Range("A1000").End(xlUp))
End With
ComboBox2.ListFillRange = OngletBassin & "!" & PlageSource.Address(0, 0)
End Sub[/CODE]
Code de la macro qu'utilise le clique sur l'image
Dans module
Je présume que le code est faux, ou il faudrait definir la variable NomduBassin car la valeur est toujours nul??
Merci à tous
Petit souci à résoudre:
J'aimerai qu'un clique sur une image me dirige vers un onglet.
Mais le nom de l'onglet vers lequel je veux me diriger dépendra de la valeur d'une combobox.
pour l'instant j'ai crée une macro pour aller vers un onglet, mais je ne sais pas comment faire en sorte d'aller vers l'onglet selon la valeur du combo.
[/CODE]Private Sub ComboBox1_Click()
Dim OngletBassin As String
Dim NomduBassin As String
Dim PlageSource As Range
OngletBassin = ComboBox1.Value
With Sheets(OngletBassin)
Set PlageSource = .Range(.Range("A2"), .Range("A1000").End(xlUp))
End With
ComboBox2.ListFillRange = OngletBassin & "!" & PlageSource.Address(0, 0)
End Sub[/CODE]
Code de la macro qu'utilise le clique sur l'image
Dans module
Code:
Sub AllerVersCarteBassin()
NomduBassin = ComboBox1.Value
Sheets("Carte" + NomduBassin).Select
End SubJe présume que le code est faux, ou il faudrait definir la variable NomduBassin car la valeur est toujours nul??
Merci à tous