Code vba pour supprimer une ligne
Bourrique66
Messages postés
158
Date d'inscription
Statut
Membre
Dernière intervention
-
ThauTheme Messages postés 1442 Date d'inscription Statut Membre Dernière intervention -
ThauTheme Messages postés 1442 Date d'inscription Statut Membre Dernière intervention -
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
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
A voir également:
- Code vba pour supprimer une ligne
- Supprimer rond bleu whatsapp - Guide
- Code ascii - Guide
- Supprimer une page word - Guide
- Partager photos en ligne - Guide
- Code puk bloqué - Guide
4 réponses
Bonjour,
comme ceci:
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
Merci pour le code , cependant une erreur s'affiche dans sub cbocode_change et pourtant la ligne et bien supprimer.
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.
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.
Bonsoir le fil, bonsoir le forum,
Une proposition avec un seul formulaire : https://www.cjoint.com/c/LAdudvTsxvT
Une proposition avec un seul formulaire : https://www.cjoint.com/c/LAdudvTsxvT