Discussion :

[PUARAI]

J'utilise ecxel 2003 Pro

Bonjour ou bonsoir a tous,
J'aurais besoin de votre aide.
Mon probléme est :

Voila,
Dans mon classeur j'ai trois feuilles dont un reste visible tout le temp qui s'appel "trame",
et les deux autres sont cachés, "feuille 2 et feuille 3".

J'ai une macro qui me permet grace à un bouton que j'ai nommée "valider", de mettre mes données sur la feuille que j'aurais rendu visible grace à une liste déroulante".

Lorsque la feuille 2 est visible, la feuille 3 reste cacher ou visversa.

Donc en gros sur mon classeur j'aurais toujours deux feuilles dont la feuille "trame" qui n'est jamais caché, et une des deux feuilles qui sont caché.

Le souci, c'est que je ne veut pas donner de nom a ma feuille (feuille2 ou feuille3).

En faite ce que je veux c'est dès que je valide sur ma feuille "trame", que mes données se mettent directement sur la feuille visible que ça soit feuille 2 ou feuille 3 peut importe le nom de la feuille.

Merci d'avance,
PS (j'ai fais au plus court)
merci encore

[casefayere]

Bonsoir,
j'espère que ce code pourra t'aider

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Dim e As Integer, nomf As String
If ActiveSheet.Next.Visible = True Then
ActiveSheet.Next.Select
Else
e = ActiveSheet.Next.Index + 1
nomf = Sheets(e).Name
End If

et tu te referes à sheets(nomf)

[Gorfael]

Salut PUARAI et le forum
Pas sûr d'avoir compris.
Tu testes tes feuilles par leur indice et si elle est visible tu travaille dessus à condition que son nom ne soit pas trame

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
dim  X as integer
For x=1 to sheets.count
     if sheets(x).name <> "trame" and sheets(x).visble = true then exit for
next x

et tu travailles sur sheets(x).
Code fait sur le site, alors faut le tester avant
A+

[PUARAI]

Merci à vous deux franchement merci beaucoup j'ai utiliser les deux codes mais celui qui à marcher c'est celui de 'casefayere' mais merci quand même à toi 'Gorfael' et d'avoir répondu aussi vite encore merci à vous deux.

Bonsoir,
j'espère que ce code pourra t'aider

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Dim e As Integer, nomf As String
If ActiveSheet.Next.Visible = True Then
ActiveSheet.Next.Select
Else
e = ActiveSheet.Next.Index + 1
nomf = Sheets(e).Name
End If

et tu te referes à sheets(nomf)

[Qwazerty]

Salut
Si j'ai bien compris tu veux faire de la saisi de donnée dans une des 2 feuilles (celle qui est visible), tu n'a donc pas besoin de la sélectionner

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Dim LaFeuilVisible As Worksheet
 
If sheets("Feuil2").visible then
   Set LafeuilVisible = sheets("feuil2")
Else
   Set Lafeuilvisible = sheets("feuil3")
End If

Par la suite dans ton code tu utilises Lafeuilvisible comme étant l'onglet ou tu dois déverser tes donnés

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
With Lafeuilvisible 
  .range("A1") = "Bonjour"
   '....
End With
'....

A++
Qwaz

[PUARAI]

Héhé pas mal c'elle la aussi a mon avis cela marchera mais le souci peut etre c'est si j'ai une cinquante de feuille ça vas etre trop long, mais je crois que je vais l'utiliser aussi pour voir à téster je vous remercie beaucoup d'avoir répondu merci encore.