Autres Alimentation feuille à partir d'une BDD sous condistions VBA Excel

[wafaekam]

Bonjour le forum, Je reviens vers vous parce que j’ai un truc à coder en VBA excel et je suis débutante la dessus.

En fait je souhaite en cliquant sur le bouton MAJ fichier :

Vérifier tout d’abord si les valeurs de la « col3 » et « col4 » de la feuille « BDD » existent dans la feuille réception. Exemple pour la 2eme ligne de mon fichier si j’ai la valeur NUM1 dans la col4 et la valeur AA dans la col3, je cherche alors dans la colonne AA de la feuille « reception » si j’ai bien NUM1 ou pas, et puis mettre reçu ou pas reçu dans la colonne « col13 » de la feuille « BDD » selon si la valeur existe ou pas.

Une fois c’est fait je souhaite alimenter la feuille « planning » à partir de la feuille « BDD », je veux parcourir la colonne A de la feuille « planning « et vérifier si la valeur existe dans la col4 de la feuille « BDD » et si la valeur de col3 feuille BDD égale à la valeur de l’entête (en jaune) de la feuille planning. Si case milieu est vide et valeur col13 BDD égale à « reçu » => affecter comme indiquer dans l’entête de la ligne 2 de la feuille planning et colorer les trois cases en vert. Si case milieu est vide et val col13 égale à « pas recu » => affecter et colorer les cases en orange.

Si case non vide vérifier si la couleur est orange si oui vérifier si le statut est passé en reçu sur la col13 de la feuille « BDD » si oui colorer les 3 cases en vert.

J’espère que j’ai pu expliquer en détail mon problème.

Je vous ai mis en PJ un fichier exemple illustrant un peu le problème.

N’hésitez pas si vous avez des questions, je suis débutante en VBA et j’ai vraiment besoin de votre aide

Je vous remercie énormément.

 

[ChTi160]

Bonjour wafarkam
Dans ma procédure on passe en revue toutes les conditions de "AA à AE"
Donc si pas de concordence on met rien ?
J'espère avoir compris que les conditions sont "AA à AE"
Bonne journée
Jean marie

 

[wafaekam]

Bonjour,

Oui c'est bien ça, pourrais-je avoir le code ou le fichier exemple que vous avez utilisé.

Merci d'avance.

Cordialement,

 

[ChTi160]

Rr
Le fichier ou j'ai supprimé la mise a "Non Reçu" des Lignes sans correspondance!
je n'ai rien traité d'autre lol
jean marie

 

[wafaekam]

Bonjour,

Merci bien pour votre retour c'est bien ce que je veux, mais j'aime bien garder pas reçu si toutes les conditions sont vérifiés et rien n'est trouver, au lieu de laisser la case vide.

Merci d'avance.

 

[ChTi160]

Re
Pour cela il te faut enlever dans la procédure l'apostrophe devant la Ligne :

ShBD.Cells(ii, 13) = "Non Reçu"

For ii = 2 To DerLgnBDD
'     ShBD.Cells(ii, 13) = "Non Reçu" 'ici
StrCol3 = ShBD.Cells(ii, 3): StrCol4 = ShBD.Cells(ii, 4)

jean marie

 

[wafaekam]

Bonjour Jean Marie,

En rajoutant la partie de code a mon code principal ça mouline at ça m'affiche pas de résultat ni d'erreur, en faisant le débogage pas à pas détallé j'ai eu comme info que StrCol4=10562. Je pense que le problème vient de ça et je ne sais pas comment le régler.

Pourriez-vous me donne run coup de main la dessus SVP?

Merci d'avance.

Cordialement,

 

[ChTi160]

Bonjour wafaekam
As tu vérifié la concordance des colonnes ?
Ainsi que la colonne source de la variable DerLgnBDD
Sans fichier et ou la procédure ,pas évident
Jean marie

Ce de

 

[wafaekam]

Bonjour Jean Marie,

Oui j'ai vérifié tous ça normalement et ça n'affiche pas d'erreurs!!. Mais ça fait énormément de temps ce qui est pas normal vu la taille du fichier.

Avez-vous une solution pour que les macros s'exécutent plus rapidement SVP?

Sinon, le résultat est bon pour toutes les colonnes sauf la colonne A ("AA" ), il m'affiche que tout est non reçu ce qui n'est pas réellement le cas!! Que pourrais-je changer SVP pour qu'il prenne en considération mm la colonne A de la feuille réception.

Merci beaucoup pour votre aide.

 

[ChTi160]

Bonjour wafaekam
Quel fichier utilises tu ?
Quel code contient il?
Merci
Jean marie

 

[wafaekam]

Bonjour Jean Marie,

Désolée pour le retard j'ai essayé d'avancer de mon coté. J'ai réussi à faire ce que je voulais mais la c'est tellement lent ça prend 30 mins pour me faire ça :


=> Vérifier tout d’abord si les valeurs de la « col3 » et « col4 » de la feuille « BDD » existent dans la feuille réception. Exemple pour la 2eme ligne de mon fichier si j’ai la valeur NUM1 dans la col4 et la valeur AA dans la col3, je cherche alors dans la colonne AA de la feuille « reception » si j’ai bien NUM1 ou pas, et puis mettre reçu ou pas reçu dans la colonne « col13 » de la feuille « BDD » selon si la valeur existe ou pas.

=>Une fois c’est fait je souhaite alimenter la feuille « planning » à partir de la feuille « BDD », je veux parcourir la colonne A de la feuille « planning « et vérifier si la valeur existe dans la col4 de la feuille « BDD » et si la valeur de col3 feuille BDD égale à la valeur de l’entête (en jaune) de la feuille planning. Si case milieu est vide et valeur col13 BDD égale à « reçu » => affecter comme indiquer dans l’entête de la ligne 2 de la feuille planning et colorer les trois cases en vert. Si case milieu est vide et val col13 égale à « pas recu » => affecter et colorer les cases en orange.

=>Si case non vide vérifier si la couleur est orange si oui vérifier si le statut est passé en reçu sur la col13 de la feuille « BDD » si oui colorer les 3 cases en vert.

En fait, je veux que ça soit plus rapide, en cherchant sur les forums j'ai trouvé qu'il faut utiliser des tableaux dynamique mais débutante que je suis je ne sais pas adapter le code.

Pourriez-vous m'aider SVP?

L'objectif est de répondre à ma première demande . La première partie a été faite grace à vous mais la deuxième partie, que j'ai fait moi même, est trop lente. Avez-vous une proposition SVP?
Merci d'avance.