Erreur 13 incompatibilité VBA

Bonjour ,

je fais appel à d'autres tête plus informé que moi pour remédier à mon problème mais aussi pour essayer de la comprendre .

Private Sub modifier_Click()
Dim Ligne As Variant
Dim Ws As Worksheet
Dim Ws1 As Worksheet

Worksheets("Stock").Select
Set Ws = Worksheets("Stock")

Ligne = Application.Match(TextBox6.Value, Columns(4), 0)

Worksheets("Stock").Select

 'ici avec la Feuille on va faire :
 With f2
      '.Range("A" & Ligne) = code
      '.Range("B" & Ligne) = medoc
      .Range("G" & Ligne) = dates
      .Range("H" & Ligne) = ComboBox1
End With

 'On envoie un message de confirmation
    MsgBox "Opération accomplie", vbInformation

Unload Me
Entrée.Hide
Entrée.Show

End Sub

J'ai une erreur qui s'affiche sur la ligne de code surligner et je comprend pas pk .

hypothese 1 : le format de Cellule du tableau mais je trouve pas la solution .

hypothese 2 : le problème viens du Application.match mais pourquoi ?

Je souhaiterai aussi si possible insérer 2 variables dans mon application.match mais je ne sais pas comment , peut ton me l'indiquer ou me dirigé vers quelque chose de concret .

Merci d'avance pour votre temps

Cordialement.

Bonjour

C'est quoi la variable "Dates" ???

Cordialement

bonjour ,

la variable "dates" est une textbox ( textbox.value = date )

re

La variable Dates est déclarée comment et où dans votre projet

Cordialement