Supprimer ligne avec bouton de cmmande

Bonsoir à tous

Comme le sujet l'indique j'ai trouver un code sur internet me permettant de supprimer un ligne excel. Malheureusement je n'arrive pas a l'intégrer à un bouton de commande ni même le faire fonctionner.

je joins le fichier

Pour faire simple:

Sur la feuille 1 en cliquant sur "Menu" puis sur "Supprimer" une boite de dialogue s'ouvre et j'indique le nom de l'adherent à supprimer

(dans l'exemple : DUPONT) et la normalement dans la feuille " Adhérents" la ligne de l'adhérent DUPONT devrais être supprimer

si quelqu'un à une idée voir même une correction je suis preneur

Merci pour votre temps

Bonjour

Dans le Code du bouton SUPPRIMER, tu as

Rows(i).Delete

remplace par

Rows(i).EntireRow.Delete

Cordialement

Merci pour cette réponse.

Malheureusement ça n'a pas l'air de vouloir fonctionner.

Je suis entrain de retourner le code dans tous les sens mais impossible de voir ce qui cloche.

Bonjour Kinny, Amadéus, le forum,

Ton code fonctionne parfaitement, respecte bien les majuscules et minuscules lors de la saisie du nom à supprimer.

Pour être supprimé, il doit être orthographié de la même façon:

Exemple : Dupont --> Dupont si tu écris DUPONT, il n'est pas supprimé.

Private Sub Supprimer1_Click()
Dim i As Integer
Dim Nom As String
Nom = InputBox("Veuillez entrer l'adhérent à supprimer ?")
With ThisWorkbook.Sheets("ADHERENTS")
            For i = .Range("A" & .Rows.Count).End(xlUp).Row To 2 Step -1
                        If .Range("A" & i).Value = Nom Then
    Rows(i).EntireRow.Delete
    End If
   Next i
End With
End Sub

Cordialement,

Merci

Ca fonctionne.

L'erreur devait venir du fait que le menu se trouve sur la feuille 1 et que les lignes à supprimer sont sur d'autre feuilles.

Ce qui est ennuyant car normalement j'avais prévu que l'adhérent soit effacer sur les autres feuilles

Est il possible d'analyser les adhérents qui ne sont plus sur la feuille adhérent et de supprimer leur ligne des autres feuilles

Merci pour tout

Bonjour kinny,

A essayer,

Cordialement,

Bonsoir à tous. Désolé de ne pas donner de suis à ce message plutôt (problème de reseau)

Tout fonctionne super bien

Merci à tous pour votre temps et votre aide.

bonjour à tous.

Je reviens vers vous pour améliorer encore quelque peu ce code.

En effet il me permet de supprimer la ligne en fonction du nom marqué dans le msgbox.

mais il se peux qu'il y ai plusieurs nom identique et dans ce cas la est il possible d'inclure le prénom qui ce trouve dans la colonne B de chaque feuille.

j'ai essayer d'inclure une autre variable mais je ne sais pas comment indiquer de supprimer une ligne spécifique si plusieurs choix.

Merci pour votre futur aide

Bonjour kinny,

Peut-être ainsi :

Dim Nom As String
    Dim j As Integer
    Dim Prenom As String

    Nom = InputBox("Veuillez entrer le nom de l'adhérent à supprimer ?")
    Prenom = InputBox("Veuillez entrer le prénom de l'adhérent à supprimer ?")

    Sheets("ADHERENTS").Activate
                For i = Range("A" & Rows.Count).End(xlUp).Row To 2 Step -1
                            If Range("A" & i).Value = Nom And Range("B" & i).Value = Prenom Then
        Rows(i).EntireRow.Delete

        End If
       Next i

       Sheets("SPORT").Activate
                For i = Range("A" & Rows.Count).End(xlUp).Row To 2 Step -1
                            If Range("A" & i).Value = Nom And Range("B" & i).Value = Prenom Then
        Rows(i).EntireRow.Delete

        End If
       Next i

       Sheets("DOCUMENTS INSCRIPTION").Activate
                For i = Range("A" & Rows.Count).End(xlUp).Row To 2 Step -1
                           If Range("A" & i).Value = Nom And Range("B" & i).Value = Prenom Then
        Rows(i).EntireRow.Delete

        End If
       Next i

    End Sub

Cordialement,

Merci est ce que je doit rajouter cette variable au code ou est ce un nouveau code car du coup je supprimerai la variable i qui apparaît encore dans le reste du code

en tripatouillant un peu ca fonctionne super. encore merci

Re,

Merci est ce que je doit rajouter cette variable au code ou est ce un nouveau code car du coup je supprimerai la variable i qui apparaît encore dans le reste du code

C'est comme tu veux, sois tu remplaces le code par celui fourni, soit tu modifies le code en rajoutant les parties surlignées en vert.

en tripatouillant un peu ca fonctionne super. encore merci