XL 2010 Mise à jour de données par vba (résolu)

[miliev83]

Bonjour à tous,

Je souhaiterai mettre à jour ma base de données (onglet base) qui contient plus de 10 000 lignes grâce au données présentes dans l'onglet export mais dont le nombre de lignes est variable

Les colonnes à mettre à jour :
Prénom
Ville
Couleur
Prix €
Quantité

Exemple pour l'article A :
Abc Antibes Vert 10 1
devient
Test1 Amiens Rouge 100 1

Jusqu'à présent je mets à jour par une recherchev sur l'article mais j'aimerai l'automatiser si possible


Merci d'avance

 

[Jacky67]

Bonjour à tous,

Exemple pour l'article A :
Abc Antibes Vert 10 1
devient
Test1 Amiens Rouge 100 1

Merci d'avance

Bonjour,
A tester le classeur en PJ

 

[miliev83]

Tout simplement parfait merci beaucoup

Par contre (mais c'est de ma faute je n'ai pas pensé à le préciser), sur mon vrai fichier les colonnes à mettre à jour de la feuille base ne se suivent pas et même chose pour les colonnes de la feuilles export.

Du coup, j'ai testé sur ton fichier en ajoutant des colonnes dans les 2 feuilles et forcément cela ne fonctionne pas...

A la limite si cela n'est vraiment pas réalisable comme tel, je peux modifier ma feuille base et faire en sorte que les colonnes se suivent en revanche les colonnes de la feuilles export ne peuvent pas être modifiées.

Peux-tu à nouveau m'aider ?

 

[Jacky67]

RE...
Peut-on éventuellement copier toute la ligne ?
Donne un exemple de l'organisation des données dans les 2 onglets

 

[miliev83]

J'ai modifié mon exemple pour que cela ressemble un peu plus au vrai (je n'ai pas le nombre et le positionnement exact des colonnes en tête car c'est au boulot)

- dans "base" les colonnes X en jaune ne sont pas à mettre à jour
- dans "export" les colonnes Y en bleu ne sont pas à mettre à jour

Et du coup en retravaillant le fichier j'ai oublié de préciser une mise à jour supplémentaire dans la feuille "base", j'aimerai que pour tout les articles présents dans la feuille "export" il y écrit "oui" dans la colonne MAJ de la feuille "base"

Peut-on éventuellement copier toute la ligne ?

Je ne pense pas car les colonnes en bleu de l'export ne sont pas à mettre à jour car elles n'existent pas dans mon fichier base

 

[Jacky67]

J'ai modifié mon exemple pour que cela ressemble un peu plus au vrai (je n'ai pas le nombre et le positionnement exact des colonnes en tête car c'est au boulot)

- dans "base" les colonnes X en jaune ne sont pas à mettre à jour
- dans "export" les colonnes Y en bleu ne sont pas à mettre à jour


Je ne pense pas car les colonnes en bleu de l'export ne sont pas à mettre à jour car elles n'existent pas dans mon fichier base

RE..
Testes.........
Il sera facile de modifier le positionnement si cela ne correspond pas a ton classeur au boulot

 

[miliev83]

Ok j'essaierai mardi de l'adapter au boulot mais ca devrait le faire en tout cas merci beaucoup

une dernière chose, est-ce que tu peux retélécharger ma 2eme PJ car j'ai ajouté une colonne "MAJ"

Et du coup en retravaillant le fichier j'ai oublié de préciser une mise à jour supplémentaire dans la feuille "base", j'aimerai que pour tout les articles présents dans la feuille "export" il y écrit "oui" dans la colonne MAJ de la feuille "base"

Merci encore

 

[Jacky67]

une dernière chose, est-ce que tu peux retélécharger ma 2eme PJ car j'ai ajouté une colonne "MAJ"
Merci encore

RE...
Avec "Oui"

 

[miliev83]

un grand merci bonne soirée

 

[Jacky67]

un grand merci bonne soirée

Re..
Une modification dans le code au cas ou le "CodeName" de la feuille export ne serait pas "Feuil2"

 

[miliev83]

bonsoir, je réouvre le post car j'aurai une petite modification à faire :

comment faire pour que ce code s'exécute seulement pour les lignes qui contienne "A traiter" en colonne T de la feuille "base" ?

Merci

 

[Jacky67]

bonsoir, je réouvre le post car j'aurai une petite modification à faire :

comment faire pour que ce code s'exécute seulement pour les lignes qui contienne "A traiter" en colonne T de la feuille "base" ?

Merci

Re...
Remplace cette ligne

If IsNumeric(Application.Match(C, [Export!a:a], 0)) Then

par

If IsNumeric(Application.Match(C, [Export!a:a], 0)) And UCase(.Range("T" & C.Row)) = "A TRAITER" Then

 

[miliev83]

merci de ton retour jacky67

je viens de tester mais ça ne fonctionne pas aucun MAJ ne se fait.

Je m'y connais pas des masses mais il ne faudrait pas préciser de vérifier la condition sur la feuille "base" avant

And UCase(.Range("T" & C.Row)) = "A TRAITER" Then

?

 

[Jacky67]

merci de ton retour jacky67

je viens de tester mais ça ne fonctionne pas aucun MAJ ne se fait.

Je m'y connais pas des masses mais il ne faudrait pas préciser de vérifier la condition sur la feuille "base" avant ?

RE...
Je ne vois aucun raison pour que cela ne fonctionne pas.......
Voici une version qui sera plus rapide s'il y a beaucoup de donnée.
Cette version filtre la feuille base et ne traite que les lignes ou il y a "A traiter" en colonne T

 

[miliev83]

ok merci ça marche sur ton fichier je vais pouvoir l'adapter

en revanche est-il possible de remplacer les ("$D$1:$T$4") par la plage de mon tableau car le nombre de ligne peut évoluer et comme nous sommes plusieurs à l'utiliser ça évitera des fausses manip....

Merci encore