supprimer un client dans base de donnée

[XLD Bis]

Bonjour,


Pour Greg Maurice :

Salut, g un problème, peux-tu m'aider...

(XLD surement moi pas - moi pas macro - moi petite celeda dans vba - moi mettre ton message dans XLD pour qu' un VBAiste regarde le code - et toi aura l'opportunité d'avoir une ou plusieurs réponses qui serviront à quelques autres - ici forum d'entraide - moi bal perso - merci respecter ma bal - mais toi sujet interessant.)

Je souhaite supprimer un client dans ma base de donnée client à partir de la cellule liée d'une liste déroulante se trouvant sur une autre feuille...
j'ai commencé la macros mais elle bug :

Sub Supprimer_un_client()
'
' Supprimer_un_client Macro
' Macro enregistrée le 21/10/2003 par Grég
'
Sheets("client").Select
Range("A3").Select
Do
Loop Until ActiveCell.Value = Sheets("rechercher un client").Range("I1").Value
Selection.ClearContents
End Sub

Merçi de bien vouloir m'aider...


Celeda

 

[LaurentTBT]

Bonjour Gerge et Céléda.

Greg, il n'y a rien qui fasse tourner ta boucle Do...Loop until.
Je suppose que ta boucle doit regrader chaque cellule de la colonne A, à prtir de A3, et s'arrêter dès que la valeur de la feuille "rechercher un client" est trouvée.

Dans ce cas, ta boucle serait:

Do until selection=sheets("rechercher un client").range("I1")
Selection.offset(1,0).select
Loop

(les .value ne sont pas nécessaires, car il s'agit de la valeur par défaut d'un objet range)

Cependant, ce type de boucle n'est pas à conseiller, car si ta liste est très longue, comme on sélectionne chaque cellule, le code ne sera pas très rapide.

Le mieux est d'utiliser la recherche qui existe sous excel, et donc sous VBA:
Et ta macro devient:

Sub Supprimer_un_client()
Worksheets("Feuil1").Range("A3").Select
Cells.Find(What:="R").ClearContents
end sub

Bonne journée. Laurent.

 

[Celeda]

Bonsoir,

Bon c'est pas pour moi la macro mais elle servira peut-être à quelqu'un d'autre,la macro et les explications d'un même coup,

alors en attendant, merci Laurent.


Celeda

 

[Ti]

Tiens Celeda, c'est marrant, ce Greg m'avait aussi envoyé le même courrier. Combien d'autres l'ont encore reçu ?