Macro utilisant 2 classeurs

Question

Actuellement en stage et débutant en vba j'aurai besoin d'une grosse aide sur un problème qui me prend la tête depuis 2 jours, je sens que la réponse et simple mais je ne la trouve pas: -2classeurs -si A1 de classeur1 (mais doit aller jusque A250) = une des valeurs de la colonne F(donc il faudrait pouvoir parcourir toute cette colonne) de classeur 2 alors on copie la valeur AF de classeur 2 à la ligne correspondante de A mais en E de classeur1 (donc en E1 ici) Voila 2 jours que je cherche partout après échec de ma part à le réaliser moi même la principale difficulté étant la référence a un autre classeur et le parcours de tout une colonne pour trouver la valeur correspondant a une cellule d'un autre classeur. En vous remerciant de me faire profiter de votre savoir faire...

MFerrand · Answer

A partir du classeur qui contient ta macro, celle-ci doit ouvrir l'autre classeur lorsque tu la lances... Qu'est-ce qui te coince ? Ferrand...

MFerrand · Answer

Si tu appelles un élément non présent dans l'application, c'est souvent une erreur 9, elle concerne les dépassements d'indices mais s'applique à tous les index permettant d'individualiser un objet dans une collection, et donc aux noms quand ces dernier sont utilisés. Tu as cherché un nom de classeur non ouvert dans l'application...

Pour le reste, sans avoir regardé dans le détail, c'est un système de boucles qui devrait te permettre de résoudre la question. Décompose pas à pas la méthode pour réaliser manuellement, une fois circonscrit la première opération de la chaîne, tu la fais se répéter jusqu'à la fin. Sans classeur modèle, difficile de donner des indications concrètes.

A+

Ferrand

MFerrand · Answer

Re,

Ya de quoi épurer :

Sub Macro3()

Dim WsRS as Worksheet, i As Integer, j As integer 'mieux de déclarer ses variables

~~'NameWorkbook = ActiveWorkbook.Name~~

Workbooks.Open ~~Filename:=~~ThisWorkbook.Path & "\GF TM Aero format.xlsx" '~~, Local:=True~~

Set WsRS = ActiveWorkbook.Worksheets("RateSheet")

' tu n'as pas besoin du nom de ton ThisWorkbook, et une variable feuille pour la feuille

' classeur de recherche évitera de patauger dans des lignes à rallonge

'Windows(NameWorkbook).Activate

~~'Windows("GF TM Aero format.xlsx").Activate~~

~~'Worksheets("RateSheet").Select~~

' inutile, sauf si tu trouves que VBA va trop vite et qu'il faut le ralentir !!!

With ThisWorkbook.Worksheets("Pricingformat")

' ça évitera de le répéter, et VBA ne stocke l'info qu'une fois

For j = 6 To 250

For i = 5 To 994

'If Application.Workbooks("GF TM Aero format.xlsm").Worksheets("RateSheet").Range("F" & i).Value = Application.Workbooks'("AeroTM Origin destination charges format.xlsm").Worksheets("Pricingformat").Range("A" & j).Value Then

' Application.Workbooks("AeroTM Origin destination charges format.xlsm").Worksheets("Pricingformat").Range("E" & j).Value = 'Application.Workbooks("GF TM Aero format.xlsx").Worksheets("RateSheet").Range("AF" & i).Value

' j = j + 1

'End If

If WsRS.Cells(i, 6).Value = .Cells(j, 1).Value Then .Cells(j, 5).Value = WsRS.Cells(i, 32).Value

'c'est déjà plus léger !

Next i

Next j

End With

End Sub

Si je n'ai pas inversé les classeurs...

Bonne continuation

Ferrand

MFerrand · Answer

Je reviens pour restituer la partie utile. Tout à l'heure j'ai modifié directement dans le post, et cela m'a permis de vérifier (sauf erreur d'interprétation et confusion entre les classeurs et les cellules testées mais tu pourras vérifier et rectifier facilement).

Avec indentation (j'ai l'impression que ça se perd, pourtant qu'est-ce qu'on lit mieux le code quand c'est indenté !)

Sub Macro3()
    Dim WsRS As Worksheet, i As Integer, j As Integer
    Workbooks.Open ThisWorkbook.Path & "\GF TM Aero format.xlsx"
    Set WsRS = ActiveWorkbook.Worksheets("RateSheet")
    With ThisWorkbook.Worksheets("Pricingformat")
        For j = 6 To 250
            For i = 5 To 994
                If WsRS.Cells(i, 6).Value = .Cells(j, 1).Value Then _
                 .Cells(j, 5).Value = WsRS.Cells(i, 32).Value
            Next i
        Next j
    End With
End Sub

En déclaration tu peux aussi écrire i% et j% pour déclarer des variables de type Integer, cela peut être utile (surtout si tu as un nombre conséquent de variables à déclarer.

Lorsque tu ouvres un classeur il devient le classeur actif, tu peux donc le récupérer avec ActiveWorkbook.

NB: si le classeur est déjà ouvert tu auras un message... pour l'éviter tu peux inhiber avec

Application.DisplayAlerts = False et rétablir à True ensuite.

Les arguments nommés ont une utilité lorsqu'il y en a beaucoup et que tu n'en utilises que peu et vers la fin de la liste (ou pour tes besoins lorsqu'il y aurait ambiguïté d'interprétation à la lecture). Sinon cela allonge seulement les lignes de code pour le même résultat.

Lorsque tu utilises des boucles avec des indices numériques, Cells(ligne, colonne) est plus pratique d'utilisation.

Cordialement

Ferrand