Un USF pour plusieurs feuilles

[Arnaud]

Salut le forum,

En bricolant le code d'un classeur d'exemple, j'ai découvert que l'on pouvait ouvrir le même USF dans plusieurs feuilles du même classeur.
J'ai essayé, ça marche !!!!!!!!!
J'ai donc dans deux feuilles le même USF avec une liste déroulante.
Lorsque je suis sur la feuille 1 et que je valide mon choix, il s'affiche dans la cellule A1 de la feuille 1 et cela fait la même chose quand je suis dans la feuille 2.
Ma question est de savoir si dans le feuille 2 la cellule cible peut-être différente de celle de la feuille 1 en utilisant bien sur le même USF.

Bon................ si c'est pas clair j'essaierai avec un exemple

Merci à tous

P.S.n'oubliez pas d'aller prendre un peu l'air par cette belle journée ensoileillée.

 

[petchy]

Bonjour à tous et toutes

salut Arnaud
il te suffit de changer de numéro de ta feuille dans ton code:
Sheets(1) Sheets(2) Sheets(3)........etc


petchy

 

[Arnaud]

Salut Petchy

Tu parles de quel code

@+

 

[petchy]

Re salut Arnaud

le code de ton USF dans le VBA
outils
macro
visual basic
et tu click 2 fois sur ton USF et la tu as le code
@ plus petchy

 

[Arnaud]

Re salut

Ci-joint un fichier comme exemple, car pour trouver le code pas de probléme et fait je me posais la question entre celui du USF et celui de la feuille

Bon, sur l'exemple, la cellule cible de la feuille 2 et la même que la feuille 1

Merci d'avance

 

[@+Thierry]

Bonjour Vite fait, (le Dentiste vient de décaler son RV)

Arnaud, en attendant ton fichier exemple, regarde ce => DEMO UserForm AutoFilter sur Multi-Feuilles sans ActiveSheet tu trouveras de quoi faire en exemple.

Bon Aprèm
@+Thierry

 

[Arnaud]

C'est encore moi, celui qu'on appele "p'tite tête".

J'ai oublié le fichier dans le précédent post,

@+

 

[@+Thierry]

Re Salut Arnaud

J'ai regardé, en fait c'est simple, si tu changes cette macro comme ceci

Private Sub cmdValider_Click()
frmOptions.Hide
If ActiveSheet.Name = "Feuil 2" Then
Range("C11").Value = lblDisplay
End If
If ActiveSheet.Name = "Feuil1" Then
Range("C12").Value = lblDisplay
End If

End Sub

On peut aussi utiliser un Select Case si il y a plus de feuilles...

Bon Aprèm
@+Thierry

 

[Arnaud]

Salut Thierry

Comme toujours c'est un plaisir de poser une question sur ce forum.
Même pour les trucs les plus simples, on est traité comme des rois

Merci

PS, j'espére que ça va (.....les dents)

@+