automatisation de taches Résolu

Question

bonjour,

je suis actuellement en stage de 1ere année et il m'est demandé d'automatiser une tache sous excel, cette tache consiste a entrer plusieurs valeur , très souvent identiques dans plusieurs cellules et colonnes, ils disent qu'ils aimeraient qu'un copier collé puisse completer les colonnes et cellules de manière automatique.
a vrai dire j'ai aucune idée de comment m'y prendre.

merci par avance.

Bruce Willix · Answer

Tu fais une macro avec l'enregistreur de macros. Tu as vu ça dans ton cours d'excel, non ?

fresid · Answer

oui, je sais faire une macro, mais je vois pas cmt l'appliquer sur ce qu'il m'est demandé.

fresid · Answer

surtout étant donné que c'est pas des données identiques, et c'est pas un calcul non plus, c'est du texte

pijaku · Answer

Bonjour,

Votre demande manque cruellement de précision........
 
  cette tache consiste a entrer plusieurs valeur 
Comment? Saisie? Importation d'un autre classeur Excel? D'un autre logiciel? d'une base de données? d'un copié-collé? Combien de valeurs?
dans plusieurs cellules et colonnes
Combien? Lesquelles?
copier collé puisse completer les colonnes et cellules de manière automatique. 
C'est le principe du copié-collé...

Sinon, automatiser un copié-collé c'est facile, lorsque la demande est précise...

fresid · Answer

les données a rentrer c'est du texte, dans environ 160 celulles et 17 colonnes, et donc elles ne diffèrent pas beaucoup, c'est du genre VRAI, FAUX, DIFFERENT. et ce pour des tableaux, voire des fichiers differents, je crois ca peut etre assimiler a de l'importation de données, puisqu'il faut qu'il soit capable d'importer ces données d'un fichier avec un autre d'une part et d'autres part qu'il soit possible d'y stocker les données de manière automatique.

 merci d'avance.

fresid · Answer

importer d'un fichier vers un autre

fresid · Answer

en fait il s'agit d'un tableau qui dois servir de modèle pour les autres.
et dans ce tableau principal il est entré manuellement des modèles de fonctionnements, du genre autorisation d'accès pour les uns et refus pour les autres d'une part, et d'autres part des test de controle du genre la valeur qui doit etre entré dans les celulles qui resteront vides pour proposer le modèles aux autres filiales doit etre inferieur a la celule principale. par expl pour une cellule qui contient la valeur permis, la valeur de l'autre doit etre inferieur a permis, c'est à dire commencé par une lettre inferieure a p. il s'agit maintenant de pouvoir remplir les colonnes(10) correspondant aux filiales avec les exemples de valeur que la societe mere preconise, du genre permis ou refusé etc. et de pouvoir l'importer vers d'autres fichier par la suite. comment d'un fichier à un autre, remplir ces colonnes sans avoir a le faire manuellement?

fresid · Answer

il s'agit d'exportation vers des cellules, par exemple g5:g160 ainsi de suite jusqu'à la lettre p, p5:p160

pijaku · Answer

Un exemple

Après j'abandonne...

fresid · Answer

merci, mais c'est pas cela, je vais voir comment vraiment détailler le problème et je vous l'expliquerai plus en details.

fresid · Answer

en espérant que vous soyez toujours là, j'aimerai bien commencer par savoir comment faire du copier coller des celulles d'un fichier xls vers un autre fichier à partir d'une macro. pouvez vous me l'expliquer svp, je suis vraiment débutante et j'avoue que parfoiq j'ai du mal à vraiment expliquer les choses comme il faudrait.

fresid · Answer

je suis vraiment neophyte, j'avoue que je sais pas vraiment ce que tu me demandes de faire. pourrais-tu s'il te plait me donner plus de details?
merci

fresid · Answer

d'accord, merci

sidyy · Answer

bonjour,

me revoilà pijaku, je veux bien t'envoyer un expl du fichier, et comme ça c sur que tu vera mieux de quoi je parle, jai parcouru les cours que tu m'a envoyé, je crois que j'y arriverai, mais je préfère te montrer a quoi ressemble les fichiers, pour qu'on soit sur de ce qu'il en retourne.

merci

sidyy · Answer

https://www.cjoint.com/?3GwldSs2DGZ
https://www.cjoint.com/?3GwlhF1Bq4h
voila une partie des 2 fichiers, je peux pas publier le fichier entier pour des raison de sécutrité.  
en fait ce que je voudrais pouvoir faire est :
pour les cellules vides que tu vois, pouvoir les remplir de manière automatique avec le contenu correspondant au meme emplacement sur le fichier que j'ai nommé source et qui correspond au 2eme lien.
je dois pouvoir faire en sorte que meme si c'est un tout nouveau fichier qui est créé,qe ces colonnes puissent etre remplies de manière automatiques, mais cela tout en assurant l'évolutivité de la feuille, si jamais le nombre de colonnes augmente ou si la position des colonnes à remplir devrait changer, etc. 
j'espère avoir été un peu plus précise.
merci.

sidyy · Answer

bonjour, 
là j'ai repris le problème et il a été reformulé.
il s'agit en fait de faire une macro qui serait capable d'aller chercher du texte dans un autre tableur et de le stocker dans une cellule precise.
un exemples
je suis sur classeur1 je veux qu'il aille parcourir classeur2, qu'il retrouve par exemple le mot "education", et qu'il prenne le contenu de la cellule qui est en dessous de celle qui contient le mot education  et qu'il revienne le stocker dans la cellule f5 de classeur1 par exemple et reitère pour toutes les autres cellules.


https://www.cjoint.com/?3Gxp2WCCkrj
https://www.cjoint.com/?3Gxp3tTX5mo

avec ces fichiers il s'agirait par expl de prendre le 1er lien comme classeur 2 et le 2nd comme classeur 1. la macro devrait retrouver par exemple "abortion" dans classeur2, prendre l'action qui est "permit" et qui correspond a la cellule en bas, et aller stocker dans classeur 2 dans la 1ere colonne vide comme sur le fichier...

merci d'avance.

sidyy · Answer

T'es toujours là pijaku?

sidyy · Answer

bonjour,

https://www.cjoint.com/?3GyncAJwifd
https://www.cjoint.com/?3GyniBwz8vq


voilà des fichiers qui pourraient servir pour les tests,
notons que les cellules vides sont celles qui devraient etre remplies par les données de l'autre...dit moi s'il faut autre chose.

merci

sidyy · Answer

d'accord, merci

sidyy · Answer

non 
- chercher dans les colonnes A et B du fichier cible, le contenu des catégories, mais seulement les 2 premières ligne, de la colonne B du fichier source.
- dans la colone F du fichier cible.
mais toutefois, les il doit y avoir une correspondance entre les entités, si c'est par expl "permit" pour abortion dans le fichier source, il doit aller mettre le resultat dans la cellule correspondant a "abortion" dans le fichier cible.

sidyy · Answer

en selectionnant la cellule F5 par exemple, il devrait etre demandé ce qui veut etre importé dans cette cellule et proposer l'emplacement pour aller chercher...c'est une façon que j'ai eu de comprendre, après je peux me tromper...

sidyy · Answer

- chercher dans les colonnes A et B du fichier cible, le contenu des catégories, mais seulement les 2 premières ligne, de la colonne B du fichier source. 
- dans la colone F du fichier cible. 
mais toutefois, les il doit y avoir une correspondance entre les entités, si c'est par expl "permit" pour abortion dans le fichier source, il doit aller mettre le resultat dans la cellule correspondant a "abortion" dans le fichier cible.

voilà, c'est cela ce que je dois faire.
tks

sidyy · Answer

oui mais sauf que "permit" sera la valeur trouvée en b5 plutot.

sidyy · Answer

ok ça marche, mais disons que je vais en prendre deux!

sidyy · Answer

bon bah d'accord...

pijaku · Answer

Alors, voici ma proposition.
Tout d'abord, les classeurs exemples :
Fichier SOURCE
Fichier CIBLE qui est le tien intégralement inchangé....

!!!! Il faudra adapter le nom de la feuille contenant les données du fichier_source, directement dans le code de la macro. C'est indiqué en toutes lettres...!!!!!

Ensuite, l'explication :
La procédure va te faire participer...
Tu va devoir :
1- depuis la feuille contenant les données du fichier source, taper ALT+F8, choisir  ExporterActionsParCategories, puis cliquer sur Exécuter.
2- à l'apparition du message "Choix du fichier cible" : CLIQUER SUR OUI!,
3- dans la boite de dialogue suivante, CHERCHER LE FICHIER CIBLE puis CLIQUER SUR OUVRIR,
4- à l'apparition du message "Sélectionner une seule cellule de la colonne ou vous voulez transférer les données", CLIC SUR UNE CELLULE DE LA COLONNE F (UNE SEULE!!!), par exemple F5 du fichier cible. Va alors s'afficher : $F$5,
5- à l'apparition du message "Sélectionner la plage contenant les catégories", SÉLECTIONNE à la souris, la plage A5:B93 du fichier cible
6- puis laisser couler jusqu'au dernier message : "Exportation terminée en XX secondes."

Et le code à placer dans un module standard du classeur source :
Sub ExporterActionsParCategories()
Dim fichier, t
Dim Wbk_Source As Workbook, Wbk_Cible As Workbook
Dim Wsh_Source As Worksheet
Dim Tbl_In(), Tbl_Temp()
Dim Plage As Range, Cel As Range
Dim i As Long, drlig As Long, fin As Long, cpt As Long, Pos As Long
Dim Colonne As String, maVar As String

t = Timer
'********** COLLECTE DES INFOS "Category" & "Action" *************
Set Wbk_Source = ThisWorkbook

'************************************************************************ A ADAPTER
'remplacer Feuil1 par le nom de la feuille contenant les category, actions etc.
Set Wsh_Source = Wbk_Source.Worksheets("Feuil1")
'**********************************************************************************FIN ADAPTATION
With Wsh_Source
    drlig = .Columns(2).Find("*", , , , xlByColumns, xlPrevious).Row
    fin = (drlig - 4) / 6
    cpt = 0
    ReDim Tbl_In(1 To 2, 1 To fin)
    For i = 4 To drlig Step 6
        cpt = cpt + 1
        Tbl_In(1, cpt) = .Range("B" & i).Value
        Tbl_In(2, cpt) = .Range("B" & i + 1).Value
    Next i
End With
'************ FIN COLLECTE ****************************************

'************ OUVERTURE FICHIER CIBLE *****************************
MsgBox "Choix du fichier cible"
fichier = Application.GetOpenFilename
If VarType(fichier) = vbBoolean Then
    MsgBox "Abandon opérateur", vbCritical, "Annulation"
    Exit Sub
End If
Set Wbk_Cible = Workbooks.Open(fichier)
'************* Le fichier cible est ouvert ************************

'********** Choix de la colonne ou transférer les données *********
Set Plage = Application.InputBox("Sélectionner une seule cellule de la colonne ou vous voulez transférer les données", "Column choice", Type:=8)
If Not Plage Is Nothing And Plage.Count = 1 Then
    Colonne = Split(Plage.Address(ColumnAbsolute:=False), "$")(0)
Else
    MsgBox "Abandon opérateur", vbCritical, "Annulation"
    Wbk_Cible.Close
    Exit Sub
End If
'**************** FIN CHOIX COLONNE *******************************

'**************** Restitution des données *************************
Set Plage = Application.InputBox("Sélectionner la plage contenant les catégories", "Category", Type:=8)
If Plage Is Nothing Then
    MsgBox "Abandon opérateur", vbCritical, "Annulation"
    Wbk_Cible.Close
    Exit Sub
Else
    Application.ScreenUpdating = False
    For Each Cel In Plage
        For i = LBound(Tbl_In, 2) To UBound(Tbl_In, 2)
            If Cel.Value Like "*" & "|---" & Tbl_In(1, i) & "*" Then Cells(Cel.Row, Colonne) = Tbl_In(2, i): Exit For
        Next i
    Next Cel
    Application.ScreenUpdating = True
End If
'****************** FIN RESTITUTION ********************************
MsgBox "Exportation terminée en " & Timer - t & " secondes."
End Sub
 
 
Cordialement,
Franck P

sidyy · Answer

ok, je vais appliquer  tout ça et puis je tiens informé...

tks

sidyy · Answer

la combinaison de touches alt+f8 m'ouvre l'enregistrement de macro...j'utilise excel 2007. j'ai essayé d'autre combinaisons mais aucune ne m'affiche ce qui est précisé...

tks

sidyy · Answer

c bon, je suis distrait..
tkss

sidyy · Answer

j'avais pas compris que cela devais etre fait avc les fichiers que t'as joint

sidyy · Answer

oui, le test fonctionne, je vais prendre le temps de tout adapter et puis je te dit si tout marche comme il faut...

encore  merci

sidyy · Answer

bonjour,

merci pijaku, ca marche en effet, meme si maintenant que jai refais pour les autres jai des cases vides, je ne sais pas trop pourquoi encore. j'ai ete malade, c'est pourquoi j'ai pris du temps.

merci

sidyy · Answer

bonjour,

désolé de t'importuner à nouveau, mais il y a un petit détail qui m'échappe, 
pourquoi est ce que la sélection de la plage contenant les catégories s'effectue à partir du fichier cible et non du fichier source?

merci

sidyy · Answer

d'accord, et dans le cas ou je voudrais inversé le processur, c'est à dire sélectionner les cellules avant , je veux dire que la première action soit de sélectionner la plage contenant les categories et le reste après...?

vivement merci pour tn aide

sidyy · Answer

Désolé,
c'est pas de ma faute, j'ai bien appliqué la solution de départ et elle marche bien, mais ils trouvent que ce serait plus facile si ça deroulais plutot comme je te l'ai dit, ils préfèrent que je le fasse comme cela.  c'est pourquoi je suis retourné vers toi.
mais si t'en a marre désolé, merci pour l'aide que tu m'a apporté jusqu'ici

merci

sidyy · Answer

ok. et encore merci.

sidyy · Answer

bonjour,

quelqu'un d'autre pourrait-il m'aider svp?


merci

sidyy · Answer

bonjour,

encore moi, j'èspère que t pas trop contrarié pijaku, mais je reviens vers toi pour un souci avec le code.

en fait a chaque fois qu'il retrouve des mots identiques dans le fichier il ne renvoi pas la valeur excate(l'action qui y correspond).par exemple pour "entertainment" et "entertainment video" ou encore "educational material" et "educational video". j'ai comme l'impression qu'il retourne l'action qui correspond au premier mot...
en espérant que tu veuille bien encore te pencher sur mon cas...
cdlt,

sidyy · Answer

d'accord, je vais supprimer les espaces et symboles quelconques avant et apres et je remplacerai la partie du code correspondante par celui-ci.

merci.

bien cdlt,

sidyy · Answer

le problème est résolu. merci pour ta patience et ton aide, merci.

bien cdlt,

Automatisation de taches

40 réponses

Votre réponse

Discussions similaires

Newsletters