Comment appeler une macro dans une Inputbox

Bonjour à tous,

C'est mon deuxième message sur le forum.

Je dois gérer les doublons de deux fichiers d'environ 10000 lignes chacun.

J'ai un petit souci, je cherche à appeler une macro suite à la saisie d'une valeur dans une inputbox.

Je me suis inspiré des macros du site de M. boisgontier jacques.

en clair :

en choix = 1 appeler macro 1

en choix = 2 appeler macro 2

L'ennui, c'est que cela fonctionne pour le 1er choix, mais pas pour le deuxième.

Ci dessous: l'extrait du code

Sub comparaison()

Dim x As Variant
Dim y As Byte
 x = InputBox("Faire apparaitre les valeurs présentes dans:" & Chr(10) & Chr(10) & "Choisissez l'action qui vous intéresse :" & Chr(10) & Chr(10) & "(1)BD1 Non BD2" & Chr(10) & "(2)BD2 Non BD1" & Chr(10) & Chr(10) & "Entrez le N° de l'action et cliquez sur OK :")
    y = CByte(Val(x))

    If y = 1 Then Call BD1NonBD2
    If y = 2 Then Call BD2NonBD1
End Sub

Ci-joint mon fichier de travail ( macros en Module1)

Merci de votre aide

Bonjour,

Au test, quand on renseigne 2 dans la boite de dialogue, cela effectue bien la 2ème macro. Je ne comprends pas ton souci.

Bonjour,

pour moi l'appel de la macro fonctionne bien pour les 2 choix.

peut-être est-ce la macro appelée qui ne fait pas ce que tu attends ?

bonjour Raja

Bonjour à tous,

Voici le fonctionnement de ta macro en prenant pour exemple le choix de BD1 :

On balaye tous les noms de la base choisie (BD1)

Si le nom dans BD1 est absent dans BD2,

• on copie la ligne correspondante dans BD1NonBD2
• la ligne dans BD1 est colorée en jaune.

Tu ne vois aucun résultat avec le choix 2 car il n’y a aucun nom de BD2 qui ne soit pas présent dans BD1.

A+

Bonjour Frangy, H2so4 et Raja,

Merci pour vos réponses,

Effectivement, c'est juste, si les données dans BD2 sont toutes présentes dans BD1, cela ne donnera rien !

je n'y avais pas pensé vu le nombre de lignes mais surtout, ce qui implique qu'il faudrait que je puisse afficher un message ou un écrit dans une cellule de la Base vide indiquant "vide" ou "il n’y a aucun nom de BD2 qui ne soit pas présent dans BD1" par exemple.

Est ce possible ?

Si oui, ou puis je insérer cet ajout dans la macro ?

Merci

Une solution en incluant un test

A+

Merci Frangy ! C'est exactement ce que je souhaitais !

Merci à H2so4 et à Raja également !

Affaire résolue !