imposser la feuille

[laclac]

Bonjour à tous, et joyeux noel !

J'ai un souci avec le code simplifié ci-dessous.
Quand je le lance à partir de la feuil1, il fonctionne très bien.
Mais si je le lance à partir de la feuil2, la boucle for fait qu'un seul tour.
(Les valeurs a tester sont bien dans la feuil1.)


Voici mon code :
Dim Cellule As Range

For Each Cellule In Sheets("feuil1").Range("A1:Z1")

If Cellule.Value = "Case Y" Then
ActiveWorkbook.Names.Add Name:="exemple", RefersTo:="=Feuil1!" & Cellule.Address
End If

Next Cellule

 

[AlainM]

Bonjour laclac, le forum

Peut être devrais tu activer la feuil1 quand tu passes sur la Feuil2.

sheets("Feuil1").Activate ou Select

Non ? Tu me dis ?

Joyeux Noël à vous tous

@lain

 

[laclac]

Heu.. non pas trop trop..
Car en faite je fais derrière un sheets("Feuil2").Activate
Donc ca ferais un clignotement inutile et pas très agréable.
J'aimerais surtout résoudre le problème à la source car, je ne comprend pas pourquoi il fait qu'un seul tour quand on est sur la feuille 2 et 3.

 

[AlainM]

bonsoir

Pourrais tu mettre ton fichier en .zip pour qu'on puisse regarder ?

Tu pourrais, pour éviter le clignotement ,c'est à dire le changement de page mettre cette instruction au début de ta procedure, ce qui ne se verra pas :

Application.ScreenUpdating = False

Bon courage
Bonsoir et joyeux Noël et bonnes fêtes de fin d'année
@lain

 

[laclac]

Voilà, mon petit codage simplifié et allégé, en espérant que vous comprendrez un peu !
Pour lancer la macro je fais CTR + E.
Le principe remplir mes combobox des entetes identifiés de la feuille 1.

Pour cela, il scanne la 1er ligne de la page 1.
Regarde si c'est une entete connu.
Si c'est le cas il définit un nom dans la cellule pour pouvoir la retrouver facilement.
Voilà

Souci, quand on est sur la feuil1 ca fonctionne très bien quand on est sur la feuil2, que la 1er entete est scanné !

En espèrant que vous trouverez le problème
Car je serais pas contre le active feuil1 mais ne serais -t-il pas contourner le problème ?