Je soutiens Excel Downloads
Connexion
S'inscrire
Effectuez une recherche sur Excel Downloads...
Effectuez une recherche sur Excel Downloads...
Rechercher dans les titres uniquement
Par:
FORUMS
Nouveaux messages
Rechercher dans les forums
TÉLÉCHARGEMENTS
POUR LES PROFESSIONNELS
Gestion commerciale
Gestion de projets
Gestion du personnel
Tableaux de bord
Comptabilité
Immobilier
Bourse
POUR LES PARTICULIERS
Budgets et comptes
Plannings et calendriers
UTILITAIRES
LEÇONS ET TUTORIAUX
Fonctions Excel
Vba
RESSOURCES PEDAGOGIQUES
Rechercher une ressource
ACTUALITÉS
TUTOS
EXCEL
FORMULES ET FONCTIONS
VBA
POWER QUERY
POWER PIVOT
POWER BI
AUTRES APPLICATIONS
Recherche de tutos vidéos
Connexion
S'inscrire
Quoi de neuf
Effectuez une recherche sur Excel Downloads...
Effectuez une recherche sur Excel Downloads...
Rechercher dans les titres uniquement
Par:
Nouveaux messages
Rechercher dans les forums
Menu
Connexion
S'inscrire
Installer l'application
Installer
FORUMS
Questions
Forum Excel
La méthode Delete de la fonction range a échoué
JavaScript est désactivé. Pour une meilleure expérience, veuillez activer JavaScript dans votre navigateur avant de continuer.
Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement.
Vous devez le mettre à jour ou utiliser un
navigateur alternatif
.
Répondre à la discussion
Message
<blockquote data-quote="louloubru" data-source="post: 20237558" data-attributes="member: 230041"><p>Bonjour, </p><p></p><p>encore une discussion qui porte ce nom ... </p><p>Vous l'aurez compris : cette erreur "La méthode Delete ... a échoué " s'affiche et je n'arrive pas à identifier le problème.</p><p>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. </p><p>(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.)</p><p>Le code associé au bouton nommé Ok_Sup de mon formulaire : </p><p></p><p>[CODE=vb]Private Sub OK_Sup_Click()</p><p> 'Initialisation des variables</p><p> Dim Ev As String</p><p> Ev = Me.Evenement.Text 'Evenement est la ComboBox dans laquelle l'évènement (donc le nom de la ligne à supprimer) est entré</p><p> </p><p> 'Supprime la ligne de l'évènement dans la feuille "Evènements"</p><p> Sheets("Evènements").Activate</p><p> Range(RefCellact(Ev)).Select</p><p> Selection.EntireRow.Delete</p><p> Call Unload(Me)</p><p></p><p>End Sub</p><p></p><p>[/CODE]</p><p></p><p>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. </p><p>Je vous mets le code ci-dessous si besoin de la comprendre : </p><p></p><p>[CODE]Function RefCellact(Valeur)</p><p> RefCellact = Cells.Find(Valeur, , xlValues).Address</p><p>End Function[/CODE]</p><p></p><p>Merci par avance !</p></blockquote><p></p>
[QUOTE="louloubru, post: 20237558, member: 230041"] 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 : [CODE=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 [/CODE] 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[/CODE] Merci par avance ! [/QUOTE]
Insérer les messages sélectionnés…
Vérification
Répondre
FORUMS
Questions
Forum Excel
La méthode Delete de la fonction range a échoué
Texte copié dans le presse-papier
