Bonjour
J'ai une macro, et lorsque je la lance, elle s'éxécute en A1
j'aimerais savoir comment faire pour qu'elle commence en B6
--
Merci de votre aide
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
Jacky
Bonjour,
Sans voir le code de cette macro, cela sera très dur...
JJ
"squeepy" a écrit dans le message de news:
Bonjour J'ai une macro, et lorsque je la lance, elle s'éxécute en A1 j'aimerais savoir comment faire pour qu'elle commence en B6 -- Merci de votre aide
Bonjour,
Sans voir le code de cette macro, cela sera très dur...
JJ
"squeepy" <squeepy@discussions.microsoft.com> a écrit dans le message de
news:3C78E0CC-9BF1-4EBD-8D1C-2C2499B12406@microsoft.com...
Bonjour
J'ai une macro, et lorsque je la lance, elle s'éxécute en A1
j'aimerais savoir comment faire pour qu'elle commence en B6
--
Merci de votre aide
Sans voir le code de cette macro, cela sera très dur...
JJ
"squeepy" a écrit dans le message de news:
Bonjour J'ai une macro, et lorsque je la lance, elle s'éxécute en A1 j'aimerais savoir comment faire pour qu'elle commence en B6 -- Merci de votre aide
squeepy
je m'en doutais! le voili voilou
With Workbooks("synthese.XLS") For Each f In .Worksheets y = f.Name If f.Name <> "feuil1" And f.Name <> "feuil2" And f.Name <> "feuil3" And f.Name <> "Feuil4" And f.Name <> "Feuil5" Then x = x + 1 Cells(x, 1).Value = f.Name End If Next End With -- Merci de votre aide
Bonjour,
Sans voir le code de cette macro, cela sera très dur...
JJ
"squeepy" a écrit dans le message de news:
Bonjour J'ai une macro, et lorsque je la lance, elle s'éxécute en A1 j'aimerais savoir comment faire pour qu'elle commence en B6 -- Merci de votre aide
je m'en doutais!
le voili voilou
With Workbooks("synthese.XLS")
For Each f In .Worksheets
y = f.Name
If f.Name <> "feuil1" And f.Name <> "feuil2" And f.Name <> "feuil3" And
f.Name <> "Feuil4" And f.Name <> "Feuil5" Then
x = x + 1
Cells(x, 1).Value = f.Name
End If
Next
End With
--
Merci de votre aide
Bonjour,
Sans voir le code de cette macro, cela sera très dur...
JJ
"squeepy" <squeepy@discussions.microsoft.com> a écrit dans le message de
news:3C78E0CC-9BF1-4EBD-8D1C-2C2499B12406@microsoft.com...
Bonjour
J'ai une macro, et lorsque je la lance, elle s'éxécute en A1
j'aimerais savoir comment faire pour qu'elle commence en B6
--
Merci de votre aide
With Workbooks("synthese.XLS") For Each f In .Worksheets y = f.Name If f.Name <> "feuil1" And f.Name <> "feuil2" And f.Name <> "feuil3" And f.Name <> "Feuil4" And f.Name <> "Feuil5" Then x = x + 1 Cells(x, 1).Value = f.Name End If Next End With -- Merci de votre aide
Bonjour,
Sans voir le code de cette macro, cela sera très dur...
JJ
"squeepy" a écrit dans le message de news:
Bonjour J'ai une macro, et lorsque je la lance, elle s'éxécute en A1 j'aimerais savoir comment faire pour qu'elle commence en B6 -- Merci de votre aide
Jacky
Re.... Ceci... '--------- With Workbooks("synthese.XLS") x = 5 For Each f In .Worksheets If f.Name <> "Feuil1" And f.Name <> "Feuil2" And f.Name <> "Feuil3" And f.Name <> "Feuil4" And f.Name <> "Feuil5" Then x = x + 1 Cells(x, 2).Value = f.Name End If Next End With '------------- Salutations JJ
"squeepy" a écrit dans le message de news:
je m'en doutais! le voili voilou
With Workbooks("synthese.XLS") For Each f In .Worksheets y = f.Name If f.Name <> "feuil1" And f.Name <> "feuil2" And f.Name <> "feuil3" And f.Name <> "Feuil4" And f.Name <> "Feuil5" Then x = x + 1 Cells(x, 1).Value = f.Name End If Next End With -- Merci de votre aide
Bonjour,
Sans voir le code de cette macro, cela sera très dur...
JJ
"squeepy" a écrit dans le message de news:
Bonjour J'ai une macro, et lorsque je la lance, elle s'éxécute en A1 j'aimerais savoir comment faire pour qu'elle commence en B6 -- Merci de votre aide
Re....
Ceci...
'---------
With Workbooks("synthese.XLS")
x = 5
For Each f In .Worksheets
If f.Name <> "Feuil1" And f.Name <> "Feuil2" And f.Name <> "Feuil3" And
f.Name <> "Feuil4" And f.Name <> "Feuil5" Then
x = x + 1
Cells(x, 2).Value = f.Name
End If
Next
End With
'-------------
Salutations
JJ
"squeepy" <squeepy@discussions.microsoft.com> a écrit dans le message de
news:2EB8B9C2-432C-4881-9E1A-598DA66844A2@microsoft.com...
je m'en doutais!
le voili voilou
With Workbooks("synthese.XLS")
For Each f In .Worksheets
y = f.Name
If f.Name <> "feuil1" And f.Name <> "feuil2" And f.Name <> "feuil3" And
f.Name <> "Feuil4" And f.Name <> "Feuil5" Then
x = x + 1
Cells(x, 1).Value = f.Name
End If
Next
End With
--
Merci de votre aide
Bonjour,
Sans voir le code de cette macro, cela sera très dur...
JJ
"squeepy" <squeepy@discussions.microsoft.com> a écrit dans le message de
news:3C78E0CC-9BF1-4EBD-8D1C-2C2499B12406@microsoft.com...
Bonjour
J'ai une macro, et lorsque je la lance, elle s'éxécute en A1
j'aimerais savoir comment faire pour qu'elle commence en B6
--
Merci de votre aide
Re.... Ceci... '--------- With Workbooks("synthese.XLS") x = 5 For Each f In .Worksheets If f.Name <> "Feuil1" And f.Name <> "Feuil2" And f.Name <> "Feuil3" And f.Name <> "Feuil4" And f.Name <> "Feuil5" Then x = x + 1 Cells(x, 2).Value = f.Name End If Next End With '------------- Salutations JJ
"squeepy" a écrit dans le message de news:
je m'en doutais! le voili voilou
With Workbooks("synthese.XLS") For Each f In .Worksheets y = f.Name If f.Name <> "feuil1" And f.Name <> "feuil2" And f.Name <> "feuil3" And f.Name <> "Feuil4" And f.Name <> "Feuil5" Then x = x + 1 Cells(x, 1).Value = f.Name End If Next End With -- Merci de votre aide
Bonjour,
Sans voir le code de cette macro, cela sera très dur...
JJ
"squeepy" a écrit dans le message de news:
Bonjour J'ai une macro, et lorsque je la lance, elle s'éxécute en A1 j'aimerais savoir comment faire pour qu'elle commence en B6 -- Merci de votre aide
squeepy
merci, ca fonctionne -- Merci de votre aide
Re.... Ceci... '--------- With Workbooks("synthese.XLS") x = 5 For Each f In .Worksheets If f.Name <> "Feuil1" And f.Name <> "Feuil2" And f.Name <> "Feuil3" And f.Name <> "Feuil4" And f.Name <> "Feuil5" Then x = x + 1 Cells(x, 2).Value = f.Name End If Next End With '------------- Salutations JJ
"squeepy" a écrit dans le message de news:
je m'en doutais! le voili voilou
With Workbooks("synthese.XLS") For Each f In .Worksheets y = f.Name If f.Name <> "feuil1" And f.Name <> "feuil2" And f.Name <> "feuil3" And f.Name <> "Feuil4" And f.Name <> "Feuil5" Then x = x + 1 Cells(x, 1).Value = f.Name End If Next End With -- Merci de votre aide
Bonjour,
Sans voir le code de cette macro, cela sera très dur...
JJ
"squeepy" a écrit dans le message de news:
Bonjour J'ai une macro, et lorsque je la lance, elle s'éxécute en A1 j'aimerais savoir comment faire pour qu'elle commence en B6 -- Merci de votre aide
merci, ca fonctionne
--
Merci de votre aide
Re....
Ceci...
'---------
With Workbooks("synthese.XLS")
x = 5
For Each f In .Worksheets
If f.Name <> "Feuil1" And f.Name <> "Feuil2" And f.Name <> "Feuil3" And
f.Name <> "Feuil4" And f.Name <> "Feuil5" Then
x = x + 1
Cells(x, 2).Value = f.Name
End If
Next
End With
'-------------
Salutations
JJ
"squeepy" <squeepy@discussions.microsoft.com> a écrit dans le message de
news:2EB8B9C2-432C-4881-9E1A-598DA66844A2@microsoft.com...
je m'en doutais!
le voili voilou
With Workbooks("synthese.XLS")
For Each f In .Worksheets
y = f.Name
If f.Name <> "feuil1" And f.Name <> "feuil2" And f.Name <> "feuil3" And
f.Name <> "Feuil4" And f.Name <> "Feuil5" Then
x = x + 1
Cells(x, 1).Value = f.Name
End If
Next
End With
--
Merci de votre aide
Bonjour,
Sans voir le code de cette macro, cela sera très dur...
JJ
"squeepy" <squeepy@discussions.microsoft.com> a écrit dans le message de
news:3C78E0CC-9BF1-4EBD-8D1C-2C2499B12406@microsoft.com...
Bonjour
J'ai une macro, et lorsque je la lance, elle s'éxécute en A1
j'aimerais savoir comment faire pour qu'elle commence en B6
--
Merci de votre aide
Re.... Ceci... '--------- With Workbooks("synthese.XLS") x = 5 For Each f In .Worksheets If f.Name <> "Feuil1" And f.Name <> "Feuil2" And f.Name <> "Feuil3" And f.Name <> "Feuil4" And f.Name <> "Feuil5" Then x = x + 1 Cells(x, 2).Value = f.Name End If Next End With '------------- Salutations JJ
"squeepy" a écrit dans le message de news:
je m'en doutais! le voili voilou
With Workbooks("synthese.XLS") For Each f In .Worksheets y = f.Name If f.Name <> "feuil1" And f.Name <> "feuil2" And f.Name <> "feuil3" And f.Name <> "Feuil4" And f.Name <> "Feuil5" Then x = x + 1 Cells(x, 1).Value = f.Name End If Next End With -- Merci de votre aide
Bonjour,
Sans voir le code de cette macro, cela sera très dur...
JJ
"squeepy" a écrit dans le message de news:
Bonjour J'ai une macro, et lorsque je la lance, elle s'éxécute en A1 j'aimerais savoir comment faire pour qu'elle commence en B6 -- Merci de votre aide