Suppression de ligne aprés entrée d'une donnée

Le 07/09/2016 à 20:29

Bonsoir à toutes et tous

Je continue avec mon fichier.....

Dans fichier j'ai une feuille client.

Je souhaiterais réaliser une macro pour supprimer la ligne se rapportant a un client aprés avoir entré son nom dans boite de dialogue.

je dois dire que je suis novice et que je sais pas trop par quel bout m'y prendre

Pouvez vous s'il vous plait me donner un petit coup de main

D'avance Merci

15classeurtest2bon.xlsm (40.82 Ko)

Le 08/09/2016 à 08:09

Bonjour tchancayre

Pourquoi "supprimer" un client ?

Un client n'est-il pas un contact à conserver ?

Je pense qu'il serait plus judicieux de filtrer tes clients en fonction d'une "colonne supplémentaire à cocher" dans ton fichier client

Qu'en penses-tu ?

Le 08/09/2016 à 08:13

Bonjour

Un essai à tester. Te convient-il ?

Bye !

11classeurtest2bon-v1.xlsm (47.23 Ko)

Le 08/09/2016 à 08:22

bonjour Andrea73 et a tout le forum

Dans mon idée la suppression d'un client n'est pas vraiment nécessaire.

Le fichier que je cherche à réaliser est pour une personne d'un certain âge ou d'un âge certain (au choix )quine connait pas véritablement les rudiment de l'informatique

C'est une demande de sa part.

Perso je manipule excel (pas comme certain sur le forum) et je sais comment supprimer une ligne.

Je cherche donc a faire un truc simple pour combler cette demande.

Le 08/09/2016 à 09:06

(re)

Voici tout de même une solution toute simple

et le code associé à ce bouton [Effacer]

Sub SupprClient()
Dim lig As Double

    lig = ActiveCell.Row
    ' Si "l'identifiant" est vide nous ne sommes pas sur une ligne client !
     If Cells(lig, 1) = "" Then
        MsgBox "Placez-vous sur le Client à Supprimer", vbCritical + vbOKOnly, "Erreur !"
    Else
    ' Sinon Effacement si Confirmation !
        If (MsgBox("Suppression du Client" + vbCrLf + vbCrLf + Cells(lig, 1) + vbCrLf + vbCrLf + "Veuillez Confirmer SVP !", vbQuestion + vbYesNo, "Attention !") = vbYes) Then
            Cells(lig, 1).EntireRow.Delete
        End If
    End If
End Sub