Code vba pour supprimer une ligne

Question

Bonjour ;
Sur internet j’ai trouvé un code VBA pour supprimer une ligne d’un tableau depuis un formulaire, mais dès que je l’applique à mon fichier une erreur apparaît. Cette erreur se situe sue la ligne :rows([A2: 65536]. Find(cbocode. Value). Row).Entire Row .DeleteSi quelqu’un pouvait me dire en quoi consiste cette erreur et comment la réparer. Merci de prendre le temps de me lire
Ps : je joins le fichier en question
https://www.cjoint.com/c/LAdolHu7sfO

cs_Le Pivert · Answer

Bonjour,

comme ceci:

 Private Sub btnsupprimer_Click()
Dim ligne As Integer
If cbocode.Value = "" Then
MsgBox ("Veuillez remplir le champs code")
Else
ligne = cbocode.ListIndex + 2
If MsgBox("confirmez-vous la suppression des données de ce code?", vbYesNo, "Confirmation") = vbYes Then
Rows(ligne & ":" & ligne).Delete Shift:=xlUp
End If
End If
End Sub

Bourrique66 · Answer

Merci pour le code , cependant une erreur s'affiche dans sub cbocode_change et pourtant la ligne et bien supprimer.

Bourrique66 · Answer

Re
L'erreur se trouve dans :Private sub cbocode_change
                              Do Until ActiveCell = CLng (Me.cbocode) la ligne de code  et jaune et pourtant la ligne et bien supprimer.

Pour les 3 formulaires je regarde comment faire pour tout mettre sur le même.

ThauTheme · Answer

Bonsoir le fil, bonsoir le forum,

Une proposition avec un seul formulaire : https://www.cjoint.com/c/LAdudvTsxvT

Code vba pour supprimer une ligne

4 réponses

Discussions similaires

Newsletters