Problème sur Application.Union
Résolu
Kuartz
Messages postés
852
Date d'inscription
Statut
Membre
Dernière intervention
-
Kuartz Messages postés 852 Date d'inscription Statut Membre Dernière intervention -
Kuartz Messages postés 852 Date d'inscription Statut Membre Dernière intervention -
4 réponses
Bonjour Patrice33740,
Merci pour ta réponse.
Le problème étant que j'ai besoin de sélectionner les cellules en question pour insérer un graphique ensuite.
Si tu regarde comment j'ai construis le code, à la première vérification, je sélectionne des cellules, ensuite, sur les vérifications suivantes, j'ajoute des cellules à ma sélection actuelle.
Sinon, comment je pourrais faire pour travailler directement sur le classeur qui m'intéresse? Car là je passe par un classeur initial qui créé mon classeur sur lequel je travaille. D'où le problème de sélection.
J'ai bien essayé un xlBook.Activate. Et ensuite, au lieu de
J'écris :
Et là, plus d'erreur dans le code. Oui sauf que les sélections se font sur le classeur initial d'où a été lancée la macro. Et non sur classeur xlBook...
Merci pour ta réponse.
Le problème étant que j'ai besoin de sélectionner les cellules en question pour insérer un graphique ensuite.
Si tu regarde comment j'ai construis le code, à la première vérification, je sélectionne des cellules, ensuite, sur les vérifications suivantes, j'ajoute des cellules à ma sélection actuelle.
Sinon, comment je pourrais faire pour travailler directement sur le classeur qui m'intéresse? Car là je passe par un classeur initial qui créé mon classeur sur lequel je travaille. D'où le problème de sélection.
J'ai bien essayé un xlBook.Activate. Et ensuite, au lieu de
Application.Union(xlBook.Sheets(1).Range("A" & i), xlBook.Sheets(1).Range("K" & i)).Select
J'écris :
Application.Union(ActiveWorkbook.Sheets(1).Range("A" & i), ActiveWorkbook.Sheets(1).Range("K" & i)).Select
Et là, plus d'erreur dans le code. Oui sauf que les sélections se font sur le classeur initial d'où a été lancée la macro. Et non sur classeur xlBook...
Microsoft dit :
Visual Basic a défini une référence à Excel en raison d'une ligne de code qui appelle un objet, une méthode ou une propriété Excel sans qualifier cet élément avec une variable objet Excel. Visual Basic ne libère pas cette référence tant que vous ne quittez pas le programme. Cette référence dévoyée interfère avec un code Automation si le code est exécuté plusieurs fois.
Visual Basic a défini une référence à Excel en raison d'une ligne de code qui appelle un objet, une méthode ou une propriété Excel sans qualifier cet élément avec une variable objet Excel. Visual Basic ne libère pas cette référence tant que vous ne quittez pas le programme. Cette référence dévoyée interfère avec un code Automation si le code est exécuté plusieurs fois.
Re,
En écrivant quelque chose comme :
En écrivant quelque chose comme :
Dim r as Range
With xlBook.Worksheets(1)
compteur = 0
Set r = Nothing
For i = 2 To DL_REPARTITION
If .Range("A" & i).Font.Bold = True And _
.Range("A" & i).Value <> "Total Général" Then
Set r = Application.Union(r, .Sheets(1).Range("A" & i), _
.Sheets(1).Range("K" & i))
End If
Next i
End With
C'est normal, il faut sélectionner r si c'est indispensable (ce qui est rarement le cas !), essaies :
Dim r As Range
With xlBook.Worksheets(1)
compteur = 0
Set r = Nothing
For i = 2 To DL_REPARTITION
If .Range("A" & i).Font.Bold = True And _
.Range("A" & i).Value <> "Total Général" Then
Set r = Application.Union(r, .Range("A" & i), _
.Range("K" & i))
End If
Next i
r.Select 'pour selectionner r si c'est nécessaire !!!
End With
Re,
Voici le fichier https://www.cjoint.com/c/FKcoaog7yTf
Il ne faut pas oublier de changer le chemin d'enregistrement du fichier généré.
Merci encore pour ton aide.
En attendant, je vais faire un tableau provisoire pour générer mon graphique sans utiliser la fonction Union.
Voici le fichier https://www.cjoint.com/c/FKcoaog7yTf
Il ne faut pas oublier de changer le chemin d'enregistrement du fichier généré.
Merci encore pour ton aide.
En attendant, je vais faire un tableau provisoire pour générer mon graphique sans utiliser la fonction Union.
Effectivement ça fonctionne très bien !
Merci pour ton aide. Et merci de m'avoir appris pas mal de choses grâce aux changements sur mon code, notamment le fait de créer un objet pour la feuille de mon classeur initial, ce qui évite de répéter 15 fois la même chose.
Merci encore.
Cordialement.