commande de liaison d une feuille macro vers une feuille standard

[excelnoober]

bonjour je cherche a incorporer le resultat d une course gerée en macro sur une autre feuille qui elle traitera chaque résultat en fonction de differents critères. quelqun peut il maider?

l idee est d ouvrir le fichier macro modele cross ensuite de copier le resultat de la course dans la feuille arrivées du classeur cross giono sans faire copier coller biensur... pour gagner du temps

 

[Lian]

Re : commande de liaison d une feuille macro vers une feuille standard

Bonjour,

Essaie ça :

sub test()
Dim a As Range, ligne As Range
Dim b As Range
With ThisWorkbook.Sheets("ArrivéeF ")
Set ligne = .Range("A5")
Set a = .Range("A5:E5")
End With
Set b = Workbooks("cross giono version complète.xlsx").Sheets("Arrivées").Range("B3:G3")
While ligne.Value <> ""
b.Value = a.Value
Set b = b.Offset(1, 0)
Set a = a.Offset(1, 0)
Set ligne = ligne.Offset(1, 0)
Wend

End Sub

Tu peux répéter ce code pour la feuille "ArrivéeG".

Lian

 

[excelnoober]

Re : commande de liaison d une feuille macro vers une feuille standard

merci pour ctte reonse mais je ne sais pas trop ou je dois mettre cete comande, dois je creer une nouvelle macro ou alors la greffer sur une existente???

 

[Lian]

Re : commande de liaison d une feuille macro vers une feuille standard

Hello,

tu peux créer une nouvelle macro dans modelcross...
- puis copier/coller ce code
- puis lancer le macro test via Atl + F8

sub test()
Dim a As Range, ligne As Range
Dim b As Range
With ThisWorkbook.Sheets("ArrivéeF ")
Set ligne = .Range("A5")
Set a = .Range("A5:E5")
End With
Set b = Workbooks("cross giono version complète.xlsx").Sheets("Arrivées").Range("B3:G3")
While ligne.Value <> ""
b.Value = a.Value
Set b = b.Offset(1, 0)
Set a = a.Offset(1, 0)
Set ligne = ligne.Offset(1, 0)
Wend

With ThisWorkbook.Sheets("ArrivéeG")
Set ligne = .Range("A5")
Set a = .Range("A5:E5")
End With

While ligne.Value <> ""
b.Value = a.Value
Set b = b.Offset(1, 0)
Set a = a.Offset(1, 0)
Set ligne = ligne.Offset(1, 0)
Wend

End Sub

Lian