aide pour coordination entre 2 feuilles excel

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : aide pour coordination entre 2 feuilles excel

k-nar

Laqué.

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

Publicité

stagiaire6

tout est relatif

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?

k-nar

Laqué.

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

alex@MS

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 :

Dim appxl As Excel.Application
Dim fichier As Window
Dim feuille As Worksheet
Dim id As String
Dim param1 As String
Dim param2 As String
Sub connectExcel()
Set appxl = CreateObject("Excel.application" )
With appxl
.Workbooks.Open "file1.xls"
.Visible = False
End With
Set feuille = appxl.Sheets("Feuil1" )
End Sub
Sub disconnectExcel()
appxl.Workbooks(Workbooks.Count).Save
appxl.Workbooks(Workbooks.Count).Close
End Sub
Function retrieveData()
Selection.Rows.EntireRow.Select
Rng = Selection.Rows.Count
If (Rng <> 1) Then
retrieveData = 0
MsgBox "Vous devez selectionner UNE et UNE SEULE ligne "
Exit Function
Else
id = Selection.Columns(1)
param1 = Selection.Columns(4)
param2 = Selection.Columns(8)
retrieveData = id
Exit Function
End If
End Function
Function chercherLigne(id)
i = 0
chercherLigne = 0
Dim cell As Range
For Each cell In feuille.Range("A1:A300" )
i = i + 1
If cell.Value <> "" Then
If Int(cell.Value) = Int(id) Then
chercherLigne = i
Exit Function
End If
End If
Next
End Function
Function BoutonUpdate_QuandClic()
connectExcel
result = retrieveData
If (result <> 0) Then
ligne = chercherLigne(result)
If (ligne <> 0) Then
feuille.Cells(ligne, "B" ) = param1
feuille.Cells(ligne, "D" ) = param2
Else
MsgBox "ID non trouvé dans le fichier destination"
End If
disconnectExcel
End If
End Function

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

alex@MS

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

k-nar

Laqué.

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.

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 Excel	vb excel - liste deroulante
demande d'aide
Plus de sujets relatifs à : aide pour coordination entre 2 feuilles excel

Page générée en 0.075 secondes