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?