Travail sur une autre feuille

[Spock]

Bonjour toutes et tous,

Je dois travailler sur une selection d'une feuille sans l'activée.

Voici le code....

Pas de plantage, mais la selection n'est pas 'sélectionnée'

Private Sub Worksheet_Activate()
With Worksheets('Historique').Range('A2')
.CurrentRegion
End With


For Each c In Selection
' encore a définir

Next c

End Sub

Curieux, une idée ? Merci,

 

[JPM]

Bonjour,

Essayes ceci :

Dim p As Range
Dim c As Range
Set p = Sheets('Historique').Range('A2').CurrentRegion

For Each c In p
...
Next

Bonne journée

Jean-Pierre

 

[Spock]

Bonjour jpm,

Pas mal, effectivement il fait une boucle dans la selection. J'ai même le nombre de cellules dans la selection. MAIS, je n'ai pas la valeur de chaque cellule. Ca c'est embétant.

Une idée ? Mercii.

 

[JPM]

Je ne comprends pas bien ce que tu veux !

La variable objet p correspond à la plage autour de A2, et la variable objet c représente chaque cellule de p. Donc en utilisant les méthodes et propriétés tu peux accéder au contenu, format et tout ce que tu veux.

Par exemple : c.value, c.text, c.font, ...

Précise davantage

Jean-Pierre

 

[Spock]

oups, effectivement, je crois avoir été trop vite :S

J'étais tellement passionné par la variable p (géniale) que j'ai négligé c.

Vivement lundi que j'essayes ça.

Merci et désole.