Discussion :

[tamtam64]

Bonjour, apres avoir cherché un peu sur internet, il semblerait que faire des activate ne soit pas bon pour la rapidite du code. Donc je vais m'efforcer de les reduire. Si j'ai bien compris, si on doit modifier le contenu d'une feuille , on est obigé de l'activer, par contre pour prendre des informations dedan , on est pas obligé. Est ce bien ca?

Par exemple je veux recupérer des infos sur xlsheet1 , je ne vais pas l'activer , mais si je veux mettre ces valeurs dans une xlsheet2 , je dois l'activer.
pouvez vous me donner plus de precisions , car je suis interessé pour reduire mon nombre important d'activate et select dans mon code . Je code beaucoup pour mon stage (tous les jours depuis 3 semaines), et c'est quelque chose que je voudrais ameliorer, car dans le doute j'active ou je selectionne tres souvent ... ce qui n'est pas une bonne chose je pense.

Merci

[joe.levrai]

Bonjour,

pour écrire une valeur dans une feuille, pas besoin de l'activer non plus!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets("Feuil2").Range("A1").Value = Sheets("Feuil1").Range("A1").Value

Ecrit la valeur de A1 de feuil1 dans A1 de feuil2

[tamtam64]

Effectivement , on en reviens a la question : "en gros dans quels cas est on obligé de l'activer...? "
Je regarde un peu des codes et c'est vrai que j'arrive a deceler le niveau de la personne sur ca facilité a eviter d'utiliser des activate a tous va.. , je sais que l'on peut les eviter. Je sais qu'il m'est arrivé de devoir activer une feuille pour en recuperer des données sinon il restait dans l'autre feuille. Avez vous des régles à me donner ? histoire de structurer mes idées.

[tamtam64]

Apres plusieurs recherches , j'ai trouvé ma solution, je vais la comuniquée pour les gens que ca interresse.

avec un exemple:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
application.workbook.open(strLien)
set xlsheet = activeworkbook.worksheet(Nomfeuille)
set MyXlsheet = thisworkbook.worksheet("DB")
set MyRange = xlsheet.columns(1).find("Global Asia")
tab = MyRange.value
MyXlsheet.range(A1") = tab

Voila on a pas d'activate et avec un timer j'arrive a ce que je voulais c'est a dire ne plus utiliser d'activate , ou du moins tres souvent

Voila je pense que ca pourra aider pas mal de personnes car peu d'infos sont sur ca .

[joe.levrai]

Simplification de niveau1 (y'en a encore si on veut)
+
Gestion de l'erreur que tu te prends à la figure si tu n'as pas de résultat

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Dim Wb As Workbook
 
Set Wb = Application.Workbook.Open(strLien)
Set MyRange = Wb.Worksheets(nomfeuille).Columns(1).Find("Global Asia")
 
If Not MyRange Is Nothing Then
    ThisWorkbook.Worksheet("DB").Range("A1") = MyRange.Value
End If

[tamtam64]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Dim Wb As Workbook
 
Set Wb = Application.Workbook.Open(strLien)
Set MyRange = Wb.Worksheets(nomfeuille).Columns(1).Find("Global Asia")
 
If Not MyRange Is Nothing Then
    ThisWorkbook.Worksheet("DB").Range("A1") = MyRange.Value
End If

Donc on peut en nomant simplement mes objets, eviter de faire des activate ou meme des select, c'est bien ca l'idée?

[joe.levrai]

Oui c'est ça

c'est le principe de VBA, les objets sont dans des collections, sur un système de poupées russes :

- collection Workbooks pour les classeurs
- collection Worksheets pour les feuilles de calculs (cette collection est d'ailleurs une sous collection des Sheets, cette collection étant l'union des feuilles de calculs et des feuilles graphiques)
- collection Cells pour les cellules

dès lors que tu ne stipule pas à VBA l'arborescence complète de l'objet (= toutes les collections parentes), il utilise l'objet actif des collections non précisées

c'est pour ça qu'en général quand on débute en VBA, on utilise à tort et à travers des Select et Activate, qui servent à rendre actif l'objet qu'on veut utiliser ....
alors qu'il est beaucoup plus propre, rapide, lisible, fiable ... de référencer la collection

ça provoque cependant une surcharge d'écriture dans le code, on va donc optimiser ça en :

- mettant l'objet dans une variable (on parle d'instancier un objet) : ainsi, on écrit une seule fois les objets des collections parentes et ensuite on utilise la variable

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim MaCellule as Range
Set MaCellule = Workbooks("MonClasseur").Worksheets("MaFeuille").Range("A1")
' MaCellule est complètement identifiée, et VBA ne la confondra jamais avec le A1 d'une autre feuille ou d'un autre classeur

- utilisant l'instruction With, qui permet de spécifier un objet, et d'utiliser ses propriétés ou méthodes sans avoir à toujours ré écrire l'objet

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
With MaCellule
    .Value = "toto"
    With .Font
        .Interior.ColorIndex = 2
        .Bold = True
    End With
End With

Un code bien pensé et bien structuré :

- sera rapide et efficace
- n'aura jamais de comportement imprévu
- devient souple et évolutif facilement
- est compréhensible pour toute personne ne l'ayant pas écrit

Au travail maintenant


Ps : au sujet de ton .Find, il faut toujours tester si le Range qu'elle retourne existe, sinon ton code va planter quand il n'y a pas de résultat.
étant donné qu'un Range est un objet, on regarde s'il n'est pas égal à Nothing
Sans ça, tu vas ensuite utiliser l'objet dans ton code...mais vu qu'il n'existe pas ... VBA est pas content

[tamtam64]

Je vais etre bref mais ton explication etait vraiment parfaite , tu m'as vraiment bien expliqué , et maintenant je suis sure et j'ai bien compris et pour le find , je ferais un test maintenant .

Je te remercie bcp pour cette reponse qui est tout simplement parfaite et pourras surement aider de nombreux forumeurs.

merci

[joe.levrai]

Ah et j'ai oublié

pour ta question "quand utiliser un select ou un activate" ?

il faut savoir qu'activer et sélectionner, ça prend du temps et des ressources.

certains te dirons "on a jamais besoin...blablabla...c'est pour les débutants"

je nuancerais en disant "uniquement en dernier recours, quand la perte de temps et inférieure à la perte qu'on aurait en ne le faisant pas"

c'est vague n'est-ce pas ? c'est normal, car ces cas sont très rares

personnellement, je ne les utilise que dans deux cas :

- quand l'utilisateur veut qu'en fin de code (ou tout autre moment), une cellule ou autre objet soit sélectionné (c'est son droit)

- quand je crée des objet (Forme, graphique, bouton...), ils n'ont pas encore de nom
donc j'effectue un Select en même temps que je crée l'objet, ce qui m'évite de boucler sur la collection de ces objets pour le trouver (et parfois on peut même pas le trouver avec la boucle)

Va voir ce code, en ligne 58, tu vas comprendre : http://www.developpez.net/forums/d15...o/#post8256320

[SfJ5Rpw8]

Bonjour,

....
- quand je crée des objet (Forme, graphique, bouton...), ils n'ont pas encore de nom
donc j'effectue un Select en même temps que je crée l'objet, ce qui m'évite de boucler sur la collection de ces objets pour le trouver (et parfois on peut même pas le trouver avec la boucle)

Va voir ce code, en ligne 58, tu vas comprendre : http://www.developpez.net/forums/d15...o/#post8256320..

ce n'est pas un bon exemple le select est toujours inutile :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Dim sh As Worksheet
Dim shChar As Shape
Dim plage As Range
'(...)
Set sh = ThisWorkbook.Sheets(1)
Set plage = sh.Range("A1:B27")
'(...)
With sh
    Set oMonGraphe = .Shapes.AddChart(xlLine).Chart
'....
 
 
End With
 
'(...)
    With oMonGraphe
 
        .SetSourceData plage
        '(....)
    End With

[joe.levrai]

merci pour le recadrage

comme quoi on est jamais parfait .... surtout que ce que tu fais (instanciation sur création, ouverture etc...) .... je lui ai montré quelques messages plus avant !!

[AlainTech]

Bonjour,

J'ajouterais 2 informations utiles.

• L'utilisation des Select provoque de l'instabilité
  Lorsqu'un traitement est long, l'utilisateur risque de vouloir voir où il en est.
  Si, par malheur, il clique sur une cellule, tout le processus est perturbé.
• L'usage de With - End With n'est pas qu'une facilité d'écriture.
  En l'utilisant, on permet au compilateur de ne pas devoir recalculer l'objet à chaque appel.
  Gain de temps et de ressources
  A utiliser sans modération