Extraire information base de données pour insérer dans signets word Fermé

Question

Bonjour,

J'enregistre quotidiennement des produits suivis de leurs N°LOT ainsi que d'autres informations (date, etc.). Informations enregistrées de façon linéaire les unes en dessous des autres. une ligne = 1 N°lot et ses données.
Ceci constitue donc ma base de données.

Maintenant, pour certain N°lot (=ligne) je suis amené à extraire les données, les insérer dans un format words pour en faire un document d'enregistrement.
je fais du C/C d'informations.
L'opération est répétitive, chronophage et source d'erreurs.

Je sais faire :
- extraire des données d'une base de données par recherche (formules cellules et Macro)
- insérer des données sous word via des signets à l'aide d'une macro.

Je ne sais pas faire (= mon pb) :
Vu que l'opération décrite n'affecte que des lots isolés, je me demande si le peux appeler des données avec le critère surligné...??? autrement dit, puis-je surligner la ligne intéressée puis cliquer sur un bouton pour exécuter une macro?
Est-ce que le "surlignage souris" est un critère de sélection?

J'avoue être perdu dans le cheminement.

Merci à tous ceux qui pourrons m'éclairer. 

Alex.

PHILOU10120 · Answer

Bonjour


Voici un bout de code pour copier une ligne dans une base

'sélectionne et copie une ligne de la colonne A à T
    Sheets("Base").Select
    Dim Ligne As Long
    Ligne = Range("A11")
    Sheets("Base").Range(Cells(Ligne, "A"), Cells(Ligne, "T")).Copy
Sheets("votre feuille").Select
    Application.Goto Reference:="votre cellule"
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

la cellule A11 contient la formule suivante

=SIERREUR(EQUIV($A$10;$A$1:$A$200;0);"")

pour trouver le numéro de la ligne à copier dans la base

Vous adaptez à vos besoins

Frenchie83 · Answer

Bonsoir à tous
Autre proposition, si j'ai bien compris.
Le surlignage souris n'est pas une sélection puisque il n'y a pas d'action, il faut donc en créer une, alors je vous propose ceci. 
-Dans une cellule contenant  des données (texte, nombre , mixte..) , sélectionnez la cellule,  surlignez le terme qui vous intéresse et mettez lui la couleur de police ROUGE, puis cliquez sur le bouton. La zone surlignée est isolée et vous pouvez vous en servir pour vos recherches.
Faites des essais avec du texte dans n'importe quelle cellule.
https://www.cjoint.com/c/EHpukL0Danw
Cdlt

al.09 · Answer

Bonjour et merci à vous pour vos réponses,

PHILOU10120, dis moi si je me trompe, mais le code proposé est pour une cellule "fixe" (Ligne "A11").
C'est une réflexion à première lecture, je vais tout de même prendre le temps de décrypter et de tester !

Frenchie83, je trouve ton élément de réponse très astucieux... Evident lorsqu'on le lis mais là est toute l'astuce ^^.
Maintenant, avec cette version, il faut que je trouve la formule pour extraire les données qui sont uniquement écrites en ROUGE.
Je vais passer par une autre feuille avant de lancer les données sous word via les signets.

Je résume : je sélectionne avec ma souris la ligne contenant les infos à extraire. je mets la police en rouge. soit par une formule soit par macro, ces données (en rouge) seront retranscrite dans une autre feuille reprenant uniquement les données voulu dans un petit tableau...
Et après je m'occupe du reste pour retranscrire sous Word.

Je reviens vers vous dès que j'ai avancé.

Encore merci à vous et à la communauté.
Cdlt.

Frenchie83 · Answer

Bonsoir
Sélectionnez la ligne de votre choix et cliquez sur le bouton
https://www.cjoint.com/c/EIcquZ1RP1w
Cdlt

Extraire information base de données pour insérer dans signets word

4 réponses

Discussions similaires