Changement de feuille Worksheet_change

[matlucky]

Bonjour le forum,

Voila je rencontre un problème concernant ma fonction Private Sub Worksheet_change( ByVal Target As Range).

Ma fonction a pour but de détecter dans ma colonne 8 la chaine de caractère suivante "Plusieurs acteurs". Une fois détecté je souhaiterais modifier une cellule sur une autre feuille. Avez vous la solution pour passer sur l'autre feuille?

Merci

 

[ralph45]

Bonjour matlucky,

Sans fichier joint, difficile à déterminer... Peut-être :
Sheets("NomDeTonOnglet").Select

 

[Robert]

Bonjour le fil, bonjour le forum,

Comme Ralph, je pense que tu manques de précision. Si le but est de trouver la chaîne de caractère Plusieurs acteurs dans l'onglet actif essaie comme ça (à adapter) :

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim O As Worksheet
Dim R As Range

Set O = ActiveSheet
Set R = O.Columns(8).Find("Plusieurs acteurs", , xlValues, xlPart)
If Not R Is Not Nothing Then 
     Sheets("Ton_Onglet").Select
     Range("Ta_cellule).value=Ta_valeur
End If
End Sub