operation boucle en evitant 2 feuilles

[Xavier]

Bonjour à tous,

J'ai besoin d'une petite aide. Bon c'est pas compliqué je pense

1/ J'ai la boucle suivante et je veux que l'operation Essretrieve (autre fonction pro) ne se fasse pas sur une feuille entity (comme expliqué ds la macro) mais aussi sur une autre feuille nommée 'Result' qui se trouve en plein milieu de ma boucle.

Donc c'est la fonction Do While sheet <>'Entity' + autre feuille que je dois adapter
Comment je fais pour eviter plusieurs feuilles ds ma boucle (feuille Entity et feuille Result)

Private Sub CommandButton1_Click()
Dim sShtStart As String
Dim j

j = 1
Do While Sheets(j).Name <> 'Entity'
Sheets(j).Select
sShtStart = ActiveSheet.Name
EssRetrieve ActiveSheet.Range('Zone_Ret')
j = j + 1

Loop

Sheets('Entity').Select
Range('A1').Select
Exit Sub
End Sub

2/ une fois la macro tournée, j'ai ds la cellule a1 la formule date ='Le '&TEXTE(MAINTENANT();'jj/mm/aaa - h:mm') et je souhaite qu'une fois la macro tournée la date soit fixe comme cela si j'ouvre le fichier 2 jrs après, la date ne se met pas à jour

Avez-vous une soluce?

Merci pour votre aide


Xavier

 

[sousou]

Bonjour


Do While Sheets(j).Name <> 'Entity' or sheets(j).name<>'result'

 

[Xavier]

Salut Sousou, et le forum

je te remercie pour ton aide mais ca a l`air de vouloir bloquer. alors je vais essayer d`adapter ta proposition pour checker si cela vient de moi.


je reviens demain.

merci pour ton aide

xavier