Changer de classeur en VB dans Excel

Question

Bonjour, j'ai besoin de me d&#233;placer dans deux classeurs pour r&#233;aliser des op&#233;rations.
J'ai d&#233;clar&#233; ces deux classeurss par : 

Private WitEvents Class_Export as Excel.Workbook
Private WitEvents Class_Bord as Excel.Workbook

Ensuite quand je veux rendre actif l'un ou l'autre des deux classeurs pour les balayer, j'utilise:

Set Class_bord = ActiveWorkBook

Je lance ma boucle pour balayer une colonne dans le premier fichier, puis je lance une deuxi&#233;me boucle &#224; l'int&#233;rieur de la premiere boucle pour balayer le deuxi&#232;me fichier afind e tester des correspondances et faire un comptage du nombre de correspondances.
Or je n'arrive pas &#224; rendre actif le classeur que je souhaite, le premier ouvert reste toujours actif. Comment faire??
Et si quelqu'un &#224; d'autres id&#233;es c'est le bienvenue car cette m&#233;thode est assez lourde pour l'ordinateur en temps d'&#233;x&#233;cution.
Merci d'avance

Pierre

cs_69chris · Answer

Bonjour Pierre,



Pourquoi rendre le classeur actif? Je ne pense pas que ce soit n&#233;cessaire.

Les deux variables Class_Export et Class_Bord permettent d'acc&#233;der
directement aux cellules qui les composents comme on le fait avec
ActiveWorkbook.



D'autre part, l'affectation :

Set Class_Bord = ActiveWorkbook me parrait invers&#233;.

Pour rendre actif Class_Bord, j'utiliserais :



Class_Bord.Activate()

drouault · Answer

Merci d'avoir jeter un oeil 69chris. Je ne vois pas comment me passer de l'activation car je vois pas o&#249; lui pr&#233;ciser que je change de classeur dans la boucle. Je t'ai mis mon bout de code si t'as un peu de temps pour regarder.
Et j'ai essay&#233; de passer par une formule sur la fin mais &#231;a ne marche pas mieux.

Dsl suis d&#233;butant en VB avec Excel.
Merci d'avance 

18/07/2005 Code par balayage des cellules



Dim i As Long
Dim j As Long
Dim Code_art_bord As String
Dim Code_art_export As String
Dim compteur As Long
compteur = 0
'On rend le classeur et feuille actif sur lequel on souhaite balayer les enregistrements (fichier bordereau)
Set Class_bord = ActiveWorkbook
'Set Detail_art = ActiveWorkSheet
'On boucle dans cette plage pour balayer les codes articles
For i = 7 To 15
    Code_art_bord = Cells(i, 6)

       Set Class_Export = ActiveWorkbook
       For j = 6 To 15
           Code_art_export = Cells(j, 6)
       Next j
    
    Set Class_bord = ActiveWorkbook
    
    If Code_art_bord = Code_art_export Then
       compteur = compteur + 1
    End If
    MsgBox (compteur)
    
Next i


18/07/2005
Code avec l'utilisation d'une formule


Dim Col_calc_bord As Range
Set Col_calc_bord = Range(Cells(7, 11), Cells(250, 11))


Col_calc_bord.FormulaLocal = "=SUMIF([EXPORT.XLS]RAPPORT!R6C6:R15C6,RC[-10],[EXPORT.XLS]RAPPORT!R6C4:R15C4)"
Col_calc_bord.Calculate

cs_69chris · Answer

Pour moi, &#231;a doit donner quelque chose comme &#231;a. (j'ai modifier l'emplacement de comptage).

J'ai pas trop le temps de tester...

L'idd&#233;e , c'est d'utiliser l'acc&#232;s aux cellule depuis le classeur
"wrkbook.Cells()". Comme &#231;a, pas besoin d'activer. au passage, Set
Class_Export = ActiveWorkbook d&#233;finit Class_Export au classeur
actif.... Pas trop ce que tu veux non? La m&#233;thode Activate est plus
adapt&#233;. N'&#233;site pas &#224; consulter l'aide m&#234;me si elle est pas sur sympa,
&#231;a donne d&#233;j&#224; une id&#233;e des m&#233;thodes/propri&#233;t&#233;s utilisables.



Workbooks(1) et (2) permet d'affecter le bon classeur &#224; la bonne variable. A moins que &#231;a soit d&#233;j&#224; fait.



Pour "voire" un peu mieux, utilise le d&#233;buggeur. Point d'arret en
cliquant sur le c&#244;t&#233; gauche de l'&#233;diteur et ensuite clicque droit sur
une variable et "ajouter un espion". La valeur s'affiche dans un
bandeau en dessous.







Dim iCptBord As Long

Dim iCptArt As Long

Dim Code_art_bord As String

Dim Code_art_export As String

Dim compteur As Long

Set Class_Export = Workbooks(1)

Set Class_bord = Workbooks(2)



compteur = 0

'On boucle dans cette plage pour balayer les codes articles

For iCptBord= 7 To 15

    Code_art_bord = Class_bord.Cells(iCptBord, 6)



       For iCptArt = 6 To 15

           Code_art_export = Class_Export.Cells(iCptArt, 6)



           If Code_art_bord = Code_art_export Then

              compteur = compteur + 1

          End If



       Next iCptArt

    

    MsgBox (compteur)

    

Next iCptBord

Changer de classeur en VB dans Excel

3 réponses

Discussions similaires