Un USF pour plusieurs feuilles

Arnaud · 24 Février 2003

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 · 24 Février 2003

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 · 24 Février 2003

Salut Petchy

Tu parles de quel code

@+

petchy · 24 Février 2003

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 · 24 Février 2003

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 · 24 Février 2003

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 · 24 Février 2003

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

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

@+

@+Thierry · 24 Février 2003

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 · 24 Février 2003

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)

@+

Un USF pour plusieurs feuilles

Arnaud

Guest

petchy

Guest

Arnaud

Guest

petchy

Guest

Arnaud

Guest

@+Thierry

Guest

Arnaud

Guest

Pièces jointes

@+Thierry

Guest

Arnaud

Guest

Discussions similaires