Bonjour,
encore une discussion qui porte ce nom ...
Vous l'aurez compris : cette erreur "La méthode Delete ... a échoué " s'affiche et je n'arrive pas à identifier le problème.
Je cherche à supprimer via un formulaire une ligne. L'utilisateur entre le nom de la ligne (donc ce qui est inscrit dans la première colonne de cette ligne) à supprimer dans le formulaire.
(NB : il ne peut pas y avoir d'erreur de saisie car les valeurs possibles pour la saisie sont définies par liste déroulante.)
Le code associé au bouton nommé Ok_Sup de mon formulaire :
La fonction RefCellact trouve la référence de la cellule contenant le texte entré. Elle fonctionne je l'ai déjà utilisé dans d'autres procédures sans soucis (également associé à Range.
Je vous mets le code ci-dessous si besoin de la comprendre :
Merci par avance !
encore une discussion qui porte ce nom ...
Vous l'aurez compris : cette erreur "La méthode Delete ... a échoué " s'affiche et je n'arrive pas à identifier le problème.
Je cherche à supprimer via un formulaire une ligne. L'utilisateur entre le nom de la ligne (donc ce qui est inscrit dans la première colonne de cette ligne) à supprimer dans le formulaire.
(NB : il ne peut pas y avoir d'erreur de saisie car les valeurs possibles pour la saisie sont définies par liste déroulante.)
Le code associé au bouton nommé Ok_Sup de mon formulaire :
VB:
Private Sub OK_Sup_Click()
'Initialisation des variables
Dim Ev As String
Ev = Me.Evenement.Text 'Evenement est la ComboBox dans laquelle l'évènement (donc le nom de la ligne à supprimer) est entré
'Supprime la ligne de l'évènement dans la feuille "Evènements"
Sheets("Evènements").Activate
Range(RefCellact(Ev)).Select
Selection.EntireRow.Delete
Call Unload(Me)
End Sub
La fonction RefCellact trouve la référence de la cellule contenant le texte entré. Elle fonctionne je l'ai déjà utilisé dans d'autres procédures sans soucis (également associé à Range.
Je vous mets le code ci-dessous si besoin de la comprendre :
Code:
Function RefCellact(Valeur)
RefCellact = Cells.Find(Valeur, , xlValues).Address
End Function
Merci par avance !