Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
2720 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  aide pour coordination entre 2 feuilles excel

 
 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

aide pour coordination entre 2 feuilles excel

n°1132875
k-nar
Laqué.
Posté le 27-06-2005 à 22:04:28  profilanswer
 

Salut à tous. Voilà je suis en stage et j'ai une partie à réaliser sous excel. Alors en fait j'ai 2 feuilles de classeurs et sur l'une il faudrait qu'en sélectionnant une ligne cela remplisse la seconde feuille. La seconde feuille serait remplie à plusieurs endroits avec chacune des cellules de la feuille 1. En gros il faudrait qu'en sélectionnant une ligne, cela effectue un copier coller de chaque cellule pour la mettre automatiquement à certains endroits. Je ne sais pas si j'ai été très clair, je suis un newb sous excel, si vous pouviez me donner des indications ça serait sympa.
Merci d'avance  :)  
 
PS: Si vous voulez des précisions demandez moi mais c'est pas évident à expliquer comme ça  :(

mood
Publicité
Posté le 27-06-2005 à 22:04:28  profilanswer
 

n°1133222
stagiaire6
tout est relatif
Posté le 28-06-2005 à 10:21:06  profilanswer
 

en faite tu veut que quand tu selection une ligne sur le cote ou y a plein de numero ca remplisse la deuxieme feuil?
 
C'est ca? ou j'ai mal comprit?

n°1134125
k-nar
Laqué.
Posté le 28-06-2005 à 20:22:37  profilanswer
 

stagiaire6 a écrit :

en faite tu veut que quand tu selection une ligne sur le cote ou y a plein de numero ca remplisse la deuxieme feuil?
 
C'est ca? ou j'ai mal comprit?


 
Salut oui c'est exactement ça. En fait il prend une ligne de la 1ère feuille pour répartir les cellules de la ligne sur la 2e feuille, mais j'ai pas d'idées sur les fonctions à utiliser  :(

n°1134559
alex@MS
Posté le 29-06-2005 à 12:02:34  profilanswer
 

La bonne nouvelle??? be je viens de finir il y a 1h une serie de fonctions qui font exactement ce que tu demandes!  
En gros j'ai 2 fichiers excel... l'un d'entre eux doit alimenter l'autre... les users doivent cliquer sur la ligne a updater, puis cliquer sur un bouton qui lance une macro et bim...la seule contrainte, c'est que les 2 fichiers aient au moins une colonne ID qui fasse le lien... Voilà le code:
 

Code :
  1. Dim appxl As Excel.Application
  2. Dim fichier As Window
  3. Dim feuille As Worksheet
  5. Dim id As String
  6. Dim param1 As String
  7. Dim param2 As String
  10. Sub connectExcel()
  12. Set appxl = CreateObject("Excel.application" )
  15. With appxl
  16.     .Workbooks.Open "file1.xls"
  17.     .Visible = False
  18. End With
  20. Set feuille = appxl.Sheets("Feuil1" )
  23. End Sub
  24. Sub disconnectExcel()
  25. appxl.Workbooks(Workbooks.Count).Save
  26. appxl.Workbooks(Workbooks.Count).Close
  28. End Sub
  32. Function retrieveData()
  33.     Selection.Rows.EntireRow.Select
  34.      
  35.     Rng = Selection.Rows.Count
  36.     If (Rng <> 1) Then
  37.         retrieveData = 0
  38.         MsgBox "Vous devez selectionner UNE et UNE SEULE ligne  "
  39.         Exit Function
  40.     Else
  41.         id = Selection.Columns(1)
  42.         param1 = Selection.Columns(4)
  43.         param2 = Selection.Columns(8)
  44.         retrieveData = id
  45.         Exit Function
  46.     End If
  47.    
  49. End Function
  52. Function chercherLigne(id)
  54.     i = 0
  55.     chercherLigne = 0
  56.     Dim cell As Range
  57.     For Each cell In feuille.Range("A1:A300" )
  58.        i = i + 1
  59.        If cell.Value <> "" Then
  60.             If Int(cell.Value) = Int(id) Then
  61.                chercherLigne = i
  62.                Exit Function
  63.             End If
  64.            
  65.        End If
  66.                
  67.     Next
  69. End Function
  70. Function BoutonUpdate_QuandClic()
  71.    connectExcel
  72.    result = retrieveData
  73.    If (result <> 0) Then
  74.         ligne = chercherLigne(result)
  75.         If (ligne <> 0) Then
  76.             feuille.Cells(ligne, "B" ) = param1
  77.             feuille.Cells(ligne, "D" ) = param2
  78.         Else
  79.             MsgBox "ID non trouvé dans le fichier destination"
  80.         End If
  81.    disconnectExcel
  82.  
  83.    End If
  84.  
  85. End Function


 
 
 
Si tu as des questions...n'hesite pas... (je sais je sais..je commente pas mon code! mea culpa

n°1134565
alex@MS
Posté le 29-06-2005 à 12:11:00  profilanswer
 

euuuuh dans la fonction disconnectExcel... ce serait pas con non plus d'ajouter un petit appxl.quit (si tu veux pas te retrouver avec 15 appli excel qui tournent en taches de fond)!!!

n°1135048
k-nar
Laqué.
Posté le 29-06-2005 à 18:05:37  profilanswer
 

Merci alex@MS  :jap: , je vais tester pour voir si j'arrive à le faire marcher, mais c'est du boulot quand même respect  :jap:  je serais bien incapable d'arriver à ce niveau.


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  aide pour coordination entre 2 feuilles excel

 

Sujets relatifs
Combien de feuilles de styles ?enregistrer document word par VBA sous excel [résolu]
Aide !Publier un classeur Excel sur l'Intranet
StatusBar - Visual Basic Excel[VBA] lien avec du PHP pour commander Excel
problèmes sous VBE Excelvb excel - liste deroulante
demande d'aide 
Plus de sujets relatifs à : aide pour coordination entre 2 feuilles excel

Forum MesDiscussions.Net, Version 2010.2
(c) 2000-2011 Doctissimo
Page générée en 0.068 secondes

Copyright © 1997-2025 Groupe LDLC (Signaler un contenu illicite / Données personnelles)