Suppression des lignes d'un tableau

en faite j'aimerai supprimer une ligne après avoir fait une recheche mais ça bug sur la syntaxe(pourtant bonne), j'utilise O365, ça m'affiche une erreur sur la syntatxe de Entirerow. je suis nouveau dans le VBA

Private Sub BtnDelete_Click()
Dim DR As Integer
DR = MsgBox(("Etes-vous sûre de vouloir supprimer la tâche: N°" & TextBox1.Value & "?"), vbYesNo + vbCritical + vbdefaultbutton, "Quitter")
Select Case DR
  Case vbYes
   Rows([A2:A65536].Find(TextBox1.Value).Row).EntireRow.Delete

      Case vbNo
    Exit Sub

End Select

End Sub

Bonjour,

Pourquoi la colonne A est un tableau structuré nommé "Tableau3" et le reste des données est aussi un tableau structuré > mais lui est nommé "Data" ?

ric

Bonjour,

Parce que ce sont 2 tableaux séparés ...

Un essai ...

Private Sub BtnDelete_Click()
Dim DR As Integer
Dim Cl As Range

   DR = MsgBox(("Etes-vous sûre de vouloir supprimer la tâche: N° " & TextBox1.Value & " ?"), vbYesNo + vbCritical + vbdefaultbutton, "Quitter")
   Select Case DR
   Case vbYes
      Set Cl = Range("Tableau3").Find(TextBox1.Value)
      If Not Cl Is Nothing Then
         Range("Data").Rows(Cl.Row - 1).Delete
         Range("Tableau3").Rows(Cl.Row - 1).Delete
      End If
   Case vbNo
      Exit Sub
   End Select
End Sub

ric

Merci beaucoup ça marche, concernant la colonne A nommée "Tableau3" ça doit être une erreur de manipulation de ma part est ce que c'est grave?

Bonjour,

De toute façon > il semble que l'on ne puisse retourner à un seul tableau > l'option de conversion n'est pas disponible > peut-être dû à une requête "Power Query" ou quelque chose de semblable ...

ric

D'accord