Appliquer un code dans une autre feuille

Question

Bonsoir , j'ai encore besoin de votre aide : !

J'ouvre un Userform à partir de la feuille " Signal" , il s'affiche et il faudrait que le code suivant fasse sa recherche dans la feuille " ROSE".

j'ai essayé With sheets ("ROSE") mais cela ne fonctionne pas.

Private Sub TextBox_N°_Change()

Dim i As Integer, j As Integer, Réf_Colonne As String

' With Sheets("ROSE") CE RAJOUT NE FONCTIONNE PAS SI LA FEUILLE ROSE N'EST PAS SELECTIONNEE

For i = 3 To 18 Step 5 'Colonnes C, H, M et R
    For j = 6 To 41 'Lignes 6 à 41
        If Cells(j, i) = TextBox_N° * 1 Then GoTo Etiquette
    Next j
Next i

Etiquette:

Select Case i
    Case Is = 3
    Réf_Colonne = "B"
    Case Is = 8
    Réf_Colonne = "G"
    Case Is = 13
    Réf_Colonne = "L"
    Case Is = 18
    Réf_Colonne = "Q"

End Select

TextBox_Sortie.Value = ""
TextBox_Rentree.Value = ""

'Il faut que les "Commentaires" aient tous la même structure que ceux en B6 et B10

On Error Resume Next

If Len(Range(Réf_Colonne & j).Comment.Text) > 70 Then ' Un "Commentaire" avec un "Sort" à 66 caractères, un "Commentraire" avec deus "Sort" en a 94, d'où ce chiffre arbitraire de 70
    TextBox_Sortie = Mid(Range(Réf_Colonne & j).Comment.Text, 7, 5) & Chr(10) & Mid(Range(Réf_Colonne & j).Comment.Text, 35, 5)
Else
    TextBox_Sortie = Mid(Range(Réf_Colonne & j).Comment.Text, 7, 5)
End If

If Len(Range(Réf_Colonne & j).Comment.Text) > 70 Then ' Un "Commentaire" avec un "Sort" à 66 caractères, un "Commentraire" avec deus "Sort" en a 94, d'où ce chiffre arbitraire de 70
    TextBox_Rentree = Mid(Range(Réf_Colonne & j).Comment.Text, 23, 5) & Chr(10) & Mid(Range(Réf_Colonne & j).Comment.Text, 51, 5)
Else
    TextBox_Rentree = Mid(Range(Réf_Colonne & j).Comment.Text, 23, 5)
End If

TextBox_Train = (Range(Réf_Colonne & j).Value) 'N° Train

TextBox_Case = (Range(Réf_Colonne & j).Offset(0, 3).Value) 'N° Case

'End With

End Sub

Merci pour votre aide

patrick33 · Answer

Insère le code suivant: Sheets("ROSE") .select après la ligne de déclarations des variables. Cordialement...