Discussion :

[comme de bien entendu]

Bonjour,

Je travaille sur un classeur multifeuille,
et j'ai besoin d'aller chercher des informations d'une feuille à l'autre
lors d'un traitement.
A priori pour me positionner dans une autre feuille et prendre des informations je suis obligé d'utiliser Activate.

Code :

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

1
2
3
 
sheets(cetteFeuille).Activate
recupere = sheets(cetteFeuille).range("A1")

Hors je voulais utiliser la commande Activate pour lancer un traitement
à l'ouverture d'une feuille.
Je tombe de ce fait dans un probleme d'appel recursif.
Est il possible d'éviter cet eccueil et comment ?

D'avance merci de votre réponse.

[ouskel'n'or]

A priori pour me positionner dans une autre feuille et prendre des informations je suis obligé d'utiliser Activate.

Pas du tout !

Code :

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

recupere = sheets(cetteFeuille).range("A1")

[comme de bien entendu]

Je viens d'essayer avec la selection, et chez moi
le code suivant ne marche pas

Code :

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

1
2
3
 
With Workbooks("ReferentielSuivi")
.Sheets("ReferentielNom").Range("A:A").Select

celui là marche

Code :

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

1
2
3
4
 
With Workbooks("ReferentielSuivi")
.Sheets("ReferentielNom").Activate
.Sheets("ReferentielNom").Range("A:A").Select

y a t'il un probleme propre à la selection ?
Ca m'aiderait beaucoup de pouvoir disposer de la selection pour
parcourir ma feuille.

[Didier Gonard]

Bonjour,

Pour le select en lui-même vois ceci :
http://www.developpez.net/forums/sho...91#post3402991

Pour ce qui est d'une possible solution à ton pb, oui, on peut par exemple mettre en place une variable drapeau (Boolean qui ne prend que vrai ou faux en valeur), du coup quand tu agis via vba tu mets ta variable à Vrai et un filtre empêche le code de l'activate de se lancer, et tu penses à la remettre à faux ensuite...


exemple de variable drapeau ici :

http://www.developpez.net/forums/sho...d.php?t=573610

Pour être plus pertinent, plutôt que de jouer aux questions à tiroir, essayes de préciser comment sont tes données et ce que tu veux en faire ce qui amènera peut-être une solution complètement différente


cordialement,

Didier

[ouskel'n'or]

j'ai ça sous la main. Je ne l'avais pas mis car le select n'est pas utile
Tu as plusieurs façons de récupérer l'événement activate. Soit dans ThisWorkbook

Code :

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

1
2
3
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
 
End Sub

Soit dans la feuille de code de la feuille elle-même

Code :

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

1
2
3
Private Sub Worksheet_Activate()
 
End Sub

Si tu optes pour la seconde solution, déclare un boolean en Public et teste ça

Code :

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

1
2
3
4
5
6
7
Public Oui as boolean
Private Sub Worksheet_Activate()
    oui = not oui
    If oui then
        'ton code
    endif
End Sub

Ça, c'est dans l'hypothèse où ton code ne provoque l'événement activate que deux fois...

[JackOuYA]

....
y a t'il un probleme propre à la selection ?
Ca m'aiderait beaucoup de pouvoir disposer de la selection pour
parcourir ma feuille.

Bonsoir,

pour parcourir ta feuille pas besoin de sélection :

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
 
Sub JacKouYerie()
Dim c As Range
Dim MaPlage As Range
Dim MonCompteur As Integer
Set MaPlage = Workbooks("ReferentielSuivi").Sheets("ReferentielNom").Range("A:A")
 
 
For Each c In MaPlage
   ' ici tu parcours ta plage ... par exemple pour compter les A
   If c.Value = "A" Then MonCompteur = MonCompteur + 1
Next
 
 
MsgBox MonCompteur & " A dans ma plage : " & MaPlage.Address
 
End Sub

Jacques.

[comme de bien entendu]

Merci bien,

Je vais utiliser un objet Plage pour parcourir ma feuille plutôt que
la Selection.
Faut que je fasse encore des progrés pour connaitre le modele objet
d'Excel.
Merci à tous pour vos interventions.