Ce code, adapté pour n'effacer que la colonne A :
****************************
Sub ListerFeuilles()
Dim i As Integer
'On Error Resume Next
Columns("A:A").Cells.ClearContents
For i = 2 To Sheets.Count
Sheets(1).Cells(i - 1, 1).Value = Sheets(i).Name
Next i
End Sub
************************
me renvoie une erreur 400.
Pas trouvé dans l'aide
Un petit coup de pouce serait le bienvenu.
Bien cordalement,
Patrick.
PS : subsidiare : où se trouvent les explications sur les codes d'erreur ?
begin 666 frown.gif
M1TE&.#EA#P`/`)$``````+V]O8RM_[V]O2'Y! $```,`+ `````/``\```(O
MG V9QY,"X6) QBK P?A*E$5BI76/9*:7*K:K"Y^H,CK6^-GPM>U9(T,U-@H-
$HP``.P``
`
end
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
isabelle
bonjour Patrick,
l'erreur provient sûrement d'une autre procédure dans un des classeur ouvert.
(Erreur 400)Feuille déjà affichée; impossible d'afficher modalement Vous ne pouvez pas utiliser la méthode Show pour afficher une feuille en tant que feuille modale si elle est déjà visible. La cause de cette erreur et la solution pour la corriger sont les suivantes : Vous avez essayé d'appliquer à une feuille déjà visible la méthode Show avec l'argument style égal à 1 (vbModal). Utilisez l'instruction Unload ou la méthode Hide sur la feuille avant d'essayer de l'afficher en tant que feuille modale.
isabelle
Bonsoir à tous.
Ce code, adapté pour n'effacer que la colonne A : **************************** Sub ListerFeuilles() Dim i As Integer 'On Error Resume Next Columns("A:A").Cells.ClearContents For i = 2 To Sheets.Count Sheets(1).Cells(i - 1, 1).Value = Sheets(i).Name Next i End Sub ************************ me renvoie une erreur 400. Pas trouvé dans l'aide
Un petit coup de pouce serait le bienvenu.
Bien cordalement,
Patrick.
PS : subsidiare : où se trouvent les explications sur les codes d'erreur ?
[Image]
bonjour Patrick,
l'erreur provient sûrement d'une autre procédure dans un des classeur ouvert.
(Erreur 400)Feuille déjà affichée; impossible d'afficher modalement
Vous ne pouvez pas utiliser la méthode Show pour afficher une feuille en tant que feuille modale si elle est déjà
visible. La cause de cette erreur et la solution pour la corriger sont les suivantes :
Vous avez essayé d'appliquer à une feuille déjà visible la méthode Show avec l'argument style égal à 1 (vbModal).
Utilisez l'instruction Unload ou la méthode Hide sur la feuille avant d'essayer de l'afficher en tant que feuille
modale.
isabelle
Bonsoir à tous.
Ce code, adapté pour n'effacer que la colonne A :
****************************
Sub ListerFeuilles()
Dim i As Integer
'On Error Resume Next
Columns("A:A").Cells.ClearContents
For i = 2 To Sheets.Count
Sheets(1).Cells(i - 1, 1).Value = Sheets(i).Name
Next i
End Sub
************************
me renvoie une erreur 400.
Pas trouvé dans l'aide
Un petit coup de pouce serait le bienvenu.
Bien cordalement,
Patrick.
PS : subsidiare : où se trouvent les explications sur les codes d'erreur ?
l'erreur provient sûrement d'une autre procédure dans un des classeur ouvert.
(Erreur 400)Feuille déjà affichée; impossible d'afficher modalement Vous ne pouvez pas utiliser la méthode Show pour afficher une feuille en tant que feuille modale si elle est déjà visible. La cause de cette erreur et la solution pour la corriger sont les suivantes : Vous avez essayé d'appliquer à une feuille déjà visible la méthode Show avec l'argument style égal à 1 (vbModal). Utilisez l'instruction Unload ou la méthode Hide sur la feuille avant d'essayer de l'afficher en tant que feuille modale.
isabelle
Bonsoir à tous.
Ce code, adapté pour n'effacer que la colonne A : **************************** Sub ListerFeuilles() Dim i As Integer 'On Error Resume Next Columns("A:A").Cells.ClearContents For i = 2 To Sheets.Count Sheets(1).Cells(i - 1, 1).Value = Sheets(i).Name Next i End Sub ************************ me renvoie une erreur 400. Pas trouvé dans l'aide
Un petit coup de pouce serait le bienvenu.
Bien cordalement,
Patrick.
PS : subsidiare : où se trouvent les explications sur les codes d'erreur ?
[Image]
Bruno
Bonjour, l'erreur 400 signifie que la feuille est deja affichee (ou affichage modal impossible). Verifie donc que tu n'essais pas d'ouvrir 2 fois la meme feuille (ou classeur). A+++ Bruno
"Patrick BASTARD" a écrit dans le message de news: u$
Bonsoir à tous.
Ce code, adapté pour n'effacer que la colonne A : **************************** Sub ListerFeuilles() Dim i As Integer 'On Error Resume Next Columns("A:A").Cells.ClearContents For i = 2 To Sheets.Count Sheets(1).Cells(i - 1, 1).Value = Sheets(i).Name Next i End Sub ************************ me renvoie une erreur 400. Pas trouvé dans l'aide
Un petit coup de pouce serait le bienvenu.
Bien cordalement,
Patrick.
PS : subsidiare : où se trouvent les explications sur les codes d'erreur ?
Bonjour,
l'erreur 400 signifie que la feuille est deja affichee (ou affichage modal
impossible). Verifie donc que tu n'essais pas d'ouvrir 2 fois la meme
feuille (ou classeur).
A+++
Bruno
"Patrick BASTARD" <pasdespambastardp@freepasdespam.fr> a écrit dans le
message de news: u$DrG4W1EHA.3500@TK2MSFTNGP09.phx.gbl...
Bonsoir à tous.
Ce code, adapté pour n'effacer que la colonne A :
****************************
Sub ListerFeuilles()
Dim i As Integer
'On Error Resume Next
Columns("A:A").Cells.ClearContents
For i = 2 To Sheets.Count
Sheets(1).Cells(i - 1, 1).Value = Sheets(i).Name
Next i
End Sub
************************
me renvoie une erreur 400.
Pas trouvé dans l'aide
Un petit coup de pouce serait le bienvenu.
Bien cordalement,
Patrick.
PS : subsidiare : où se trouvent les explications sur les codes d'erreur ?
Bonjour, l'erreur 400 signifie que la feuille est deja affichee (ou affichage modal impossible). Verifie donc que tu n'essais pas d'ouvrir 2 fois la meme feuille (ou classeur). A+++ Bruno
"Patrick BASTARD" a écrit dans le message de news: u$
Bonsoir à tous.
Ce code, adapté pour n'effacer que la colonne A : **************************** Sub ListerFeuilles() Dim i As Integer 'On Error Resume Next Columns("A:A").Cells.ClearContents For i = 2 To Sheets.Count Sheets(1).Cells(i - 1, 1).Value = Sheets(i).Name Next i End Sub ************************ me renvoie une erreur 400. Pas trouvé dans l'aide
Un petit coup de pouce serait le bienvenu.
Bien cordalement,
Patrick.
PS : subsidiare : où se trouvent les explications sur les codes d'erreur ?
michdenis
Bonjour Patrick,
En principe, ce code ne devrait pas générer une erreur, sauf si la feuille active du classeur au moment de lancer la procédure n'est pas une feuille de calcul mais une feuille graphique par exemple.
Salutations!
"Patrick BASTARD" a écrit dans le message de news: u$ Bonsoir à tous.
Ce code, adapté pour n'effacer que la colonne A : **************************** Sub ListerFeuilles() Dim i As Integer 'On Error Resume Next Columns("A:A").Cells.ClearContents For i = 2 To Sheets.Count Sheets(1).Cells(i - 1, 1).Value = Sheets(i).Name Next i End Sub ************************ me renvoie une erreur 400. Pas trouvé dans l'aide
Un petit coup de pouce serait le bienvenu.
Bien cordalement,
Patrick.
PS : subsidiare : où se trouvent les explications sur les codes d'erreur ?
Bonjour Patrick,
En principe, ce code ne devrait pas générer une erreur, sauf si la feuille active du classeur au moment de lancer la
procédure n'est pas une feuille de calcul mais une feuille graphique par exemple.
Salutations!
"Patrick BASTARD" <pasdespambastardp@freepasdespam.fr> a écrit dans le message de news:
u$DrG4W1EHA.3500@TK2MSFTNGP09.phx.gbl...
Bonsoir à tous.
Ce code, adapté pour n'effacer que la colonne A :
****************************
Sub ListerFeuilles()
Dim i As Integer
'On Error Resume Next
Columns("A:A").Cells.ClearContents
For i = 2 To Sheets.Count
Sheets(1).Cells(i - 1, 1).Value = Sheets(i).Name
Next i
End Sub
************************
me renvoie une erreur 400.
Pas trouvé dans l'aide
Un petit coup de pouce serait le bienvenu.
Bien cordalement,
Patrick.
PS : subsidiare : où se trouvent les explications sur les codes d'erreur ?
En principe, ce code ne devrait pas générer une erreur, sauf si la feuille active du classeur au moment de lancer la procédure n'est pas une feuille de calcul mais une feuille graphique par exemple.
Salutations!
"Patrick BASTARD" a écrit dans le message de news: u$ Bonsoir à tous.
Ce code, adapté pour n'effacer que la colonne A : **************************** Sub ListerFeuilles() Dim i As Integer 'On Error Resume Next Columns("A:A").Cells.ClearContents For i = 2 To Sheets.Count Sheets(1).Cells(i - 1, 1).Value = Sheets(i).Name Next i End Sub ************************ me renvoie une erreur 400. Pas trouvé dans l'aide
Un petit coup de pouce serait le bienvenu.
Bien cordalement,
Patrick.
PS : subsidiare : où se trouvent les explications sur les codes d'erreur ?
Patrick BASTARD
Bonsoir, *Denis, Bruno et Isabelle*
Et merci à vous trois pour vos réponses.
J'ai exploré les idées que vous avez eu l'amabilité de m'envoyer : Cette procédure est bien lancée -manuellement- lorsque la feuille de calcul - (Name) = Feuil1 -sur laquelle je désire lister les onglets est active. Il n'y a que des feuilles de calcul (environ 35) dans ce classeur.
J'ai vérifié qu'aucune de ces feuilles n'est ni cachée ni VeryHidden. Elles sont cependant toutes protégées, sauf Feuil1 bien sûr. Serait-ce la réponse, bien que j'en doute. Les noms de ces feuilles à lister, créées par duplication d'un modèle, sont nommées par macro : (Name) : modele1 à modeleX Name : sam. 01-01-05 à Lun. 31-01-05
Si vous avez d'autres pistes, elles seront les bienvenues.
Bonne soirée à vous tous,
Bien cordialement,
Patrick.
Bonjour Patrick,
En principe, ce code ne devrait pas générer une erreur, sauf si la feuille active du classeur au moment de lancer la procédure n'est pas une feuille de calcul mais une feuille graphique par exemple.
Salutations!
"Patrick BASTARD" a écrit dans le message de news: u$ Bonsoir à tous.
Ce code, adapté pour n'effacer que la colonne A : **************************** Sub ListerFeuilles() Dim i As Integer
'On Error Resume Next Columns("A:A").Cells.ClearContents For i = 2 To Sheets.Count Sheets(1).Cells(i - 1, 1).Value = Sheets(i).Name Next i End Sub ************************ me renvoie une erreur 400. Pas trouvé dans l'aide
Un petit coup de pouce serait le bienvenu.
Bien cordalement,
Patrick.
PS : subsidiare : où se trouvent les explications sur les codes d'erreur ?
Bonsoir, *Denis, Bruno et Isabelle*
Et merci à vous trois pour vos réponses.
J'ai exploré les idées que vous avez eu l'amabilité de m'envoyer :
Cette procédure est bien lancée -manuellement- lorsque la feuille de
calcul - (Name) = Feuil1 -sur laquelle je désire lister les onglets est
active.
Il n'y a que des feuilles de calcul (environ 35) dans ce classeur.
J'ai vérifié qu'aucune de ces feuilles n'est ni cachée ni VeryHidden.
Elles sont cependant toutes protégées, sauf Feuil1 bien sûr. Serait-ce la
réponse, bien que j'en doute.
Les noms de ces feuilles à lister, créées par duplication d'un modèle, sont
nommées par macro :
(Name) : modele1 à modeleX
Name : sam. 01-01-05 à Lun. 31-01-05
Si vous avez d'autres pistes, elles seront les bienvenues.
Bonne soirée à vous tous,
Bien cordialement,
Patrick.
Bonjour Patrick,
En principe, ce code ne devrait pas générer une erreur, sauf si la
feuille active du classeur au moment de lancer la procédure n'est pas
une feuille de calcul mais une feuille graphique par exemple.
Salutations!
"Patrick BASTARD" <pasdespambastardp@freepasdespam.fr> a écrit dans
le message de news: u$DrG4W1EHA.3500@TK2MSFTNGP09.phx.gbl...
Bonsoir à tous.
Ce code, adapté pour n'effacer que la colonne A :
****************************
Sub ListerFeuilles()
Dim i As Integer
'On Error Resume Next
Columns("A:A").Cells.ClearContents
For i = 2 To Sheets.Count
Sheets(1).Cells(i - 1, 1).Value = Sheets(i).Name
Next i
End Sub
************************
me renvoie une erreur 400.
Pas trouvé dans l'aide
Un petit coup de pouce serait le bienvenu.
Bien cordalement,
Patrick.
PS : subsidiare : où se trouvent les explications sur les codes
d'erreur ?
J'ai exploré les idées que vous avez eu l'amabilité de m'envoyer : Cette procédure est bien lancée -manuellement- lorsque la feuille de calcul - (Name) = Feuil1 -sur laquelle je désire lister les onglets est active. Il n'y a que des feuilles de calcul (environ 35) dans ce classeur.
J'ai vérifié qu'aucune de ces feuilles n'est ni cachée ni VeryHidden. Elles sont cependant toutes protégées, sauf Feuil1 bien sûr. Serait-ce la réponse, bien que j'en doute. Les noms de ces feuilles à lister, créées par duplication d'un modèle, sont nommées par macro : (Name) : modele1 à modeleX Name : sam. 01-01-05 à Lun. 31-01-05
Si vous avez d'autres pistes, elles seront les bienvenues.
Bonne soirée à vous tous,
Bien cordialement,
Patrick.
Bonjour Patrick,
En principe, ce code ne devrait pas générer une erreur, sauf si la feuille active du classeur au moment de lancer la procédure n'est pas une feuille de calcul mais une feuille graphique par exemple.
Salutations!
"Patrick BASTARD" a écrit dans le message de news: u$ Bonsoir à tous.
Ce code, adapté pour n'effacer que la colonne A : **************************** Sub ListerFeuilles() Dim i As Integer
'On Error Resume Next Columns("A:A").Cells.ClearContents For i = 2 To Sheets.Count Sheets(1).Cells(i - 1, 1).Value = Sheets(i).Name Next i End Sub ************************ me renvoie une erreur 400. Pas trouvé dans l'aide
Un petit coup de pouce serait le bienvenu.
Bien cordalement,
Patrick.
PS : subsidiare : où se trouvent les explications sur les codes d'erreur ?
