Bonjour, Perso, je verrai plutôt quelque chose dans ce style qui gère l'erreur si diférente de 0 ( donc feuille existe ), mais c'est juste mon avis ......
Sub x() On Error Resume Next Sheets("Temp").Select If Err <> 0 Then Sheets.Add after:¬tiveSheet ActiveSheet.Name = "Temp" End If End Sub
Pounet95
"Alfred WALLACE" a écrit dans le message de news:
bonjour, je suis coincé.... tres "fort" sur la création d'une feuille temporaire.
Que signifie ce message d'erreur ? j'utilise ce code ailleurs dans mon prg sans problèmes.
Sub Recherche_de_valeurs() On Error Resume Next Dim Sht As Worksheet '
Set Sht = Worksheets("temp01") <---- c'est ICI que j'ai l'erreur en objet !
On Error GoTo 0 <---- pourtant j'ai bien le on Error Resume Next !
If Sht01 Is Nothing Then Sheets.Add.Name = "temp01" Else Worksheets("temp01").Columns.Clear End If
j'ai besoin de cette feuille temporaire. et je tourne en rond depuis un bon moment.
est-ce que quelqu'un à une piste ?
Merci
José
Bonjour,
Perso, je verrai plutôt quelque chose dans ce style qui gère l'erreur si
diférente de 0
( donc feuille existe ), mais c'est juste mon avis ......
Sub x()
On Error Resume Next
Sheets("Temp").Select
If Err <> 0 Then
Sheets.Add after:¬tiveSheet
ActiveSheet.Name = "Temp"
End If
End Sub
Pounet95
"Alfred WALLACE" <jose6a@gmail.com> a écrit dans le message de news:
1165581777.394760.21650@j72g2000cwa.googlegroups.com...
bonjour,
je suis coincé.... tres "fort" sur la création d'une feuille
temporaire.
Que signifie ce message d'erreur ? j'utilise ce code ailleurs dans mon
prg sans problèmes.
Sub Recherche_de_valeurs()
On Error Resume Next
Dim Sht As Worksheet '
Set Sht = Worksheets("temp01") <---- c'est ICI que j'ai
l'erreur en objet !
On Error GoTo 0 <---- pourtant j'ai
bien le on Error Resume Next !
If Sht01 Is Nothing Then
Sheets.Add.Name = "temp01"
Else
Worksheets("temp01").Columns.Clear
End If
j'ai besoin de cette feuille temporaire. et je tourne en rond depuis un
bon moment.
Bonjour, Perso, je verrai plutôt quelque chose dans ce style qui gère l'erreur si diférente de 0 ( donc feuille existe ), mais c'est juste mon avis ......
Sub x() On Error Resume Next Sheets("Temp").Select If Err <> 0 Then Sheets.Add after:¬tiveSheet ActiveSheet.Name = "Temp" End If End Sub
Pounet95
"Alfred WALLACE" a écrit dans le message de news:
bonjour, je suis coincé.... tres "fort" sur la création d'une feuille temporaire.
Que signifie ce message d'erreur ? j'utilise ce code ailleurs dans mon prg sans problèmes.
Sub Recherche_de_valeurs() On Error Resume Next Dim Sht As Worksheet '
Set Sht = Worksheets("temp01") <---- c'est ICI que j'ai l'erreur en objet !
On Error GoTo 0 <---- pourtant j'ai bien le on Error Resume Next !
If Sht01 Is Nothing Then Sheets.Add.Name = "temp01" Else Worksheets("temp01").Columns.Clear End If
j'ai besoin de cette feuille temporaire. et je tourne en rond depuis un bon moment.
est-ce que quelqu'un à une piste ?
Merci
José
Pounet95
1001 excuses, mais c'est différente qu'il faut lire ( p.... de clavier wifi !!! ) au lieu de 'diférente' C'est pas grand chose, mais j'y tiens
"Pounet95" <grumlardchezouanadoupointfr> a écrit dans le message de news: 457963db$0$5078$
Bonjour, Perso, je verrai plutôt quelque chose dans ce style qui gère l'erreur si diférente de 0 ( donc feuille existe ), mais c'est juste mon avis ......
Sub x() On Error Resume Next Sheets("Temp").Select If Err <> 0 Then Sheets.Add after:¬tiveSheet ActiveSheet.Name = "Temp" End If End Sub
Pounet95
"Alfred WALLACE" a écrit dans le message de news:
bonjour, je suis coincé.... tres "fort" sur la création d'une feuille temporaire.
Que signifie ce message d'erreur ? j'utilise ce code ailleurs dans mon prg sans problèmes.
Sub Recherche_de_valeurs() On Error Resume Next Dim Sht As Worksheet '
Set Sht = Worksheets("temp01") <---- c'est ICI que j'ai l'erreur en objet !
On Error GoTo 0 <---- pourtant j'ai bien le on Error Resume Next !
If Sht01 Is Nothing Then Sheets.Add.Name = "temp01" Else Worksheets("temp01").Columns.Clear End If
j'ai besoin de cette feuille temporaire. et je tourne en rond depuis un bon moment.
est-ce que quelqu'un à une piste ?
Merci
José
1001 excuses, mais c'est différente qu'il faut lire ( p.... de clavier wifi
!!! ) au lieu de 'diférente'
C'est pas grand chose, mais j'y tiens
"Pounet95" <grumlardchezouanadoupointfr> a écrit dans le message de news:
457963db$0$5078$ba4acef3@news.orange.fr...
Bonjour,
Perso, je verrai plutôt quelque chose dans ce style qui gère l'erreur si
diférente de 0
( donc feuille existe ), mais c'est juste mon avis ......
Sub x()
On Error Resume Next
Sheets("Temp").Select
If Err <> 0 Then
Sheets.Add after:¬tiveSheet
ActiveSheet.Name = "Temp"
End If
End Sub
Pounet95
"Alfred WALLACE" <jose6a@gmail.com> a écrit dans le message de news:
1165581777.394760.21650@j72g2000cwa.googlegroups.com...
bonjour,
je suis coincé.... tres "fort" sur la création d'une feuille
temporaire.
Que signifie ce message d'erreur ? j'utilise ce code ailleurs dans mon
prg sans problèmes.
Sub Recherche_de_valeurs()
On Error Resume Next
Dim Sht As Worksheet '
Set Sht = Worksheets("temp01") <---- c'est ICI que j'ai
l'erreur en objet !
On Error GoTo 0 <---- pourtant j'ai
bien le on Error Resume Next !
If Sht01 Is Nothing Then
Sheets.Add.Name = "temp01"
Else
Worksheets("temp01").Columns.Clear
End If
j'ai besoin de cette feuille temporaire. et je tourne en rond depuis un
bon moment.
1001 excuses, mais c'est différente qu'il faut lire ( p.... de clavier wifi !!! ) au lieu de 'diférente' C'est pas grand chose, mais j'y tiens
"Pounet95" <grumlardchezouanadoupointfr> a écrit dans le message de news: 457963db$0$5078$
Bonjour, Perso, je verrai plutôt quelque chose dans ce style qui gère l'erreur si diférente de 0 ( donc feuille existe ), mais c'est juste mon avis ......
Sub x() On Error Resume Next Sheets("Temp").Select If Err <> 0 Then Sheets.Add after:¬tiveSheet ActiveSheet.Name = "Temp" End If End Sub
Pounet95
"Alfred WALLACE" a écrit dans le message de news:
bonjour, je suis coincé.... tres "fort" sur la création d'une feuille temporaire.
Que signifie ce message d'erreur ? j'utilise ce code ailleurs dans mon prg sans problèmes.
Sub Recherche_de_valeurs() On Error Resume Next Dim Sht As Worksheet '
Set Sht = Worksheets("temp01") <---- c'est ICI que j'ai l'erreur en objet !
On Error GoTo 0 <---- pourtant j'ai bien le on Error Resume Next !
If Sht01 Is Nothing Then Sheets.Add.Name = "temp01" Else Worksheets("temp01").Columns.Clear End If
j'ai besoin de cette feuille temporaire. et je tourne en rond depuis un bon moment.
est-ce que quelqu'un à une piste ?
Merci
José
Daniel
Bonjour. Encore un amateur de l'ex-dictée de Pivot ? :-))) Daniel "Pounet95" <grumlardchezouanadoupointfr> a écrit dans le message de news: 45796475$0$27384$
1001 excuses, mais c'est différente qu'il faut lire ( p.... de clavier wifi !!! ) au lieu de 'diférente' C'est pas grand chose, mais j'y tiens
"Pounet95" <grumlardchezouanadoupointfr> a écrit dans le message de news: 457963db$0$5078$
Bonjour, Perso, je verrai plutôt quelque chose dans ce style qui gère l'erreur si diférente de 0 ( donc feuille existe ), mais c'est juste mon avis ......
Sub x() On Error Resume Next Sheets("Temp").Select If Err <> 0 Then Sheets.Add after:¬tiveSheet ActiveSheet.Name = "Temp" End If End Sub
Pounet95
"Alfred WALLACE" a écrit dans le message de news:
bonjour, je suis coincé.... tres "fort" sur la création d'une feuille temporaire.
Que signifie ce message d'erreur ? j'utilise ce code ailleurs dans mon prg sans problèmes.
Sub Recherche_de_valeurs() On Error Resume Next Dim Sht As Worksheet '
Set Sht = Worksheets("temp01") <---- c'est ICI que j'ai l'erreur en objet !
On Error GoTo 0 <---- pourtant j'ai bien le on Error Resume Next !
If Sht01 Is Nothing Then Sheets.Add.Name = "temp01" Else Worksheets("temp01").Columns.Clear End If
j'ai besoin de cette feuille temporaire. et je tourne en rond depuis un bon moment.
est-ce que quelqu'un à une piste ?
Merci
José
Bonjour.
Encore un amateur de l'ex-dictée de Pivot ? :-)))
Daniel
"Pounet95" <grumlardchezouanadoupointfr> a écrit dans le message de news:
45796475$0$27384$ba4acef3@news.orange.fr...
1001 excuses, mais c'est différente qu'il faut lire ( p.... de clavier
wifi !!! ) au lieu de 'diférente'
C'est pas grand chose, mais j'y tiens
"Pounet95" <grumlardchezouanadoupointfr> a écrit dans le message de news:
457963db$0$5078$ba4acef3@news.orange.fr...
Bonjour,
Perso, je verrai plutôt quelque chose dans ce style qui gère l'erreur si
diférente de 0
( donc feuille existe ), mais c'est juste mon avis ......
Sub x()
On Error Resume Next
Sheets("Temp").Select
If Err <> 0 Then
Sheets.Add after:¬tiveSheet
ActiveSheet.Name = "Temp"
End If
End Sub
Pounet95
"Alfred WALLACE" <jose6a@gmail.com> a écrit dans le message de news:
1165581777.394760.21650@j72g2000cwa.googlegroups.com...
bonjour,
je suis coincé.... tres "fort" sur la création d'une feuille
temporaire.
Que signifie ce message d'erreur ? j'utilise ce code ailleurs dans mon
prg sans problèmes.
Sub Recherche_de_valeurs()
On Error Resume Next
Dim Sht As Worksheet '
Set Sht = Worksheets("temp01") <---- c'est ICI que j'ai
l'erreur en objet !
On Error GoTo 0 <---- pourtant j'ai
bien le on Error Resume Next !
If Sht01 Is Nothing Then
Sheets.Add.Name = "temp01"
Else
Worksheets("temp01").Columns.Clear
End If
j'ai besoin de cette feuille temporaire. et je tourne en rond depuis un
bon moment.
Bonjour. Encore un amateur de l'ex-dictée de Pivot ? :-))) Daniel "Pounet95" <grumlardchezouanadoupointfr> a écrit dans le message de news: 45796475$0$27384$
1001 excuses, mais c'est différente qu'il faut lire ( p.... de clavier wifi !!! ) au lieu de 'diférente' C'est pas grand chose, mais j'y tiens
"Pounet95" <grumlardchezouanadoupointfr> a écrit dans le message de news: 457963db$0$5078$
Bonjour, Perso, je verrai plutôt quelque chose dans ce style qui gère l'erreur si diférente de 0 ( donc feuille existe ), mais c'est juste mon avis ......
Sub x() On Error Resume Next Sheets("Temp").Select If Err <> 0 Then Sheets.Add after:¬tiveSheet ActiveSheet.Name = "Temp" End If End Sub
Pounet95
"Alfred WALLACE" a écrit dans le message de news:
bonjour, je suis coincé.... tres "fort" sur la création d'une feuille temporaire.
Que signifie ce message d'erreur ? j'utilise ce code ailleurs dans mon prg sans problèmes.
Sub Recherche_de_valeurs() On Error Resume Next Dim Sht As Worksheet '
Set Sht = Worksheets("temp01") <---- c'est ICI que j'ai l'erreur en objet !
On Error GoTo 0 <---- pourtant j'ai bien le on Error Resume Next !
If Sht01 Is Nothing Then Sheets.Add.Name = "temp01" Else Worksheets("temp01").Columns.Clear End If
j'ai besoin de cette feuille temporaire. et je tourne en rond depuis un bon moment.
est-ce que quelqu'un à une piste ?
Merci
José
Pounet95
OUI et non car trop difficile pour moi et surtout pas, à mon avis, significative, car réservée à ceux et celles qui ont comme livre de chevet un dictionnaire voire une enyclopédie. Je tente de me limiter aux mots que je crois être du langage courant, et c'est déjà pas si mal.
PS : c'est quand même pratique d'accuser son clavier wifi ;o)))) Pounet95
"Daniel" a écrit dans le message de news: %
Bonjour. Encore un amateur de l'ex-dictée de Pivot ? :-))) Daniel "Pounet95" <grumlardchezouanadoupointfr> a écrit dans le message de news: 45796475$0$27384$
1001 excuses, mais c'est différente qu'il faut lire ( p.... de clavier wifi !!! ) au lieu de 'diférente' C'est pas grand chose, mais j'y tiens
"Pounet95" <grumlardchezouanadoupointfr> a écrit dans le message de news: 457963db$0$5078$
Bonjour, Perso, je verrai plutôt quelque chose dans ce style qui gère l'erreur si diférente de 0 ( donc feuille existe ), mais c'est juste mon avis ......
Sub x() On Error Resume Next Sheets("Temp").Select If Err <> 0 Then Sheets.Add after:¬tiveSheet ActiveSheet.Name = "Temp" End If End Sub
Pounet95
"Alfred WALLACE" a écrit dans le message de news:
bonjour, je suis coincé.... tres "fort" sur la création d'une feuille temporaire.
Que signifie ce message d'erreur ? j'utilise ce code ailleurs dans mon prg sans problèmes.
Sub Recherche_de_valeurs() On Error Resume Next Dim Sht As Worksheet '
Set Sht = Worksheets("temp01") <---- c'est ICI que j'ai l'erreur en objet !
On Error GoTo 0 <---- pourtant j'ai bien le on Error Resume Next !
If Sht01 Is Nothing Then Sheets.Add.Name = "temp01" Else Worksheets("temp01").Columns.Clear End If
j'ai besoin de cette feuille temporaire. et je tourne en rond depuis un bon moment.
est-ce que quelqu'un à une piste ?
Merci
José
OUI et non car trop difficile pour moi et surtout pas, à mon avis,
significative, car réservée à ceux et celles qui ont comme livre de chevet
un dictionnaire voire une enyclopédie.
Je tente de me limiter aux mots que je crois être du langage courant, et
c'est déjà pas si mal.
PS : c'est quand même pratique d'accuser son clavier wifi ;o))))
Pounet95
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
%23cN4bvsGHHA.420@TK2MSFTNGP06.phx.gbl...
Bonjour.
Encore un amateur de l'ex-dictée de Pivot ? :-)))
Daniel
"Pounet95" <grumlardchezouanadoupointfr> a écrit dans le message de news:
45796475$0$27384$ba4acef3@news.orange.fr...
1001 excuses, mais c'est différente qu'il faut lire ( p.... de clavier
wifi !!! ) au lieu de 'diférente'
C'est pas grand chose, mais j'y tiens
"Pounet95" <grumlardchezouanadoupointfr> a écrit dans le message de news:
457963db$0$5078$ba4acef3@news.orange.fr...
Bonjour,
Perso, je verrai plutôt quelque chose dans ce style qui gère l'erreur si
diférente de 0
( donc feuille existe ), mais c'est juste mon avis ......
Sub x()
On Error Resume Next
Sheets("Temp").Select
If Err <> 0 Then
Sheets.Add after:¬tiveSheet
ActiveSheet.Name = "Temp"
End If
End Sub
Pounet95
"Alfred WALLACE" <jose6a@gmail.com> a écrit dans le message de news:
1165581777.394760.21650@j72g2000cwa.googlegroups.com...
bonjour,
je suis coincé.... tres "fort" sur la création d'une feuille
temporaire.
Que signifie ce message d'erreur ? j'utilise ce code ailleurs dans mon
prg sans problèmes.
Sub Recherche_de_valeurs()
On Error Resume Next
Dim Sht As Worksheet '
Set Sht = Worksheets("temp01") <---- c'est ICI que j'ai
l'erreur en objet !
On Error GoTo 0 <---- pourtant j'ai
bien le on Error Resume Next !
If Sht01 Is Nothing Then
Sheets.Add.Name = "temp01"
Else
Worksheets("temp01").Columns.Clear
End If
j'ai besoin de cette feuille temporaire. et je tourne en rond depuis un
bon moment.
OUI et non car trop difficile pour moi et surtout pas, à mon avis, significative, car réservée à ceux et celles qui ont comme livre de chevet un dictionnaire voire une enyclopédie. Je tente de me limiter aux mots que je crois être du langage courant, et c'est déjà pas si mal.
PS : c'est quand même pratique d'accuser son clavier wifi ;o)))) Pounet95
"Daniel" a écrit dans le message de news: %
Bonjour. Encore un amateur de l'ex-dictée de Pivot ? :-))) Daniel "Pounet95" <grumlardchezouanadoupointfr> a écrit dans le message de news: 45796475$0$27384$
1001 excuses, mais c'est différente qu'il faut lire ( p.... de clavier wifi !!! ) au lieu de 'diférente' C'est pas grand chose, mais j'y tiens
"Pounet95" <grumlardchezouanadoupointfr> a écrit dans le message de news: 457963db$0$5078$
Bonjour, Perso, je verrai plutôt quelque chose dans ce style qui gère l'erreur si diférente de 0 ( donc feuille existe ), mais c'est juste mon avis ......
Sub x() On Error Resume Next Sheets("Temp").Select If Err <> 0 Then Sheets.Add after:¬tiveSheet ActiveSheet.Name = "Temp" End If End Sub
Pounet95
"Alfred WALLACE" a écrit dans le message de news:
bonjour, je suis coincé.... tres "fort" sur la création d'une feuille temporaire.
Que signifie ce message d'erreur ? j'utilise ce code ailleurs dans mon prg sans problèmes.
Sub Recherche_de_valeurs() On Error Resume Next Dim Sht As Worksheet '
Set Sht = Worksheets("temp01") <---- c'est ICI que j'ai l'erreur en objet !
On Error GoTo 0 <---- pourtant j'ai bien le on Error Resume Next !
If Sht01 Is Nothing Then Sheets.Add.Name = "temp01" Else Worksheets("temp01").Columns.Clear End If
j'ai besoin de cette feuille temporaire. et je tourne en rond depuis un bon moment.
est-ce que quelqu'un à une piste ?
Merci
José
Alfred WALLACE
heu, pardon de "rabaisser" le débat au niveau vébéien.... voici le code. remarque : la première création fonctionne, mais PAS la deuxieme !!!! au secours !!!!
Set Sht0 = Worksheets(NomFeuille_calc_tcd) On Error GoTo 0 Err.Clear If Sht0 Is Nothing Then ' si le pointeur est "rien" c'est qu'il faut créer la feuille Sheets.Add.Name = NomFeuille_calc_tcd Else ' sinon on elle existe, et on la vide Sheets(NomFeuille_calc_tcd).Select: Cells.Select: Selection.Delete Shift:=xlUp Range("A1").Select End If LE CODE CI-DESSUS FONCTIONNE
Set Sht0 = Nothing Stop: Stop: Stop: Stop nom_tempo = "tempoA" Set Sht0 = Worksheets(nom_tempo) <<<<< ICI CELA NE MARCHE PLUS.... On Error GoTo 0 Err.Clear If Sht0 Is Nothing Then Sheets.Add.Name = nom_tempo Else Sheets(nom_tempo).Select: Cells.Select: Selection.Delete Shift:=xlUp Range("A1").Select End If
je suis vraiment bloqué sur ce problème.
avez vous une idée ??
ps : Pounet, ton code genère aussi la même erreur.
OUI et non car trop difficile pour moi et surtout pas, à mon avis, significative, car réservée à ceux et celles qui ont comme livre de chevet un dictionnaire voire une enyclopédie. Je tente de me limiter aux mots que je crois être du langage courant, et c'est déjà pas si mal.
PS : c'est quand même pratique d'accuser son clavier wifi ;o)))) Pounet95
"Daniel" a écrit dans le message de news: %
Bonjour. Encore un amateur de l'ex-dictée de Pivot ? :-))) Daniel "Pounet95" <grumlardchezouanadoupointfr> a écrit dans le message de n ews: 45796475$0$27384$
1001 excuses, mais c'est différente qu'il faut lire ( p.... de clav ier wifi !!! ) au lieu de 'diférente' C'est pas grand chose, mais j'y tiens
"Pounet95" <grumlardchezouanadoupointfr> a écrit dans le message de news: 457963db$0$5078$
Bonjour, Perso, je verrai plutôt quelque chose dans ce style qui gère l'er reur si diférente de 0 ( donc feuille existe ), mais c'est juste mon avis ......
Sub x() On Error Resume Next Sheets("Temp").Select If Err <> 0 Then Sheets.Add after:¬tiveSheet ActiveSheet.Name = "Temp" End If End Sub
Pounet95
"Alfred WALLACE" a écrit dans le message de news:
bonjour, je suis coincé.... tres "fort" sur la création d'une feuille temporaire.
Que signifie ce message d'erreur ? j'utilise ce code ailleurs dans mon prg sans problèmes.
Sub Recherche_de_valeurs() On Error Resume Next Dim Sht As Worksheet '
Set Sht = Worksheets("temp01") <---- c'est ICI que j'ai l'erreur en objet !
On Error GoTo 0 <---- pourtant j'ai bien le on Error Resume Next !
If Sht01 Is Nothing Then Sheets.Add.Name = "temp01" Else Worksheets("temp01").Columns.Clear End If
j'ai besoin de cette feuille temporaire. et je tourne en rond depuis un bon moment.
est-ce que quelqu'un à une piste ?
Merci
José
heu, pardon de "rabaisser" le débat au niveau vébéien....
voici le code. remarque : la première création fonctionne, mais PAS
la deuxieme !!!!
au secours !!!!
Set Sht0 = Worksheets(NomFeuille_calc_tcd)
On Error GoTo 0
Err.Clear
If Sht0 Is Nothing Then ' si le pointeur est "rien"
c'est qu'il faut créer la feuille
Sheets.Add.Name = NomFeuille_calc_tcd
Else
' sinon on elle existe, et on la vide
Sheets(NomFeuille_calc_tcd).Select: Cells.Select: Selection.Delete
Shift:=xlUp
Range("A1").Select
End If
LE CODE CI-DESSUS FONCTIONNE
Set Sht0 = Nothing
Stop: Stop: Stop: Stop
nom_tempo = "tempoA"
Set Sht0 = Worksheets(nom_tempo) <<<<< ICI CELA NE MARCHE PLUS....
On Error GoTo 0
Err.Clear
If Sht0 Is Nothing Then
Sheets.Add.Name = nom_tempo
Else
Sheets(nom_tempo).Select: Cells.Select: Selection.Delete Shift:=xlUp
Range("A1").Select
End If
je suis vraiment bloqué sur ce problème.
avez vous une idée ??
ps : Pounet, ton code genère aussi la même erreur.
OUI et non car trop difficile pour moi et surtout pas, à mon avis,
significative, car réservée à ceux et celles qui ont comme livre de chevet
un dictionnaire voire une enyclopédie.
Je tente de me limiter aux mots que je crois être du langage courant, et
c'est déjà pas si mal.
PS : c'est quand même pratique d'accuser son clavier wifi ;o))))
Pounet95
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
%23cN4bvsGHHA.420@TK2MSFTNGP06.phx.gbl...
Bonjour.
Encore un amateur de l'ex-dictée de Pivot ? :-)))
Daniel
"Pounet95" <grumlardchezouanadoupointfr> a écrit dans le message de n ews:
45796475$0$27384$ba4acef3@news.orange.fr...
1001 excuses, mais c'est différente qu'il faut lire ( p.... de clav ier
wifi !!! ) au lieu de 'diférente'
C'est pas grand chose, mais j'y tiens
"Pounet95" <grumlardchezouanadoupointfr> a écrit dans le message de news:
457963db$0$5078$ba4acef3@news.orange.fr...
Bonjour,
Perso, je verrai plutôt quelque chose dans ce style qui gère l'er reur si
diférente de 0
( donc feuille existe ), mais c'est juste mon avis ......
Sub x()
On Error Resume Next
Sheets("Temp").Select
If Err <> 0 Then
Sheets.Add after:=ActiveSheet
ActiveSheet.Name = "Temp"
End If
End Sub
Pounet95
"Alfred WALLACE" <jose6a@gmail.com> a écrit dans le message de news:
1165581777.394760.21650@j72g2000cwa.googlegroups.com...
bonjour,
je suis coincé.... tres "fort" sur la création d'une feuille
temporaire.
Que signifie ce message d'erreur ? j'utilise ce code ailleurs dans mon
prg sans problèmes.
Sub Recherche_de_valeurs()
On Error Resume Next
Dim Sht As Worksheet '
Set Sht = Worksheets("temp01") <---- c'est ICI que j'ai
l'erreur en objet !
On Error GoTo 0 <---- pourtant j'ai
bien le on Error Resume Next !
If Sht01 Is Nothing Then
Sheets.Add.Name = "temp01"
Else
Worksheets("temp01").Columns.Clear
End If
j'ai besoin de cette feuille temporaire. et je tourne en rond depuis un
bon moment.
heu, pardon de "rabaisser" le débat au niveau vébéien.... voici le code. remarque : la première création fonctionne, mais PAS la deuxieme !!!! au secours !!!!
Set Sht0 = Worksheets(NomFeuille_calc_tcd) On Error GoTo 0 Err.Clear If Sht0 Is Nothing Then ' si le pointeur est "rien" c'est qu'il faut créer la feuille Sheets.Add.Name = NomFeuille_calc_tcd Else ' sinon on elle existe, et on la vide Sheets(NomFeuille_calc_tcd).Select: Cells.Select: Selection.Delete Shift:=xlUp Range("A1").Select End If LE CODE CI-DESSUS FONCTIONNE
Set Sht0 = Nothing Stop: Stop: Stop: Stop nom_tempo = "tempoA" Set Sht0 = Worksheets(nom_tempo) <<<<< ICI CELA NE MARCHE PLUS.... On Error GoTo 0 Err.Clear If Sht0 Is Nothing Then Sheets.Add.Name = nom_tempo Else Sheets(nom_tempo).Select: Cells.Select: Selection.Delete Shift:=xlUp Range("A1").Select End If
je suis vraiment bloqué sur ce problème.
avez vous une idée ??
ps : Pounet, ton code genère aussi la même erreur.
OUI et non car trop difficile pour moi et surtout pas, à mon avis, significative, car réservée à ceux et celles qui ont comme livre de chevet un dictionnaire voire une enyclopédie. Je tente de me limiter aux mots que je crois être du langage courant, et c'est déjà pas si mal.
PS : c'est quand même pratique d'accuser son clavier wifi ;o)))) Pounet95
"Daniel" a écrit dans le message de news: %
Bonjour. Encore un amateur de l'ex-dictée de Pivot ? :-))) Daniel "Pounet95" <grumlardchezouanadoupointfr> a écrit dans le message de n ews: 45796475$0$27384$
1001 excuses, mais c'est différente qu'il faut lire ( p.... de clav ier wifi !!! ) au lieu de 'diférente' C'est pas grand chose, mais j'y tiens
"Pounet95" <grumlardchezouanadoupointfr> a écrit dans le message de news: 457963db$0$5078$
Bonjour, Perso, je verrai plutôt quelque chose dans ce style qui gère l'er reur si diférente de 0 ( donc feuille existe ), mais c'est juste mon avis ......
Sub x() On Error Resume Next Sheets("Temp").Select If Err <> 0 Then Sheets.Add after:¬tiveSheet ActiveSheet.Name = "Temp" End If End Sub
Pounet95
"Alfred WALLACE" a écrit dans le message de news:
bonjour, je suis coincé.... tres "fort" sur la création d'une feuille temporaire.
Que signifie ce message d'erreur ? j'utilise ce code ailleurs dans mon prg sans problèmes.
Sub Recherche_de_valeurs() On Error Resume Next Dim Sht As Worksheet '
Set Sht = Worksheets("temp01") <---- c'est ICI que j'ai l'erreur en objet !
On Error GoTo 0 <---- pourtant j'ai bien le on Error Resume Next !
If Sht01 Is Nothing Then Sheets.Add.Name = "temp01" Else Worksheets("temp01").Columns.Clear End If
j'ai besoin de cette feuille temporaire. et je tourne en rond depuis un bon moment.
est-ce que quelqu'un à une piste ?
Merci
José
Daniel
Je vois que l'on est sur la même longueur d'onde ou (d'ondes ?) ;-))) Daniel "Pounet95" <grumlardchezouanadoupointfr> a écrit dans le message de news: 4579690d$0$25928$
OUI et non car trop difficile pour moi et surtout pas, à mon avis, significative, car réservée à ceux et celles qui ont comme livre de chevet un dictionnaire voire une enyclopédie. Je tente de me limiter aux mots que je crois être du langage courant, et c'est déjà pas si mal.
PS : c'est quand même pratique d'accuser son clavier wifi ;o)))) Pounet95
"Daniel" a écrit dans le message de news: %
Bonjour. Encore un amateur de l'ex-dictée de Pivot ? :-))) Daniel "Pounet95" <grumlardchezouanadoupointfr> a écrit dans le message de news: 45796475$0$27384$
1001 excuses, mais c'est différente qu'il faut lire ( p.... de clavier wifi !!! ) au lieu de 'diférente' C'est pas grand chose, mais j'y tiens
"Pounet95" <grumlardchezouanadoupointfr> a écrit dans le message de news: 457963db$0$5078$
Bonjour, Perso, je verrai plutôt quelque chose dans ce style qui gère l'erreur si diférente de 0 ( donc feuille existe ), mais c'est juste mon avis ......
Sub x() On Error Resume Next Sheets("Temp").Select If Err <> 0 Then Sheets.Add after:¬tiveSheet ActiveSheet.Name = "Temp" End If End Sub
Pounet95
"Alfred WALLACE" a écrit dans le message de news:
bonjour, je suis coincé.... tres "fort" sur la création d'une feuille temporaire.
Que signifie ce message d'erreur ? j'utilise ce code ailleurs dans mon prg sans problèmes.
Sub Recherche_de_valeurs() On Error Resume Next Dim Sht As Worksheet '
Set Sht = Worksheets("temp01") <---- c'est ICI que j'ai l'erreur en objet !
On Error GoTo 0 <---- pourtant j'ai bien le on Error Resume Next !
If Sht01 Is Nothing Then Sheets.Add.Name = "temp01" Else Worksheets("temp01").Columns.Clear End If
j'ai besoin de cette feuille temporaire. et je tourne en rond depuis un bon moment.
est-ce que quelqu'un à une piste ?
Merci
José
Je vois que l'on est sur la même longueur d'onde ou (d'ondes ?) ;-)))
Daniel
"Pounet95" <grumlardchezouanadoupointfr> a écrit dans le message de news:
4579690d$0$25928$ba4acef3@news.orange.fr...
OUI et non car trop difficile pour moi et surtout pas, à mon avis,
significative, car réservée à ceux et celles qui ont comme livre de chevet
un dictionnaire voire une enyclopédie.
Je tente de me limiter aux mots que je crois être du langage courant, et
c'est déjà pas si mal.
PS : c'est quand même pratique d'accuser son clavier wifi ;o))))
Pounet95
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
%23cN4bvsGHHA.420@TK2MSFTNGP06.phx.gbl...
Bonjour.
Encore un amateur de l'ex-dictée de Pivot ? :-)))
Daniel
"Pounet95" <grumlardchezouanadoupointfr> a écrit dans le message de news:
45796475$0$27384$ba4acef3@news.orange.fr...
1001 excuses, mais c'est différente qu'il faut lire ( p.... de clavier
wifi !!! ) au lieu de 'diférente'
C'est pas grand chose, mais j'y tiens
"Pounet95" <grumlardchezouanadoupointfr> a écrit dans le message de
news: 457963db$0$5078$ba4acef3@news.orange.fr...
Bonjour,
Perso, je verrai plutôt quelque chose dans ce style qui gère l'erreur
si diférente de 0
( donc feuille existe ), mais c'est juste mon avis ......
Sub x()
On Error Resume Next
Sheets("Temp").Select
If Err <> 0 Then
Sheets.Add after:¬tiveSheet
ActiveSheet.Name = "Temp"
End If
End Sub
Pounet95
"Alfred WALLACE" <jose6a@gmail.com> a écrit dans le message de news:
1165581777.394760.21650@j72g2000cwa.googlegroups.com...
bonjour,
je suis coincé.... tres "fort" sur la création d'une feuille
temporaire.
Que signifie ce message d'erreur ? j'utilise ce code ailleurs dans mon
prg sans problèmes.
Sub Recherche_de_valeurs()
On Error Resume Next
Dim Sht As Worksheet '
Set Sht = Worksheets("temp01") <---- c'est ICI que j'ai
l'erreur en objet !
On Error GoTo 0 <---- pourtant j'ai
bien le on Error Resume Next !
If Sht01 Is Nothing Then
Sheets.Add.Name = "temp01"
Else
Worksheets("temp01").Columns.Clear
End If
j'ai besoin de cette feuille temporaire. et je tourne en rond depuis un
bon moment.
Je vois que l'on est sur la même longueur d'onde ou (d'ondes ?) ;-))) Daniel "Pounet95" <grumlardchezouanadoupointfr> a écrit dans le message de news: 4579690d$0$25928$
OUI et non car trop difficile pour moi et surtout pas, à mon avis, significative, car réservée à ceux et celles qui ont comme livre de chevet un dictionnaire voire une enyclopédie. Je tente de me limiter aux mots que je crois être du langage courant, et c'est déjà pas si mal.
PS : c'est quand même pratique d'accuser son clavier wifi ;o)))) Pounet95
"Daniel" a écrit dans le message de news: %
Bonjour. Encore un amateur de l'ex-dictée de Pivot ? :-))) Daniel "Pounet95" <grumlardchezouanadoupointfr> a écrit dans le message de news: 45796475$0$27384$
1001 excuses, mais c'est différente qu'il faut lire ( p.... de clavier wifi !!! ) au lieu de 'diférente' C'est pas grand chose, mais j'y tiens
"Pounet95" <grumlardchezouanadoupointfr> a écrit dans le message de news: 457963db$0$5078$
Bonjour, Perso, je verrai plutôt quelque chose dans ce style qui gère l'erreur si diférente de 0 ( donc feuille existe ), mais c'est juste mon avis ......
Sub x() On Error Resume Next Sheets("Temp").Select If Err <> 0 Then Sheets.Add after:¬tiveSheet ActiveSheet.Name = "Temp" End If End Sub
Pounet95
"Alfred WALLACE" a écrit dans le message de news:
bonjour, je suis coincé.... tres "fort" sur la création d'une feuille temporaire.
Que signifie ce message d'erreur ? j'utilise ce code ailleurs dans mon prg sans problèmes.
Sub Recherche_de_valeurs() On Error Resume Next Dim Sht As Worksheet '
Set Sht = Worksheets("temp01") <---- c'est ICI que j'ai l'erreur en objet !
On Error GoTo 0 <---- pourtant j'ai bien le on Error Resume Next !
If Sht01 Is Nothing Then Sheets.Add.Name = "temp01" Else Worksheets("temp01").Columns.Clear End If
j'ai besoin de cette feuille temporaire. et je tourne en rond depuis un bon moment.
