Boucle pour récupérer le nom des feuilles

gianluca

XLDnaute Occasionnel

• 23 Avril 2007

• #2

Re : Boucle pour récupérer le nom des feuilles

euh ben moi aussi j'ai buggé....
sorry.


je continue....

j'obtiens une erreur Utilisation incorrecte de la propriété. sur la ligne en gras.

Merci si une bonne âme passant par là m'indiquais quelle boulette je fais.

Bon après-midi à vous.


Gianluca

 

Vote positif 0 Vote négatif

ninbihan

XLDnaute Impliqué

• 23 Avril 2007

• #3

Re : Boucle pour récupérer le nom des feuilles

Bonjour le forum, bonjour gianluca

pour la ligne en gras essaies plutot
set feuilleactive=sheets(i)

 

Vote positif 0 Vote négatif

gianluca

XLDnaute Occasionnel

• 23 Avril 2007

• #4

Re : Boucle pour récupérer le nom des feuilles

Re tout le monde....



Bon bon bon....
alors si je remplace le code
FeuilleActive = sheets(i).Name
Sheets(FeuilleActive).Visible = True
Sheets(FeuilleActive).Activate

par

' FeuilleActive = sheets(i).Name
Sheets(i).Visible = True
Sheets(i).Activate
...
ca fonctionne mais est-ce bien correct ?

En vous remerciant...

Gianluca

 

Vote positif 0 Vote négatif

ninbihan

XLDnaute Impliqué

• 23 Avril 2007

• #5

Re : Boucle pour récupérer le nom des feuilles

Re,
Au début de la macro tu écris
dim FeuilleActive as sheets
Tu déclares donc la variable feuilleactive comme une feuille
Ensuite tu essaies de lui affecter un nom de feuille, çà ne peut pas marcher....
Concernant le reste de la macro, à la place d'activate j'utiliserai select

 

Vote positif 0 Vote négatif

gianluca

XLDnaute Occasionnel

• 23 Avril 2007

• #6

Re : Boucle pour récupérer le nom des feuilles

Re NinBihan, le forum


Ah ben oui 🙂 Quelle andouille je fais.
Merci à toi.

Mais pour mon info, pourquoi plus Utiliser select qu'activate ?

Gianluca

 

Vote positif 0 Vote négatif

Dan

XLDnaute Barbatruc

Membre du Staff

Modérateur

• 23 Avril 2007

• #7

Re : Boucle pour récupérer le nom des feuilles

Bonjour,

Essaie ceci :

Code:

Sub Menu()
Application.commandbars("workbook tabs").showPopup 500, 200
End sub

A associer à un bouton. Un click sur la feuille te sélectionnera la feuille en question.

A bientôt

 

Vote positif 0 Vote négatif

Baside

XLDnaute Impliqué

• 23 Avril 2007

• #8

Re : Boucle pour récupérer le nom des feuilles

Bonjour le Forum, le Fil,

Avec dim FeuilleActive as sheets, on a une feuille, mais tu lui lui attribues une valeur de caractères avec FeuilleActive = sheets(i).Name, donc Excel ne comprend pas. Avec FeuilleActive as String, peut être... (pas fait le test)

Mais avec :

Dim i As Integer

Sub NomsOnnglets()
For i = 1 To ThisWorkbook.Sheets.Count
MsgBox Sheets(i).Name
Next
End Sub

on récupère les noms de toutes les feuilles, à adapter.

Amicalement, Hervé.

 

Vote positif 0 Vote négatif

C

Catrice

XLDnaute Barbatruc

• 23 Avril 2007

• #9

Re : Boucle pour récupérer le nom des feuilles

Bonjour,

En simplifiant un peu le code et en evitant les "Activate" et "Select" :
Sub test()

If CheckBox1.Value = True Then 'Traitement collectif
For i = 1 To ThisWorkbook.Sheets.Count - 2
Sheets(i).Visible = True
Sheets(i).Range("A65536").End(xlUp).Offset(1, 0) = DateTraitement
Sheets(i).Range("A65536").End(xlUp).Offset(0, 3).Value = 30
Next i
Else 'Traitement

End If
End Sub

 

Vote positif 0 Vote négatif

gianluca

XLDnaute Occasionnel

• 23 Avril 2007

• #10

Re : Boucle pour récupérer le nom des feuilles

Bonjour Dan

Merci du truc, je me le garde au chaud...

Bon après midi à toi

Gianluca

 

Vote positif 0 Vote négatif

gianluca

XLDnaute Occasionnel

• 23 Avril 2007

• #11

Re : Boucle pour récupérer le nom des feuilles

Arf.... re le fil...


J'avais pas vue les réponses de Catrice et de Baside... Sorry.
et merci de vous pencher sur mon cas.

BAside:
oui ca fonctionne en assignan String a la variable feuilleActive.

Catrice:
respect... 🙂 , effectivement ca simplifie le code. Mon faible niveau ne me permet pas de trouver cela tout seul.
Mais je vais honteusement pomper ta solution.

Merci
Bon après midi à tous
et sur ce je retourne bosser... 🙁


Gianluca

 

Vote positif 0 Vote négatif

Gorfael

XLDnaute Barbatruc

• 23 Avril 2007

• #12

Re : Boucle pour récupérer le nom des feuilles

Catrice à dit:

Bonjour,

En simplifiant un peu le code et en evitant les "Activate" et "Select" :
Sub test()

If CheckBox1.Value = True Then 'Traitement collectif
For i = 1 To ThisWorkbook.Sheets.Count - 2
Sheets(i).Visible = True
Sheets(i).Range("A65536").End(xlUp).Offset(1, 0) = DateTraitement
Sheets(i).Range("A65536").End(xlUp).Offset(0, 3).Value = 30
Next i
Else 'Traitement

End If
End Sub

Cliquez pour agrandir...

Salut à tous
gianluca : les doublons, pas glop, pas glop 😡
Catrice : j'ai fait la même macro dans l'autre sujet, comme quoi.... 😛
A+

 

Vote positif 0 Vote négatif

Baside

XLDnaute Impliqué

• 23 Avril 2007

• #13

Re : Boucle pour récupérer le nom des feuilles

Re le Forum, le Fil,

Pour select et Activate

Voir https://www.excel-downloads.com/threads/sheets-activate-ou-select.47662/

et la partie 12.10. de SANGUINETTI - VBA EXCEL 97 - COURS EN LIGNE

Amicalement, Hervé.

 

Vote positif 0 Vote négatif

C

Catrice

XLDnaute Barbatruc

• 23 Avril 2007

• #14

Re : Boucle pour récupérer le nom des feuilles

Salut Gorfael,

Oui, j'ai vu ça.
Je suis passé tout à l'heure et j'ai vu 2 fils sur le meme sujet dont un vide et là maintenant, y a plein de monde 😱

Je crois qu'on a proposé une bonne solution 😉 lol
Mais il est vrai que ce n'est pas top de multiplier les Posts ... hein ? gianluca 😉

 

Vote positif 0 Vote négatif

gianluca

XLDnaute Occasionnel

• 23 Avril 2007

• #15

Re : Boucle pour récupérer le nom des feuilles

Re le fil....


A pas fait exprès.... Aie pas la tête les amis.... 🙂
j'ai deux mains gauches... 😛

merci à tous et pardonnez le pauvre Gianluca... (Heu, j'en fais trop là ? )
Non mais sérieusement, et très sincèrement, un grand merci à tous.

je pourrai revenir ?


Bonne soirée
Gianluca

 

Vote positif 0 Vote négatif