rechercher puis récupérer données VBA Fermé

Question

Bonjour, 
Je possede deux fichiers excel.
Le premier est constitué d'une seule feuille. En colonne se trouve des Noms (durand, Michou etc...) et en ligne des semaines. S01, S02, S03 etc. En données j'ai des heures.
Un simple tableau a 2 entrées. qui se lit comme ceci :ex: Michou à travaillé 2 heures en S01.


Mon deuxieme fichier, lui fonctionne par feuilles (Feuill1 = S01 etc)
Dans ma feuille 1, donc la feuille de la semaine "S01", je retrouve mes noms en colonne, mais sans les heures réalisées.

Je souhaiterais réaliser une macro dans mon 2eme fichier.

Celle ci me demanderait quelle semaine importer. ( textbox dans lequel je rentre S#)
La elle va m'ouvrir mon fichier 1, va me faire la recherche de la colonne S06, puis va mettre les bonnes heures de michou dans le fichier 2.

Je vous remercie d'avance. Car je suis loin d'être un king sous VB.

Yan

michel_m · Answer

Bonjour 

essaies cette macro 

Sub semainier() 
Dim sem As String 
Dim dercol As Byte, lig As Byte 
Dim durees As Range 

sem = InputBox("numéro semaine ") 
On Error GoTo erreur 

Application.ScreenUpdating 
ThisWorkbook.Sheets(sem).Activate 
On Error Resume Next 

 Workbooks.Open Filename:="D:\documents\Classeur1.xls" 
 On Error GoTo 0 
 dercol = Range("IV1").End(xlToLeft).Column 
 lig = Columns(1).Find(sem, Range("A1"), xlValues).Row 
 Set durees = Range(Cells(lig, 2), Cells(lig, dercol)) 
  
 With ThisWorkbook.Sheets(sem) 
    With .Range(.Cells(2, 1), .Cells(2, dercol - 1)) 
        .Value = durees.Value 
        .NumberFormat = "[hh]:mm:ss" 
    End With 
.Activate 
End With 
Exit Sub 

erreur: 
MsgBox "saisie incorrecte", vbCritical 

End Sub 


tit démo 
https://www.cjoint.com/?3comIajdKUg 
 Michel

michel_m · Answer

Re,

J'avais confondu les colonnes et les lignes (excuse facile: c'est lundi)

https://www.cjoint.com/?3cotjrpOeKA

tu as maintenant plein de Michou au lieu de plein de zaza: fais attention, les Michel, ça a mauvais caractère !!!

michel_m · Answer

Bonjour,

Tu m'étonnes que cela ne marchait pas chez toi !!!! Ta demande n'avait peu à voir avec la réalité de tes fichiers. tu verras que la macro est donc "légérement" plus complexe  qu'au départ !!! :-)

La prochaine fois que tu demandes de l'aide, il est indispensable que tu sois précise dans ta demande et quand cela est compliqué comme aujourd'hui, joins tes fichiers dès le 1° post
Il serait bon aussi que tu t'inscrives sur CCM

ci joint la bestiole (délai PJ: 4 jours)
https://www.cjoint.com/?3cro5cwztOw

Rechercher puis récupérer données VBA

3 réponses

Discussions similaires