Recherchev Macro Cellule non vide

[liquoreux]

Bonjour

Thème maintes fois abordé de la fonction recherchev sous macro.

Je cherche à obtenir une macro de recherchev fonctionnant de la façon suivante : à chaque fois qu'une cellule de la colonne intitulée "CODE POSTAL" est remplie par un code postal, la macro remplit la cellule correspondante dans la colonne intitulée "BUREAU DISTRIBUTEUR".

Si la cellule de la colonne "CODE POSTAL" est vide, la cellule de droite de la collone "BUREAU DISTRIBUTEUR" reste vide.

Je ne souhaites pas utilisé la fonction recherchev (...).

J'insiste sur les intitulés car je ne souhaite pas non plus que la macro soit figée à des numéros de colonnes ou à leurs lettres correspondantes (A, B, C, ...).

Merci beaucoup pour votre aide.

 

[job75]

Re : Recherchev Macro Cellule non vide

Pouvez vous intégrer la formule erreur de Lii dans la macro fonctionnant dans les deux sens ?.

Ajouter en fin de macro (fichier(2) modifié) :

If Target = "" Or txt <> "" Then Exit Sub
MsgBox IIf(Intersect(Target, col1) Is Nothing, "Cette ville", "Ce code postal") & " n'existe pas...", 48

Est-il possible de créer également une fenêtre qui apparaît chaque fois qu'il y a doublon dans la liste des codes postaux en proposant un choix?

Là non, trop compliqué, j'arrête.

A+

 

[job75]

Re : Recherchev Macro Cellule non vide

Re,

Attention, j'ai légèrement modifié le code ajouté dans mon post précédent.

A+

 

[Lii]

Re : Recherchev Macro Cellule non vide

Re,

avec tes dernières demandes, je passerais plutôt par un USF.
Dans le fichier joint, si tu veux retrouver les saisies directes, supprime le a ici :

Private Sub [B]a[/B]Worksheet_Change(ByVal Target As Range)

Dans ce cas, l'USF posera problème (sauf si, dans son code, tu neutralises l'évènementielle).

 

[liquoreux]

Re : Recherchev Macro Cellule non vide

job75, la macro fonctionne bien.

Seul souci, la saisie eronée n'est pas effacée lorsqu'on clique "Ok" sur la fenêtre erreur.

 

[job75]

Re : Recherchev Macro Cellule non vide

Re,

Pour annuler l'entrée erronée, ajouter à la fin :

Target = ""

A+