aide pour coordination entre 2 feuilles excel

aide pour coordination entre 2 feuilles excel - VB/VBA/VBS - Programmation

Marsh Posté le 27-06-2005 à 22:04:28    

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  :(

Reply

Marsh Posté le 27-06-2005 à 22:04:28   

Reply

Marsh Posté le 28-06-2005 à 10:21:06    

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?

Reply

Marsh Posté le 28-06-2005 à 20:22:37    

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  :(

Reply

Marsh Posté le 29-06-2005 à 12:02:34    

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

Reply

Marsh Posté le 29-06-2005 à 12:11:00    

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)!!!

Reply

Marsh Posté le 29-06-2005 à 18:05:37    

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.

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed