Extraction de donnée d'une feuille Excel

Bojour à tous,

Didier, pour les noms de Sous-titre (à rallonge) vois si tu peux faire quelque chose !

Sinon, il faudra les mettre sur 2 lignes.

à voir,

https://www.excel-pratique.com/~files/doc/sous_titres2.xls

Bonne journée

Claude.

Hello, a tous

Voici le fichier modifier,

https://www.excel-pratique.com/~files/doc/Copie_de_sous_titres2.xls

J'ai bien raccourcis le toute.

Je n'ai pas eu le temps de faire des test, ca sera pour demain.

Merci bonne soirée

Didier

HEllo,

Voila j'ai fais quelque test, et voici mes remarque:

Onglet Catalogue:

- Lors de l'ajout d'un nouvel article avec une image, l'image ne ce "range pas a ca place" vient trop grande et déformer (selon les cas).

- Lors de l'ajout d'un nouvel article avec une image le texte va à gauche.

- La suppression d'article ne fonctionne pas, erreur dans le VBA en ligne 27

- Certain texte sous les image est cacher par l'image peut t'on mettre le texte en 1er plan?

Onglet base:

L'image ajouter ne s'efface pas de la cellule C6.

Onglet Archive:

Peut t'on choisir l'emplacement ou ce range le fichier archive mars 09?

Onglet Ajout:

Peut t'on mettre en noir (ou cacher) les colones dès Q1

Voila mes premières remarques, d'autre suivront surement.

Merci pour ton travail

Didier

Bonsoir,

Bizarre ! , t'as changé de PC ou quoi ?

Apparemment il y a un problème d'image.

• dans catalogue, les images ne débordent pas des lignes ? . édit: et base aussi
• as-tu le mème zoom dans Base et Catalogue ?
• est-tu resté en version 2003 ?

y avait-il les mêmes symptômes sur la version 10 ?

J'ai retester à la maison sans problèmes.

refait un essai de recharger le fichier

Claude.

Hello a tous,

Non j'ai toujours le même PC, et j'ai pas changer de programme ni d'enregistrement,

oui le même zoom,

Alors comme conseiller j'ai recharger le fichier.

Plus de soucis de supression d'article,

J'ai compris pourquoi les images restait, en fait je prenais des formes du catalogue excel, c'est surement que de la que venais le problèmes, avec des images des vis, ca fonctionne.

Par contre les textes dans le cataloques ne vienne pas toujours a gauche.

Je verrai bien dans l'onglet ajout, lors de la validation de donner, actuellement dans la boite de dialogue y a oui ou non, je verai bien un anuler? c'est possible?

Voila je ne sait pas pourquoi j'ai eu tous ces problèmes, mais j'ai reessayer 3 fois avec chaque fois un nouveau fichier et ca n'est plus apparu.

Bonne journée

DIdier

Bonjour Didier et à tous,

Bon, tu me rassure !

Par contre les textes dans le cataloques ne vienne pas toujours a gauche.

• Dans quelle colonne ?, avec ou sans image ?
• -------------------

Je verrai bien dans l'onglet ajout, lors de la validation de donner, actuellement dans la boite de dialogue y a oui ou non, je verai bien un anuler? c'est possible?

Non, quand ce message apparait les ajouts sont déjà faits.

1- tu réponds "Oui" (autres articles à ajouter), la base n'est pas réinitialisée et tu peux

voir les ajouts en bas de page "Base".

2- tu réponds "non", la base est réinitialisée et triée, le catalogue aussi.

Maintenant on peut ajouter un message au début, quand tu clique sur "Valider" -->>

message "Les articles de cette feuille vont être insérés dans la base..Oui/Non ? "

si tu réponds Non, l'action est annulée et rien ne se passe.

Feuille "Ajout"

Ne t'inquiète pas pour les listes à droite, elles sont réécrites à chaque réinitialisation.

je vais voir si je peux les masquer. (pas sûr !)

Pour l'enregistrement dans Archives", je laisserai comme çà, sinon si un jour tu change

de répertoire ou de PC, il faudrait modifier la macro ! (mais çà peut se voir ultérieurement)

Bonne journée

Claude.

Re,

Bon, tu me rassure !

J'ai cru un instant a un test de ta part... Mais je trouvais vraiement bizzard.

Franchement je préfaire que ca fonctionne.

- Dans quelle colonne ?, avec ou sans image ?

c'est avec une nouvelle image et en colonne "C"

Maintenant on peut ajouter un message au début, quand tu clique sur "Valider" -->>

message "Les articles de cette feuille vont être insérés dans la base..Oui/Non ? "

si tu réponds Non, l'action est annulée et rien ne se passe.

Je trouverai bien de le faire, je me suis déjà fait avoir 2-3 fois.

Feuille "Ajout"

Pas de soucis, j'avais juste soucis du risque élever de modification non désirer.

Enregistement archive:

C'est juste je n'avais pas vu ca comme cela, rien ne m'empèche de le déplacer le fichier par la suite.

re,

tu me mets le doute !

Par contre les textes dans le cataloques ne vienne pas toujours a gauche.

Dans la colonne "C" le texte doit être à droite

Dans les colonnes "B" et "D" le texte doit être à gauche

on est d'accord ?

C'est bon pour les colonnes masquées dans ajout (sauf liste techniciens)

Claude.

Re,

Oui on est d'accord, oui c'est moi qui ai dit faux, mais le problème est quand même la.

Colonne B = gauche

Colonne C = droite

Colonne D = gauche.

A la fois ce n'est pas un gros problème en soit, c'est vite modifier manuellement.

Cool pour les cellules masquer

Bonne journée

Didier

re,

Version 13 sur ta messagerie

Claude.

Re,

Parfait, je sais pas si tu as modifier qqch pour l'emplacement des textes en colonne C mais en tout cas je n'ai pas vu de problème.

Super les lignes masquer dans ajout, ca fini le programme proprement.

Très bien la question avant l'ajout, c'est exactement ce que je voyais.

Je vais continuer de tester, masi pour le moment je n'ai rien vu de bizzard.

Question, chez toi lors de la sélection d'un article dans le catalogue, il te faut aussi un certain temps pour avoir la base trier?

C'est juste pour savoir?

Bonne

Didier

re,

C'est quasiment instantané, 2 secondes peut-être

et toi ?

Claude.

re,

Chez moi ca dépend du type de vis, mais ca varie entre 4-5 seconde à 20-30 secondes pour les plus longues, je n'ai pas encore essayer sur un autre PC, peut être que le miens ce fait vieux,...

Je vais essayer et te redirai.

Bonne

Didier

Bonsoir à tous,

Bon ! les modifs macros ont donc bien améliorer le temps de réponse.

il faut quand même les remuer les 5000 lignes ! , surtout avec les images

à vrai dire, je n'ai pas toucher au fichier depuis la version 14

c'est à toi de me dire, j'ai d'autres projets en cours.

PS: Tu as un poste Impression à mettre en résolu.

à+....Claude.

Hello,

OK ca marche, avec la modif des macro, ca fonctionne tip top,

actuellement avec la Versîon 14, je n'ai pas vu de problème, je te tiendrai au courant.

Encore une fois un pour tous le travail que tu as fait

Bonne journée

Didier

PS. Merci j'avais oublier ce poste.

Hello, a tous,

J'ai rencontrer 2 petit problèmes sur la version 2007 (je n'utilise que celui ci),

1) Onglet Catalogue, si je fais un double clic sur un article à commander, l'onglet base s'ouvre, mais l'image ne vient pas.

2) Les lignes jaunes apparaisse de manière aléatoires dans l'onglet Commande. y a t'il qqch a faire?

Je te laisse regarder et me redire.

Merci et bonne journée a tous

Bonjour forum,

Didier, qui t'a demander de faire un double clic ?

c'est une simple sélection avec clic gauche !

Pour la ligne jaune, je ne vois pas, çà le fait souvent ?

Claude.

Hello,

L'idée ne me serai pas venu, mais apparement ce n'est pas le cas de tout le monde, un de mes collèges ma dis que ca ne fonctionnais pas bien, Quel idée..

Oui les lignes jaunes ca vient régulièrement avec les 2 version 2007 et 2003, mais je n'ai pas encore trouvé d'indice a ce sujet, c'est vraiement bizzard, de plus si je purge les donnée, les lignes jaunes restes, ca c'est le plus embêtant.

Crois tu pouvoir trouvé la raison a ce problème?

Je te remercie d'avance.

Didier

re,

Dans la macro cherche module 1 : (pour les lignes jaunes)

Sub cherche() 'extrait les lignes contenant des valeurs à commander
Call Deprot
Dim Cel As Range, X
Dim Plg1 As Range
        Application.ScreenUpdating = False
        Application.EnableEvents = False
    Sheets("base").Activate
 If Range("Base!c7") < WorksheetFunction.CountA(Range("désignation")) Then
        Worksheets("Base").ShowAllData 'affiche tout (filtre)
 End If

ajoute ces 3 dernières lignes après Sheets("base").Activate

    If Range("Base!c7") < WorksheetFunction.CountA(Range("désignation")) Then
        Worksheets("Base").ShowAllData 'affiche tout (filtre)
    End If

çà alourdi un peu + , mais bon !

Claude.

Hello,

Cool, j'ai modifier le code comme demander, et parfait plus eu de problème de ligne jaune, et le temps d'execution n'a pas augmenter.

Je te remercie énormément.

J'ai une autre "petit" question cette super base de donnée ma forcément donnée plein d'idée,

J'ai une autre base de donnée identique a ce que l'on avait au début qui est presque identique à celle ci, avec env 1000 lignes et une colonne en moins. il s'agit d'accesoires (poignée, serrure, charnière etc...) Crois tu qu'il est possible de le faire? mais avec une adaptation?

Si oui je propose que l'on ouvre un autre fil.

Merci d'avance.

Amicalemement

Didier