supprimer un client dans base de donnée

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.

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

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