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
JPMonnier
Bonsoir ActiveWorkbook.Sheets("feuil2").Select sans ("feuilx"), la feuille par défaut est feuil1 Cordialement Jean Pierre "IMER09" a écrit dans le message de news:
L'insertion de la ligne fonctionne sur toute les feuil Mais le reste ne fonctionne pas De plus qd je le fait en manuel pas de pb
Merci
-- IMER09
Bonsoir
ActiveWorkbook.Sheets("feuil2").Select
sans ("feuilx"), la feuille par défaut est feuil1
Cordialement
Jean Pierre
"IMER09" <toto@discussions.microso.com> a écrit dans le message de
news:40F21EA7-2F72-426A-8DDE-D85C0B4DCC34@microsoft.com...
Bonsoir ActiveWorkbook.Sheets("feuil2").Select sans ("feuilx"), la feuille par défaut est feuil1 Cordialement Jean Pierre "IMER09" a écrit dans le message de news:
L'insertion de la ligne fonctionne sur toute les feuil Mais le reste ne fonctionne pas De plus qd je le fait en manuel pas de pb
Merci
-- IMER09
IMER09
Merci JP pourquoi qd toute mes feuil sont select, l'instruction que je veux faire par vba ne fonctionne pas, alors que manuellement ca fonctionne et donc comment faire -- IMER09
Bonsoir ActiveWorkbook.Sheets("feuil2").Select sans ("feuilx"), la feuille par défaut est feuil1 Cordialement Jean Pierre "IMER09" a écrit dans le message de news:
L'insertion de la ligne fonctionne sur toute les feuil Mais le reste ne fonctionne pas De plus qd je le fait en manuel pas de pb
Merci
-- IMER09
Merci JP
pourquoi qd toute mes feuil sont select, l'instruction que je veux faire
par vba
ne fonctionne pas, alors que manuellement ca fonctionne et donc comment faire
--
IMER09
Bonsoir
ActiveWorkbook.Sheets("feuil2").Select
sans ("feuilx"), la feuille par défaut est feuil1
Cordialement
Jean Pierre
"IMER09" <toto@discussions.microso.com> a écrit dans le message de
news:40F21EA7-2F72-426A-8DDE-D85C0B4DCC34@microsoft.com...
Merci JP pourquoi qd toute mes feuil sont select, l'instruction que je veux faire par vba ne fonctionne pas, alors que manuellement ca fonctionne et donc comment faire -- IMER09
Bonsoir ActiveWorkbook.Sheets("feuil2").Select sans ("feuilx"), la feuille par défaut est feuil1 Cordialement Jean Pierre "IMER09" a écrit dans le message de news:
L'insertion de la ligne fonctionne sur toute les feuil Mais le reste ne fonctionne pas De plus qd je le fait en manuel pas de pb
Merci
-- IMER09
JPMonnier
C'est vrai que ça marche en manuel, en vba j'utiliserais cela Sub a() nb = Sheets.Count For x = 1 To nb ' compte le nb de feuilles ActiveWorkbook.Sheets(x).Select Rows("1:1").Select Selection.Insert Shift:=xlDown Range("A1") = "TYPE" Columns("A:A").ColumnWidth = 21.29 Next End Sub
-- Cordialement Jean Pierre "IMER09" a écrit dans le message de news:
Merci JP pourquoi qd toute mes feuil sont select, l'instruction que je veux faire par vba ne fonctionne pas, alors que manuellement ca fonctionne et donc comment faire -- IMER09
Bonsoir ActiveWorkbook.Sheets("feuil2").Select sans ("feuilx"), la feuille par défaut est feuil1 Cordialement Jean Pierre "IMER09" a écrit dans le message de news:
L'insertion de la ligne fonctionne sur toute les feuil Mais le reste ne fonctionne pas De plus qd je le fait en manuel pas de pb
Merci
-- IMER09
C'est vrai que ça marche en manuel, en vba j'utiliserais cela
Sub a()
nb = Sheets.Count
For x = 1 To nb ' compte le nb de feuilles
ActiveWorkbook.Sheets(x).Select
Rows("1:1").Select
Selection.Insert Shift:=xlDown
Range("A1") = "TYPE"
Columns("A:A").ColumnWidth = 21.29
Next
End Sub
--
Cordialement
Jean Pierre
"IMER09" <toto@discussions.microso.com> a écrit dans le message de
news:907A97C3-6DB0-4648-AD06-D4E847129929@microsoft.com...
Merci JP
pourquoi qd toute mes feuil sont select, l'instruction que je veux faire
par vba
ne fonctionne pas, alors que manuellement ca fonctionne et donc comment
faire
--
IMER09
Bonsoir
ActiveWorkbook.Sheets("feuil2").Select
sans ("feuilx"), la feuille par défaut est feuil1
Cordialement
Jean Pierre
"IMER09" <toto@discussions.microso.com> a écrit dans le message de
news:40F21EA7-2F72-426A-8DDE-D85C0B4DCC34@microsoft.com...
C'est vrai que ça marche en manuel, en vba j'utiliserais cela Sub a() nb = Sheets.Count For x = 1 To nb ' compte le nb de feuilles ActiveWorkbook.Sheets(x).Select Rows("1:1").Select Selection.Insert Shift:=xlDown Range("A1") = "TYPE" Columns("A:A").ColumnWidth = 21.29 Next End Sub
-- Cordialement Jean Pierre "IMER09" a écrit dans le message de news:
Merci JP pourquoi qd toute mes feuil sont select, l'instruction que je veux faire par vba ne fonctionne pas, alors que manuellement ca fonctionne et donc comment faire -- IMER09
Bonsoir ActiveWorkbook.Sheets("feuil2").Select sans ("feuilx"), la feuille par défaut est feuil1 Cordialement Jean Pierre "IMER09" a écrit dans le message de news:
L'insertion de la ligne fonctionne sur toute les feuil Mais le reste ne fonctionne pas De plus qd je le fait en manuel pas de pb
Merci
-- IMER09
IMER09
Merci JP c'est parfait Une question qui me ronge : Pourquoi certain code , celui que tu ma fournis en fait parti, quand il sont dans une procedure par ex :Private Sub CommandButton1_Click() ne fonctionne pas alors que ds un module ils fonctionnent -- IMER09
C'est vrai que ça marche en manuel, en vba j'utiliserais cela Sub a() nb = Sheets.Count For x = 1 To nb ' compte le nb de feuilles ActiveWorkbook.Sheets(x).Select Rows("1:1").Select Selection.Insert Shift:=xlDown Range("A1") = "TYPE" Columns("A:A").ColumnWidth = 21.29 Next End Sub
-- Cordialement Jean Pierre "IMER09" a écrit dans le message de news:
Merci JP pourquoi qd toute mes feuil sont select, l'instruction que je veux faire par vba ne fonctionne pas, alors que manuellement ca fonctionne et donc comment faire -- IMER09
Bonsoir ActiveWorkbook.Sheets("feuil2").Select sans ("feuilx"), la feuille par défaut est feuil1 Cordialement Jean Pierre "IMER09" a écrit dans le message de news:
L'insertion de la ligne fonctionne sur toute les feuil Mais le reste ne fonctionne pas De plus qd je le fait en manuel pas de pb
Merci
-- IMER09
Merci JP c'est parfait
Une question qui me ronge :
Pourquoi certain code , celui que tu ma fournis en fait parti, quand il sont
dans une procedure par ex :Private Sub CommandButton1_Click() ne fonctionne
pas alors que ds un module ils fonctionnent
--
IMER09
C'est vrai que ça marche en manuel, en vba j'utiliserais cela
Sub a()
nb = Sheets.Count
For x = 1 To nb ' compte le nb de feuilles
ActiveWorkbook.Sheets(x).Select
Rows("1:1").Select
Selection.Insert Shift:=xlDown
Range("A1") = "TYPE"
Columns("A:A").ColumnWidth = 21.29
Next
End Sub
--
Cordialement
Jean Pierre
"IMER09" <toto@discussions.microso.com> a écrit dans le message de
news:907A97C3-6DB0-4648-AD06-D4E847129929@microsoft.com...
Merci JP
pourquoi qd toute mes feuil sont select, l'instruction que je veux faire
par vba
ne fonctionne pas, alors que manuellement ca fonctionne et donc comment
faire
--
IMER09
Bonsoir
ActiveWorkbook.Sheets("feuil2").Select
sans ("feuilx"), la feuille par défaut est feuil1
Cordialement
Jean Pierre
"IMER09" <toto@discussions.microso.com> a écrit dans le message de
news:40F21EA7-2F72-426A-8DDE-D85C0B4DCC34@microsoft.com...
Merci JP c'est parfait Une question qui me ronge : Pourquoi certain code , celui que tu ma fournis en fait parti, quand il sont dans une procedure par ex :Private Sub CommandButton1_Click() ne fonctionne pas alors que ds un module ils fonctionnent -- IMER09
C'est vrai que ça marche en manuel, en vba j'utiliserais cela Sub a() nb = Sheets.Count For x = 1 To nb ' compte le nb de feuilles ActiveWorkbook.Sheets(x).Select Rows("1:1").Select Selection.Insert Shift:=xlDown Range("A1") = "TYPE" Columns("A:A").ColumnWidth = 21.29 Next End Sub
-- Cordialement Jean Pierre "IMER09" a écrit dans le message de news:
Merci JP pourquoi qd toute mes feuil sont select, l'instruction que je veux faire par vba ne fonctionne pas, alors que manuellement ca fonctionne et donc comment faire -- IMER09
Bonsoir ActiveWorkbook.Sheets("feuil2").Select sans ("feuilx"), la feuille par défaut est feuil1 Cordialement Jean Pierre "IMER09" a écrit dans le message de news:
L'insertion de la ligne fonctionne sur toute les feuil Mais le reste ne fonctionne pas De plus qd je le fait en manuel pas de pb
Merci
-- IMER09
JPMonnier
j'ai exécuter la sub avec commandbutton_click,ça fonctionne pareil chez moi excel 2000 Cordialement Jean Pierre "IMER09" a écrit dans le message de news:
Merci JP c'est parfait Une question qui me ronge : Pourquoi certain code , celui que tu ma fournis en fait parti, quand il sont dans une procedure par ex :Private Sub CommandButton1_Click() ne fonctionne pas alors que ds un module ils fonctionnent -- IMER09
C'est vrai que ça marche en manuel, en vba j'utiliserais cela Sub a() nb = Sheets.Count For x = 1 To nb ' compte le nb de feuilles ActiveWorkbook.Sheets(x).Select Rows("1:1").Select Selection.Insert Shift:=xlDown Range("A1") = "TYPE" Columns("A:A").ColumnWidth = 21.29 Next End Sub
-- Cordialement Jean Pierre "IMER09" a écrit dans le message de news:
Merci JP pourquoi qd toute mes feuil sont select, l'instruction que je veux faire par vba ne fonctionne pas, alors que manuellement ca fonctionne et donc comment faire -- IMER09
Bonsoir ActiveWorkbook.Sheets("feuil2").Select sans ("feuilx"), la feuille par défaut est feuil1 Cordialement Jean Pierre "IMER09" a écrit dans le message de news:
L'insertion de la ligne fonctionne sur toute les feuil Mais le reste ne fonctionne pas De plus qd je le fait en manuel pas de pb
Merci
-- IMER09
j'ai exécuter la sub avec commandbutton_click,ça fonctionne pareil chez moi
excel 2000
Cordialement
Jean Pierre
"IMER09" <toto@discussions.microso.com> a écrit dans le message de
news:7BFAE1A1-4F1D-43EE-959D-AEA3C5110879@microsoft.com...
Merci JP c'est parfait
Une question qui me ronge :
Pourquoi certain code , celui que tu ma fournis en fait parti, quand il
sont
dans une procedure par ex :Private Sub CommandButton1_Click() ne
fonctionne
pas alors que ds un module ils fonctionnent
--
IMER09
C'est vrai que ça marche en manuel, en vba j'utiliserais cela
Sub a()
nb = Sheets.Count
For x = 1 To nb ' compte le nb de feuilles
ActiveWorkbook.Sheets(x).Select
Rows("1:1").Select
Selection.Insert Shift:=xlDown
Range("A1") = "TYPE"
Columns("A:A").ColumnWidth = 21.29
Next
End Sub
--
Cordialement
Jean Pierre
"IMER09" <toto@discussions.microso.com> a écrit dans le message de
news:907A97C3-6DB0-4648-AD06-D4E847129929@microsoft.com...
Merci JP
pourquoi qd toute mes feuil sont select, l'instruction que je veux
faire
par vba
ne fonctionne pas, alors que manuellement ca fonctionne et donc comment
faire
--
IMER09
Bonsoir
ActiveWorkbook.Sheets("feuil2").Select
sans ("feuilx"), la feuille par défaut est feuil1
Cordialement
Jean Pierre
"IMER09" <toto@discussions.microso.com> a écrit dans le message de
news:40F21EA7-2F72-426A-8DDE-D85C0B4DCC34@microsoft.com...
j'ai exécuter la sub avec commandbutton_click,ça fonctionne pareil chez moi excel 2000 Cordialement Jean Pierre "IMER09" a écrit dans le message de news:
Merci JP c'est parfait Une question qui me ronge : Pourquoi certain code , celui que tu ma fournis en fait parti, quand il sont dans une procedure par ex :Private Sub CommandButton1_Click() ne fonctionne pas alors que ds un module ils fonctionnent -- IMER09
C'est vrai que ça marche en manuel, en vba j'utiliserais cela Sub a() nb = Sheets.Count For x = 1 To nb ' compte le nb de feuilles ActiveWorkbook.Sheets(x).Select Rows("1:1").Select Selection.Insert Shift:=xlDown Range("A1") = "TYPE" Columns("A:A").ColumnWidth = 21.29 Next End Sub
-- Cordialement Jean Pierre "IMER09" a écrit dans le message de news:
Merci JP pourquoi qd toute mes feuil sont select, l'instruction que je veux faire par vba ne fonctionne pas, alors que manuellement ca fonctionne et donc comment faire -- IMER09
Bonsoir ActiveWorkbook.Sheets("feuil2").Select sans ("feuilx"), la feuille par défaut est feuil1 Cordialement Jean Pierre "IMER09" a écrit dans le message de news:
L'insertion de la ligne fonctionne sur toute les feuil Mais le reste ne fonctionne pas De plus qd je le fait en manuel pas de pb
Merci
-- IMER09
IMER09
En effet je viens de reessayer et ca fonctionne je dois etre fatigue! En tout cas merci pour tout Bonsoir JP -- IMER09
j'ai exécuter la sub avec commandbutton_click,ça fonctionne pareil chez moi excel 2000 Cordialement Jean Pierre "IMER09" a écrit dans le message de news:
Merci JP c'est parfait Une question qui me ronge : Pourquoi certain code , celui que tu ma fournis en fait parti, quand il sont dans une procedure par ex :Private Sub CommandButton1_Click() ne fonctionne pas alors que ds un module ils fonctionnent -- IMER09
C'est vrai que ça marche en manuel, en vba j'utiliserais cela Sub a() nb = Sheets.Count For x = 1 To nb ' compte le nb de feuilles ActiveWorkbook.Sheets(x).Select Rows("1:1").Select Selection.Insert Shift:=xlDown Range("A1") = "TYPE" Columns("A:A").ColumnWidth = 21.29 Next End Sub
-- Cordialement Jean Pierre "IMER09" a écrit dans le message de news:
Merci JP pourquoi qd toute mes feuil sont select, l'instruction que je veux faire par vba ne fonctionne pas, alors que manuellement ca fonctionne et donc comment faire -- IMER09
Bonsoir ActiveWorkbook.Sheets("feuil2").Select sans ("feuilx"), la feuille par défaut est feuil1 Cordialement Jean Pierre "IMER09" a écrit dans le message de news:
L'insertion de la ligne fonctionne sur toute les feuil Mais le reste ne fonctionne pas De plus qd je le fait en manuel pas de pb
Merci
-- IMER09
En effet je viens de reessayer et ca fonctionne je dois etre fatigue!
En tout cas merci pour tout
Bonsoir JP
--
IMER09
j'ai exécuter la sub avec commandbutton_click,ça fonctionne pareil chez moi
excel 2000
Cordialement
Jean Pierre
"IMER09" <toto@discussions.microso.com> a écrit dans le message de
news:7BFAE1A1-4F1D-43EE-959D-AEA3C5110879@microsoft.com...
Merci JP c'est parfait
Une question qui me ronge :
Pourquoi certain code , celui que tu ma fournis en fait parti, quand il
sont
dans une procedure par ex :Private Sub CommandButton1_Click() ne
fonctionne
pas alors que ds un module ils fonctionnent
--
IMER09
C'est vrai que ça marche en manuel, en vba j'utiliserais cela
Sub a()
nb = Sheets.Count
For x = 1 To nb ' compte le nb de feuilles
ActiveWorkbook.Sheets(x).Select
Rows("1:1").Select
Selection.Insert Shift:=xlDown
Range("A1") = "TYPE"
Columns("A:A").ColumnWidth = 21.29
Next
End Sub
--
Cordialement
Jean Pierre
"IMER09" <toto@discussions.microso.com> a écrit dans le message de
news:907A97C3-6DB0-4648-AD06-D4E847129929@microsoft.com...
Merci JP
pourquoi qd toute mes feuil sont select, l'instruction que je veux
faire
par vba
ne fonctionne pas, alors que manuellement ca fonctionne et donc comment
faire
--
IMER09
Bonsoir
ActiveWorkbook.Sheets("feuil2").Select
sans ("feuilx"), la feuille par défaut est feuil1
Cordialement
Jean Pierre
"IMER09" <toto@discussions.microso.com> a écrit dans le message de
news:40F21EA7-2F72-426A-8DDE-D85C0B4DCC34@microsoft.com...
En effet je viens de reessayer et ca fonctionne je dois etre fatigue! En tout cas merci pour tout Bonsoir JP -- IMER09
j'ai exécuter la sub avec commandbutton_click,ça fonctionne pareil chez moi excel 2000 Cordialement Jean Pierre "IMER09" a écrit dans le message de news:
Merci JP c'est parfait Une question qui me ronge : Pourquoi certain code , celui que tu ma fournis en fait parti, quand il sont dans une procedure par ex :Private Sub CommandButton1_Click() ne fonctionne pas alors que ds un module ils fonctionnent -- IMER09
C'est vrai que ça marche en manuel, en vba j'utiliserais cela Sub a() nb = Sheets.Count For x = 1 To nb ' compte le nb de feuilles ActiveWorkbook.Sheets(x).Select Rows("1:1").Select Selection.Insert Shift:=xlDown Range("A1") = "TYPE" Columns("A:A").ColumnWidth = 21.29 Next End Sub
-- Cordialement Jean Pierre "IMER09" a écrit dans le message de news:
Merci JP pourquoi qd toute mes feuil sont select, l'instruction que je veux faire par vba ne fonctionne pas, alors que manuellement ca fonctionne et donc comment faire -- IMER09
Bonsoir ActiveWorkbook.Sheets("feuil2").Select sans ("feuilx"), la feuille par défaut est feuil1 Cordialement Jean Pierre "IMER09" a écrit dans le message de news:
L'insertion de la ligne fonctionne sur toute les feuil Mais le reste ne fonctionne pas De plus qd je le fait en manuel pas de pb
Merci
-- IMER09
IMER09
Une derniere question
Si je veux exclure 1 feuil de cette selection dont je connait le nom est ce possilble? -- IMER09
En effet je viens de reessayer et ca fonctionne je dois etre fatigue! En tout cas merci pour tout Bonsoir JP -- IMER09
j'ai exécuter la sub avec commandbutton_click,ça fonctionne pareil chez moi excel 2000 Cordialement Jean Pierre "IMER09" a écrit dans le message de news:
Merci JP c'est parfait Une question qui me ronge : Pourquoi certain code , celui que tu ma fournis en fait parti, quand il sont dans une procedure par ex :Private Sub CommandButton1_Click() ne fonctionne pas alors que ds un module ils fonctionnent -- IMER09
C'est vrai que ça marche en manuel, en vba j'utiliserais cela Sub a() nb = Sheets.Count For x = 1 To nb ' compte le nb de feuilles ActiveWorkbook.Sheets(x).Select Rows("1:1").Select Selection.Insert Shift:=xlDown Range("A1") = "TYPE" Columns("A:A").ColumnWidth = 21.29 Next End Sub
-- Cordialement Jean Pierre "IMER09" a écrit dans le message de news:
Merci JP pourquoi qd toute mes feuil sont select, l'instruction que je veux faire par vba ne fonctionne pas, alors que manuellement ca fonctionne et donc comment faire -- IMER09
Bonsoir ActiveWorkbook.Sheets("feuil2").Select sans ("feuilx"), la feuille par défaut est feuil1 Cordialement Jean Pierre "IMER09" a écrit dans le message de news:
L'insertion de la ligne fonctionne sur toute les feuil Mais le reste ne fonctionne pas De plus qd je le fait en manuel pas de pb
Merci
-- IMER09
Une derniere question
Si je veux exclure 1 feuil de cette selection dont je connait le nom
est ce possilble?
--
IMER09
En effet je viens de reessayer et ca fonctionne je dois etre fatigue!
En tout cas merci pour tout
Bonsoir JP
--
IMER09
j'ai exécuter la sub avec commandbutton_click,ça fonctionne pareil chez moi
excel 2000
Cordialement
Jean Pierre
"IMER09" <toto@discussions.microso.com> a écrit dans le message de
news:7BFAE1A1-4F1D-43EE-959D-AEA3C5110879@microsoft.com...
Merci JP c'est parfait
Une question qui me ronge :
Pourquoi certain code , celui que tu ma fournis en fait parti, quand il
sont
dans une procedure par ex :Private Sub CommandButton1_Click() ne
fonctionne
pas alors que ds un module ils fonctionnent
--
IMER09
C'est vrai que ça marche en manuel, en vba j'utiliserais cela
Sub a()
nb = Sheets.Count
For x = 1 To nb ' compte le nb de feuilles
ActiveWorkbook.Sheets(x).Select
Rows("1:1").Select
Selection.Insert Shift:=xlDown
Range("A1") = "TYPE"
Columns("A:A").ColumnWidth = 21.29
Next
End Sub
--
Cordialement
Jean Pierre
"IMER09" <toto@discussions.microso.com> a écrit dans le message de
news:907A97C3-6DB0-4648-AD06-D4E847129929@microsoft.com...
Merci JP
pourquoi qd toute mes feuil sont select, l'instruction que je veux
faire
par vba
ne fonctionne pas, alors que manuellement ca fonctionne et donc comment
faire
--
IMER09
Bonsoir
ActiveWorkbook.Sheets("feuil2").Select
sans ("feuilx"), la feuille par défaut est feuil1
Cordialement
Jean Pierre
"IMER09" <toto@discussions.microso.com> a écrit dans le message de
news:40F21EA7-2F72-426A-8DDE-D85C0B4DCC34@microsoft.com...
Si je veux exclure 1 feuil de cette selection dont je connait le nom est ce possilble? -- IMER09
En effet je viens de reessayer et ca fonctionne je dois etre fatigue! En tout cas merci pour tout Bonsoir JP -- IMER09
j'ai exécuter la sub avec commandbutton_click,ça fonctionne pareil chez moi excel 2000 Cordialement Jean Pierre "IMER09" a écrit dans le message de news:
Merci JP c'est parfait Une question qui me ronge : Pourquoi certain code , celui que tu ma fournis en fait parti, quand il sont dans une procedure par ex :Private Sub CommandButton1_Click() ne fonctionne pas alors que ds un module ils fonctionnent -- IMER09
C'est vrai que ça marche en manuel, en vba j'utiliserais cela Sub a() nb = Sheets.Count For x = 1 To nb ' compte le nb de feuilles ActiveWorkbook.Sheets(x).Select Rows("1:1").Select Selection.Insert Shift:=xlDown Range("A1") = "TYPE" Columns("A:A").ColumnWidth = 21.29 Next End Sub
-- Cordialement Jean Pierre "IMER09" a écrit dans le message de news:
Merci JP pourquoi qd toute mes feuil sont select, l'instruction que je veux faire par vba ne fonctionne pas, alors que manuellement ca fonctionne et donc comment faire -- IMER09
Bonsoir ActiveWorkbook.Sheets("feuil2").Select sans ("feuilx"), la feuille par défaut est feuil1 Cordialement Jean Pierre "IMER09" a écrit dans le message de news: