Macro à creer

Tu dois indiquer l'adresse générée par www.cjoint.com (par copier / coller)
Daniel
"alain.bazire@wanadoo.fr" <alainbazirewanadoofr@discussions.microsoft.com> a
écrit dans le message de news:
1A69B65E-3EC7-48F9-A3D5-183E3177891E@microsoft.com...

je n'ai pas mis ton nom sur cjoint le fichier s'apelle Rapido comptage
tirage 5

Je ne vois pas pourquoi. Si ton classeur ne contient pas de données
confidentielles, fais-le suivre en utilisant l'adresse
http://www.cjoint.com
Daniel
"alain.bazire@wanadoo.fr"
<alainbazirewanadoofr@discussions.microsoft.com> a
écrit dans le message de news:
1CA3778C-C75E-4269-9F41-1DB0D6E4DAD2@microsoft.com...

Quand je copie ca il met tout en rouge il surligne la 1ere ligne et dit
erreur de syntaxe ou ca commence par dim

Teste ça :

Sub Test()
Dim i As Integer, j As Integer
For i = 1 To 8
For j = 1 To 5
If j <> 4 Then
Sheets("Feuil" & j).Select
Selection.AutoFilter Field:=1, Criteria1:6 + i
End If
Next j
Sheets("Feuil4").Select
Application.Run "'RapidoComptage tirage2.xls'!Macro1"
Range("BL3:BL10").Select
Selection.Copy
Sheets("Feuil7").Select
Range("C1").Offset(0, i - 1).Select
Selection.PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, _
SkipBlanks:úlse, Transpose:=True
Sheets("Feuil4").Select
Range("CC3:CC4").Select
Selection.Copy
Sheets("Feuil7").Select
Range("L1").Offset(0, i - 1).Select
Selection.PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, _
SkipBlanks:úlse, Transpose:=True
Next i
End Sub

Daniel
"alain.bazire@wanadoo.fr"
<alainbazirewanadoofr@discussions.microsoft.com> a
écrit dans le message de news:
736C2F47-58DA-49C8-BAC9-A6BE5DCFB80B@microsoft.com...

Bonsoir Daniel mais je voudrais que cela continue plusieurs fois et
que
cela
me copie comme je le fais dans mon semblant de macro Merci d'avance;
Je
colle
cela a quel endroit de ma macro tu vois je n' y connais rien

Bonsoir.
Si j'ai bien compris, essaie :

For i = 1 To 5
If i <> 4 Then
Sheets("Feuil" & i).Select
Selection.AutoFilter Field:=1, Criteria1:="117"
End If
Next i

Cordialement.
Daniel
"alain.bazire@wanadoo.fr"
<alainbazirewanadoofr@discussions.microsoft.com> a
écrit dans le message de news:
E4FDF787-18D6-4BFB-A4AA-AC0485E668EE@microsoft.com...

Bonsoir a toutes et a tous .Qui pourrait m'aider a construire une
macro
de
facons que je n'ai pas a recopier 8 fois la meme chose SVPmerci
de
bien
m'aider.Amitiées.Alain
Sheets("Feuil1").Select
Selection.AutoFilter Field:=1, Criteria1:="117"
Sheets("Feuil2").Select
Selection.AutoFilter Field:=1, Criteria1:="117"
Sheets("Feuil3").Select
Selection.AutoFilter Field:=1, Criteria1:="117"
Sheets("Feuil5").Select
Selection.AutoFilter Field:=1, Criteria1:="117"
Sheets("Feuil4").Select
Application.Run "'RapidoComptage tirage2.xls'!Macro1"
Range("BL3:BL10").Select
Selection.Copy
Sheets("Feuil7").Select
Range("C1").Select
Selection.PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone,
SkipBlanks _
:úlse, Transpose:=True
Sheets("Feuil4").Select
Range("CC3:CC4").Select
Selection.Copy
Sheets("Feuil7").Select
Range("L1").Select
Selection.PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone,
SkipBlanks _
:úlse, Transpose:=True
"ce qui est dessous est augmene de 1 pour criteria,rangeC1et
rangeL1

Sheets("Feuil1").Select
Selection.AutoFilter Field:=1, Criteria1:="118"
Sheets("Feuil2").Select
Selection.AutoFilter Field:=1, Criteria1:="118"
Sheets("Feuil3").Select
Selection.AutoFilter Field:=1, Criteria1:="118"
Sheets("Feuil5").Select
Selection.AutoFilter Field:=1, Criteria1:="118"
Sheets("Feuil4").Select
Application.Run "'RapidoComptage tirage2.xls'!Macro1"
Range("BL3:BL10").Select
Selection.Copy
Sheets("Feuil7").Select
Range("C2").Select
Selection.PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone,
SkipBlanks _
:úlse, Transpose:=True
Sheets("Feuil4").Select
Range("CC3:CC4").Select
Selection.Copy
Sheets("Feuil7").Select
Range("L2").Select
Selection.PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone,
SkipBlanks _
:úlse, Transpose:=True