PLEASE HELP ME ! JE SAIS QUE QUELQU'UN SAIT

cs_marinette22
Messages postés
3
Date d'inscription
mercredi 19 novembre 2008
Statut
Membre
Dernière intervention
13 avril 2010
- 10 avril 2010 à 15:01
TiMiMi830
Messages postés
2
Date d'inscription
jeudi 25 mars 2010
Statut
Membre
Dernière intervention
14 avril 2010
- 14 avril 2010 à 17:12
Développeurs(es) bonjour !

J'ai besoin d'un petit coup de pouce. Je suis une autodidacte en VBA EXCEL.
J'utilise l'enregistreur de macro et modifie le code quand je peux..quand je comprends...bref là je sèche !
Voilà j'ai crée une macro qui exécute un tableau croisé dynamique avec plusieurs filtres en "champs page" dont 2 qui peuvent ne rien renvoyer, l'un recherche une date "31 12 09" et l'autre recherche une valeur texte "absence de justificatif" qui peut ne pas se trouver dans la base de données. Donc forcément dès que ce cas se produit ma macro plante. Ce qui est normal puisque rien n'est trouvé dans la base de données répondant à la condition de mon filtre.
Alors je souhaiterais informer les futurs utilisateurs par un message et mettre fin à l'éxécution de la macro pour éviter ainsi la boîte de dialogue de déboguage...
Je suis certaine que quelqu'un ici va pouvoir m'aider à avancer, progresser et me trouver ce petit code magique et m'expliquer où le placer.

Voici le code de ma macro, en gras l'endroit où la macro bug lorsque mon filtre ne trouve pas la (les) valeurs cherchée(s)

-----------------------------------------

Sub RADNOJTF()
'
' RADNOJTF Macro
' Macro enregistrée le 09/04/2010 par Marine
'


ActiveSheet.Name = "DONNEES BRUTES"
'Sheets("zpr_lisadhnoe_gpacba_mhja_42640").Select
'Sheets("zpr_lisadhnoe_gpacba_mhja_42640").Name = "DONNEES BRUTES"
Sheets("DONNEES BRUTES").Select
ActiveWorkbook.Sheets("DONNEES BRUTES").Tab.ColorIndex = 3
Sheets("DONNEES BRUTES").Select
Sheets("DONNEES BRUTES").Copy Before:=Sheets(1)
Sheets("DONNEES BRUTES").Select
ActiveWindow.SelectedSheets.Visible = False
Selection.CurrentRegion.Select
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"'DONNEES BRUTES (2)'!R1C1:R65536C99").CreatePivotTable TableDestination:="", _
TableName:="Enfants radiés au 31 12", DefaultVersion:=xlPivotTableVersion10
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
ActiveSheet.Cells(3, 1).Select
ActiveSheet.PivotTables("Enfants radiés au 31 12").PrintTitles = True
ActiveSheet.PivotTables("Enfants radiés au 31 12").PivotCache. _
RefreshOnFileOpen = True
ActiveSheet.PivotTables("Enfants radiés au 31 12").AddFields RowFields:= _
"Intitule Lien familial", PageFields:=Array("Etat adhésion", _
"Date fin période d'assurance", "Intitulé motif radiation d'assurance", _
"Etablissement")
ActiveSheet.PivotTables("Enfants radiés au 31 12").PivotFields("Lien familial") _
.Orientation = xlDataField
ActiveSheet.PivotTables("Enfants radiés au 31 12").PivotFields("Etat adhésion") _
.CurrentPage = "A"
[b]ActiveSheet.PivotTables("Enfants radiés au 31 12").PivotFields( _
"Date fin période d'assurance").CurrentPage = "31/12/2009" /bActiveSheet.PivotTables("Enfants radiés au 31 12").PivotFields( _
"Intitulé motif radiation d'assurance").CurrentPage = "Absence de justificatif"
ActiveSheet.PivotTables("Enfants radiés au 31 12").PivotSelect "", _
xlDataAndLabel, True
ActiveSheet.PivotTables("Enfants radiés au 31 12").Format xlReport3
Sheets("Feuil1").Select
Sheets("Feuil1").Name = "TCD ENFANTS RADIES"
Sheets("DONNEES BRUTES (2)").Select
Sheets("DONNEES BRUTES (2)").Name = "LISTE ADHESION A+R"
Sheets("TCD ENFANTS RADIES").Select
ActiveWorkbook.Sheets("TCD ENFANTS RADIES").Tab.ColorIndex = 45
Sheets("LISTE ADHESION A+R").Select
ActiveWorkbook.Sheets("LISTE ADHESION A+R").Tab.ColorIndex = 9
Range("A1").Select
Selection.CurrentRegion.Select
Selection.Sort Key1:=Range("L2"), Order1:=xlAscending, Key2:=Range("AG2") _
, Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 _
:=xlSortNormal
Rows("1:1").Select
Selection.AutoFilter

Selection.AutoFilter Field:=32, Criteria1:="AD"
Range("AF2").Select
Selection.CurrentRegion.Select
Selection.Font.ColorIndex = 11
Selection.Font.Bold = True
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 11
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlHairline
.ColorIndex = 11
End With
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 11
End With
With Selection.Interior
.ColorIndex = 35
.Pattern = xlSolid
End With

Selection.AutoFilter Field:=33
Selection.AutoFilter Field:=33
Selection.AutoFilter Field:=32

Range("A1:CU1").Select
Selection.Interior.ColorIndex = 56
Selection.Font.ColorIndex = 2
Selection.Font.Underline = xlUnderlineStyleSingle
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlCenter
.WrapText = True
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Cells.Select
Cells.EntireColumn.AutoFit

Range("Q:Q,R:R,U:U,V:V").Select
Range("V1").Activate
ActiveWindow.SmallScroll ToRight:=22
Range("Q:Q,R:R,U:U,V:V,AK:AL").Select
Range("AK1").Activate
ActiveWindow.SmallScroll ToRight:=4
Range("Q:Q,R:R,U:U,V:V,AK:AL,AR:AS").Select
Range("AR1").Activate
ActiveWindow.SmallScroll ToRight:=7
Range("Q:Q,R:R,U:U,V:V,AK:AL,AR:AS,AV:AV").Select
Range("AV1").Activate
ActiveWindow.SmallScroll ToRight:=20
Range("Q:Q,R:R,U:U,V:V,AK:AL,AR:AS,AV:AV,BO:BO,BQ:BQ").Select
Range("BQ1").Activate
ActiveWindow.SmallScroll ToRight:=3
Range("Q:Q,R:R,U:U,V:V,AK:AL,AR:AS,AV:AV,BO:BO,BQ:BQ,BV:BW").Select
Range("BV1").Activate
ActiveWindow.SmallScroll ToRight:=4
Range("Q:Q,R:R,U:U,V:V,AK:AL,AR:AS,AV:AV,BO:BO,BQ:BQ,BV:BW,CA:CA").Select
Range("CA1").Activate
ActiveWindow.SmallScroll ToRight:=13
Range("Q:Q,R:R,U:U,V:V,AK:AL,AR:AS,AV:AV,BO:BO,BQ:BQ,BV:BW,CA:CA,CL:CM").Select
Range("CL1").Activate
ActiveWindow.SmallScroll ToRight:=5
Range("Q:Q,R:R,U:U,V:V,AK:AL,AR:AS,AV:AV,BO:BO,BQ:BQ,BV:BW,CA:CA,CL:CM,CQ:CQ"). _
Select
Range("CQ1").Activate
ActiveWindow.SmallScroll ToRight:=2
Range( _
"Q:Q,R:R,U:U,V:V,AK:AL,AR:AS,AV:AV,BO:BO,BQ:BQ,BV:BW,CA:CA,CL:CM,CQ:CQ,CU:CU"). _
Select
Range("CU1").Activate
Selection.NumberFormat = "m/d/yyyy"
With Selection
.HorizontalAlignment = xlCenter
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.ColumnWidth = 10

Range("AC:AC,AD:AD").Select
Range("AD1").Activate
ActiveWindow.SmallScroll ToRight:=12
Range("AC:AC,AD:AD,AN:AQ").Select
Range("AN1").Activate
Selection.NumberFormat = _
"[>=3000000000000]#"" ""##"" ""##"" ""##"" ""###"" ""###"" | ""##;#"" ""##"" ""##"" ""##"" ""###"" ""###"
With Selection
.HorizontalAlignment = xlLeft
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Range("AO:AO,AQ:AQ").Select
Range("AQ1").Activate
Selection.ColumnWidth = 5.71
With Selection
.HorizontalAlignment = xlCenter
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
With Selection
.HorizontalAlignment = xlGeneral
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.NumberFormat = "General"
With Selection
.HorizontalAlignment = xlCenter
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
With Selection
.HorizontalAlignment = xlLeft
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Columns("AM:AM").Select
With Selection
.HorizontalAlignment = xlCenter
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.ColumnWidth = 3.29
Rows("1:1").RowHeight = 114.75

Range("A:A,C:C,E:E,F:F,G:G").Select
Range("G1").Activate
ActiveWindow.SmallScroll ToRight:=4
Range("A:A,C:C,E:E,F:F,G:G,H:H,I:I,J:J,K:K,N:N,O:O").Select
Range("O1").Activate
ActiveWindow.SmallScroll ToRight:=3
Range("A:A,C:C,E:E,F:F,G:G,H:H,I:I,J:J,K:K,N:N,O:O,P:P").Select
Range("P1").Activate
ActiveWindow.SmallScroll ToRight:=6
Range("A:A,C:C,E:E,F:F,G:G,H:H,I:I,J:J,K:K,N:N,O:O,P:P,S:S,T:T,W:W").Select
Range("W1").Activate
ActiveWindow.SmallScroll ToRight:=7
Range("A:A,C:C,E:E,F:F,G:G,H:H,I:I,J:J,K:K,N:N,O:O,P:P,S:S,T:T,W:W,Z:Z").Select
Range("Z1").Activate
ActiveWindow.SmallScroll ToRight:=4
Range( _
"A:A,C:C,E:E,F:F,G:G,H:H,I:I,J:J,K:K,N:N,O:O,P:P,S:S,T:T,W:W,Z:Z,AA:AA,AB:AB,AC:AC,AD:AD,AE:AE,AF:AF" _
).Select
Range("AF1").Activate
ActiveWindow.SmallScroll ToRight:=6
Range( _
"A:A,C:C,E:E,F:F,G:G,H:H,I:I,J:J,K:K,N:N,O:O,P:P,S:S,T:T,W:W,Z:Z,AA:AA,AB:AB,AC:AC,AD:AD,AE:AE,AF:AF,AL:AL" _
).Select
Range("AL1").Activate
ActiveWindow.SmallScroll ToRight:=5
Range( _
"A:A,C:C,E:E,F:F,G:G,H:H,I:I,J:J,K:K,N:N,O:O,P:P,S:S,T:T,W:W,Z:Z,AA:AA,AB:AB,AC:AC,AD:AD,AE:AE,AF:AF,AL:AL,AU:AU" _
).Select
Range("AU1").Activate
ActiveWindow.SmallScroll ToRight:=17
Union(Range( _
"BL:BL,A:A,C:C,E:E,F:F,G:G,H:H,I:I,J:J,K:K,N:N,O:O,P:P,S:S,T:T,W:W,Z:Z,AA:AA,AB:AB,AC:AC,AD:AD,AE:AE,AF:AF,AL:AL,AU:AU,BD:BD,BE:BE,BF:BF,BG:BG,BH:BH,BI:BI,BJ:BJ" _
), Columns("BK:BK")).Select
Range("BL1").Activate
ActiveWindow.SmallScroll ToRight:=5
Union(Range( _
"BL:BL,BM:BM,BN:BN,BO:BO,BP:BP,A:A,C:C,E:E,F:F,G:G,H:H,I:I,J:J,K:K,N:N,O:O,P:P,S:S,T:T,W:W,Z:Z,AA:AA,AB:AB,AC:AC,AD:AD,AE:AE,AF:AF,AL:AL,AU:AU,BD:BD,BE:BE,BF:BF" _
), Range("BG:BG,BH:BH,BI:BI,BJ:BJ,BK:BK")).Select
Range("BP1").Activate
ActiveWindow.SmallScroll ToRight:=9
'Union(Range( _
"BL:BL,BM:BM,BN:BN,BO:BO,BP:BP,BQ:BQ,BR:BR,BS:BS,BX:BX,A:A,C:C,E:E,F:F,G:G,H:H,I:I,J:J,K:K,N:N,O:O,P:P,S:S,T:T,W:W,Z:Z,AA:AA,AB:AB,AC:AC,AD:AD,AE:AE,AF:AF,AL:AL" _
), Range("AU:AU,BD:BD,BE:BE,BF:BF,BG:BG,BH:BH,BI:BI,BJ:BJ,BK:BK")).Select
Range("BX1").Activate
ActiveWindow.SmallScroll ToRight:=3
Union(Range( _
"BL:BL,BM:BM,BN:BN,BO:BO,BP:BP,BQ:BQ,BR:BR,BS:BS,BX:BX,BZ:BZ,CB:CB,CC:CC,A:A,C:C,E:E,F:F,G:G,H:H,I:I,J:J,K:K,N:N,O:O,P:P,S:S,T:T,W:W,Z:Z,AA:AA,AB:AB,AC:AC,AD:AD" _
), Range( _
"AE:AE,AF:AF,AL:AL,AU:AU,BD:BD,BE:BE,BF:BF,BG:BG,BH:BH,BI:BI,BJ:BJ,BK:BK")). _
Select
Range("CC1").Activate
ActiveWindow.SmallScroll ToRight:=12
Union(Range( _
"BL:BL,BM:BM,BN:BN,BO:BO,BP:BP,BQ:BQ,BR:BR,BS:BS,BX:BX,BZ:BZ,CB:CB,CC:CC,CD:CD,CE:CE,CF:CF,CG:CG,CH:CH,CI:CI,CJ:CJ,CK:CK,A:A,C:C,E:E,F:F,G:G,H:H,I:I,J:J,K:K,N:N,O:O,P:P" _
), Range( _
"S:S,T:T,W:W,Z:Z,AA:AA,AB:AB,AC:AC,AD:AD,AE:AE,AF:AF,AL:AL,AU:AU,BD:BD,BE:BE,BF:BF,BG:BG,BH:BH,BI:BI,BJ:BJ,BK:BK" _
)).Select
Range("CK1").Activate
ActiveWindow.SmallScroll ToRight:=7
Union(Range( _
"BL:BL,BM:BM,BN:BN,BO:BO,BP:BP,BQ:BQ,BR:BR,BS:BS,BX:BX,BZ:BZ,CB:CB,CC:CC,CD:CD,CE:CE,CF:CF,CG:CG,CH:CH,CI:CI,CJ:CJ,CK:CK,CL:CL,CM:CM,CN:CN,CO:CU,A:A,C:C,E:E,F:F,G:G,H:H,I:I,J:J" _
), Range( _
"K:K,N:N,O:O,P:P,S:S,T:T,W:W,Z:Z,AA:AA,AB:AB,AC:AC,AD:AD,AE:AE,AF:AF,AL:AL,AU:AU,BD:BD,BE:BE,BF:BF,BG:BG,BH:BH,BI:BI,BJ:BJ,BK:BK" _
)).Select
Range("CO1").Activate
Selection.Delete Shift:=xlToLeft

Columns("C:D").Select
With Selection
.HorizontalAlignment = xlCenter
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Columns("D:D").Select
Selection.ColumnWidth = 2.71
Columns("C:C").Select
Selection.ColumnWidth = 7
Columns("C:C").Select
Selection.Delete Shift:=xlToLeft
Rows("1:1").Select
With Selection
.HorizontalAlignment = xlCenter
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Columns("I:I").Select
Selection.ColumnWidth = 4
With Selection
.HorizontalAlignment = xlLeft
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
With Selection
.HorizontalAlignment = xlGeneral
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
With Selection
.HorizontalAlignment = xlCenter
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
ActiveWindow.SmallScroll ToRight:=2
Columns("J:J").Select
Columns("J:J").EntireColumn.AutoFit
Columns("K:K").Select
Columns("K:K").EntireColumn.AutoFit
Columns("K:K").Select
Selection.ColumnWidth = 16.57
ActiveWindow.SmallScroll ToRight:=23
Range("AD1:AF1").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = True
.Orientation = 90
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Columns("AD:AF").Select
Columns("AD:AF").EntireColumn.AutoFit
Selection.ColumnWidth = 2.86
Range("AI1").Select
Columns("AI:AI").EntireColumn.AutoFit
ActiveWindow.SmallScroll ToRight:=1
Columns("AJ:AJ").Select

Range("A1").Select
Selection.AutoFilter Field:=3, Criteria1:="R"
Range("C23").Select

Range("H23").Select
Selection.CurrentRegion.Select
Selection.Font.ColorIndex = 46

Selection.AutoFilter Field:=10, Criteria1:="ADHÉRENT"
Range("J23").Select
Selection.CurrentRegion.Select
Selection.Font.ColorIndex = 3
Range("A1:AJ1").Select
Selection.Font.ColorIndex = 2
Selection.AutoFilter Field:=3

Selection.AutoFilter Field:=10
Range("J21").Select
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Range("A1").Select
Selection.CurrentRegion.Select
Sheets("TCD ENFANTS RADIES").Select
Range("B9").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Range("B9").Select
Selection.ShowDetail = True
Sheets("Feuil2").Select
Sheets("Feuil2").Name = "LISTE ENFANTS RADIES AU 31 12"
Range("A:A,C:C,E:E,F:F,G:G").Select
Range("G1").Activate
ActiveWindow.SmallScroll ToRight:=4
Range("A:A,C:C,E:E,F:F,G:G,H:H,I:I,J:J,K:K").Select
Range("K1").Activate
ActiveWindow.SmallScroll ToRight:=2
Range("A:A,C:C,E:E,F:F,G:G,H:H,I:I,J:J,K:K,N:N,O:O,P:P").Select
Range("P1").Activate
ActiveWindow.SmallScroll ToRight:=6
Range("A:A,C:C,E:E,F:F,G:G,H:H,I:I,J:J,K:K,N:N,O:O,P:P,S:S,T:T").Select
Range("T1").Activate
ActiveWindow.SmallScroll ToRight:=6
Range("A:A,C:C,E:E,F:F,G:G,H:H,I:I,J:J,K:K,N:N,O:O,P:P,S:S,T:T,W:W").Select
Range("W1").Activate
ActiveWindow.SmallScroll ToRight:=3
Range("A:A,C:C,E:E,F:F,G:G,H:H,I:I,J:J,K:K,N:N,O:O,P:P,S:S,T:T,W:W,Z:Z").Select
Range("Z1").Activate
ActiveWindow.SmallScroll ToRight:=4
Range("A:A,C:C,E:E,F:F,G:G,H:H,I:I,J:J,K:K,N:N,O:O,P:P,S:S,T:T,W:W,Z:Z,AF:AF"). _
Select
Range("AF1").Activate
ActiveWindow.SmallScroll ToRight:=9
Range( _
"A:A,C:C,E:E,F:F,G:G,H:H,I:I,J:J,K:K,N:N,O:O,P:P,S:S,T:T,W:W,Z:Z,AF:AF,AL:AL"). _
Select
Range("AL1").Activate
ActiveWindow.SmallScroll ToRight:=7
Range( _
"A:A,C:C,E:E,F:F,G:G,H:H,I:I,J:J,K:K,N:N,O:O,P:P,S:S,T:T,W:W,Z:Z,AF:AF,AL:AL,AT:AT" _
).Select
Range("AT1").Activate
ActiveWindow.SmallScroll ToRight:=9
Range( _
"A:A,C:C,E:E,F:F,G:G,H:H,I:I,J:J,K:K,N:N,O:O,P:P,S:S,T:T,W:W,Z:Z,AF:AF,AL:AL,AT:AT,BD:BD,BE:BE" _
).Select
Range("BE1").Activate
ActiveWindow.SmallScroll ToRight:=5
Range( _
"A:A,C:C,E:E,F:F,G:G,H:H,I:I,J:J,K:K,N:N,O:O,P:P,S:S,T:T,W:W,Z:Z,AF:AF,AL:AL,AT:AT,BD:BD,BE:BE,BF:BF,BG:BG,BH:BH,BI:BI,BJ:BJ,BK:BK" _
).Select
Range("BK1").Activate
ActiveWindow.SmallScroll ToRight:=3
'Union(Range( _
"A:A,C:C,E:E,F:F,G:G,H:H,I:I,J:J,K:K,N:N,O:O,P:P,S:S,T:T,W:W,Z:Z,AF:AF,AL:AL,AT:AT,BD:BD,BE:BE,BF:BF,BG:BG,BH:BH,BI:BI,BJ:BJ,BK:BK,BL:BL,BM:BM,BN:BN,BO:BO,BP:BP" _
)).Select
Range("BP1").Activate
ActiveWindow.SmallScroll ToRight:=8
Union(Range( _
"BQ:BQ,BR:BR,BS:BS,A:A,C:C,E:E,F:F,G:G,H:H,I:I,J:J,K:K,N:N,O:O,P:P,S:S,T:T,W:W,Z:Z,AF:AF,AL:AL,AT:AT,BD:BD,BE:BE,BF:BF,BG:BG,BH:BH,BI:BI,BJ:BJ,BK:BK,BL:BL,BM:BM" _
), Range("BN:BN,BO:BO,BP:BP")).Select
Range("BS1").Activate
ActiveWindow.SmallScroll ToRight:=4
Union(Range( _
"BQ:BQ,BR:BR,BS:BS,BX:BX,BZ:BZ,A:A,C:C,E:E,F:F,G:G,H:H,I:I,J:J,K:K,N:N,O:O,P:P,S:S,T:T,W:W,Z:Z,AF:AF,AL:AL,AT:AT,BD:BD,BE:BE,BF:BF,BG:BG,BH:BH,BI:BI,BJ:BJ,BK:BK" _
), Range("BL:BL,BM:BM,BN:BN,BO:BO,BP:BP")).Select
Range("BZ1").Activate
ActiveWindow.SmallScroll ToRight:=4
Union(Range( _
"BQ:BQ,BR:BR,BS:BS,BX:BX,BZ:BZ,CB:CU,A:A,C:C,E:E,F:F,G:G,H:H,I:I,J:J,K:K,N:N,O:O,P:P,S:S,T:T,W:W,Z:Z,AF:AF,AL:AL,AT:AT,BD:BD,BE:BE,BF:BF,BG:BG,BH:BH,BI:BI,BJ:BJ" _
), Range("BK:BK,BL:BL,BM:BM,BN:BN,BO:BO,BP:BP")).Select
Range("CB1").Activate
Selection.Delete Shift:=xlToLeft

Range("AC1").Select
ActiveCell.FormulaR1C1 = _
"Date de réception du dernier justificatif de scolarité du bénéficiaire"
Cells.Select
Range("Y1").Activate
Cells.EntireColumn.AutoFit

Range("B2").Select
Selection.CurrentRegion.Select
Selection.Sort Key1:=Range("C2"), Order1:=xlAscending, Key2:=Range("B2") _
, Order2:=xlAscending, Key3:=Range("I2"), Order3:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, DataOption3:= _
xlSortNormal
Cells.Select
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Rows("1:1").Select
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlCenter
.WrapText = True
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Range("C:C,D:D,E:E,F:F,G:G,H:H").Select
Range("H1").Activate
ActiveWindow.SmallScroll ToRight:=9
Range("C:C,D:D,E:E,F:F,G:G,H:H,O:O").Select
Range("O1").Activate
ActiveWindow.SmallScroll ToRight:=7
Range("C:C,D:D,E:E,F:F,G:G,H:H,O:O,T:T").Select
Range("T1").Activate
ActiveWindow.SmallScroll ToRight:=7
Range("C:C,D:D,E:E,F:F,G:G,H:H,O:O,T:T,Z:AA,AC:AC").Select
Range("AC1").Activate
ActiveWindow.SmallScroll ToRight:=10
Range("C:C,D:D,E:E,F:F,G:G,H:H,O:O,T:T,Z:AA,AC:AC,AM:AN,AP:AP").Select
Range("AP1").Activate
With Selection
.HorizontalAlignment = xlCenter
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.ColumnWidth = 8.43
Rows("1:1").RowHeight = 39.75
Selection.ColumnWidth = 9.57
Range("AJ1:AL1").Select
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlCenter
.WrapText = True
.Orientation = 90
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Columns("AJ:AL").Select
Selection.ColumnWidth = 2.29
Rows("1:1").EntireRow.AutoFit

Columns("AH:AH").Select
With Selection
.HorizontalAlignment = xlCenter
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.ColumnWidth = 7.14
Selection.ColumnWidth = 6.29

Range("X:X,V:V").Select
Range("V1").Activate

Range("X:X,V:V,M:M").Select
Range("M1").Activate
Selection.NumberFormat = _
"[>=3000000000000]#"" ""##"" ""##"" ""##"" ""###"" ""###"" | ""##;#"" ""##"" ""##"" ""##"" ""###"" ""###"
With Selection
.HorizontalAlignment = xlCenter
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.ColumnWidth = 13.43
Selection.ColumnWidth = 14.71
Range("X:X,V:V,M:M").EntireColumn.AutoFit
Columns("N:N").Select
ActiveWindow.SmallScroll ToRight:=7
Range("N:N,W:W,Y:Y").Select
Range("Y1").Activate
With Selection
.HorizontalAlignment = xlCenter
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.ColumnWidth = 6.43
With Selection
.HorizontalAlignment = xlLeft
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Range("W1,Y1").Select
Range("Y1").Activate
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = True
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With

Range("N1").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = True
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With

Range("J1").Select
Columns("J:J").ColumnWidth = 2.29
ActiveCell.FormulaR1C1 = "Régime Alsace Moselle"
With ActiveCell.Characters(Start:=1, Length:=21).Font
.Name = "Arial"
.FontStyle = "Gras"
.Size = 9
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 11
End With
Range("K1").Select
Selection.Copy
Range("J1").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Columns("J:J").ColumnWidth = 3.71
Columns("J:J").Select
With Selection
.HorizontalAlignment = xlCenter
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Range("K1").Select

Range("D1").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = True
.Orientation = 90
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Columns("D:D").EntireColumn.AutoFit
Range("A1:AP1").Select
With Selection.Interior
.ColorIndex = 56
.Pattern = xlSolid
End With
Selection.Font.ColorIndex = 2
Selection.AutoFilter
Selection.Interior.ColorIndex = 16
Selection.Interior.ColorIndex = 56
Selection.Font.Underline = xlUnderlineStyleSingle
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = True
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
ActiveWindow.SmallScroll ToRight:=14
Range("U1").Select
Columns("U:U").ColumnWidth = 3.57
Columns("U:U").Select
With Selection
.HorizontalAlignment = xlGeneral
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
With Selection
.HorizontalAlignment = xlCenter
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
ActiveWindow.SmallScroll ToRight:=4
Columns("AB:AB").Select
Selection.ColumnWidth = 18.43
ActiveWindow.SmallScroll ToRight:=14

Range("A1").Select
ActiveWindow.SmallScroll ToRight:=15

Sheets("LISTE ENFANTS RADIES AU 31 12").Select
ActiveWorkbook.Sheets("LISTE ENFANTS RADIES AU 31 12").Tab.ColorIndex = 45
Sheets("LISTE ADHESION A+R").Select
Range("C1").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = True
.Orientation = 90
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Columns("C:C").EntireColumn.AutoFit
Columns("C:C").ColumnWidth = 2
ActiveWindow.SmallScroll ToRight:=16
Range("W1").Select
ActiveCell.FormulaR1C1 = _
"Date de réception du dernier justificatif de scolarité du bénéficiaire"
With ActiveCell.Characters(Start:=1, Length:=70).Font
.Name = "Arial"
.FontStyle = "Gras"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleSingle
.ColorIndex = 2
End With
Range("W2").Select
ActiveWindow.SmallScroll ToRight:=7
Columns("AB:AB").Select
With Selection
.HorizontalAlignment = xlGeneral
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
With Selection
.HorizontalAlignment = xlCenter
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.ColumnWidth = 6.86
Selection.ColumnWidth = 5.71
ActiveWindow.SmallScroll ToRight:=2
Columns("AD:AF").Select
With Selection
.HorizontalAlignment = xlGeneral
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
With Selection
.HorizontalAlignment = xlCenter
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
ActiveWindow.SmallScroll ToRight:=1

Sheets("LISTE ENFANTS RADIES AU 31 12").Select
ActiveWorkbook.Sheets("LISTE ENFANTS RADIES AU 31 12").Tab.ColorIndex = 44
Sheets("LISTE ADHESION A+R").Select


Sheets("LISTE ADHESION A+R").Select
Sheets("LISTE ADHESION A+R").Name = "LISTE ADHESIONS ACT+RAD"
Sheets("LISTE ENFANTS RADIES AU 31 12").Select
ActiveWindow.SmallScroll ToRight:=13


Columns("AO:AO").Select
Selection.ColumnWidth = 18

Range("A1").Select
ActiveWindow.SmallScroll ToRight:=9
Range("K1:O1").Select
Selection.Font.ColorIndex = 7
Range("R1:Y1").Select
Selection.Font.ColorIndex = 4

Range("R1").Select
ActiveCell.FormulaR1C1 = "Nom du bénéficiaire"
With ActiveCell.Characters(Start:=1, Length:=19).Font
.Name = "Arial"
.FontStyle = "Gras"
.Size = 9
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleSingle
.ColorIndex = 4
End With
Range("S1").Select
ActiveCell.FormulaR1C1 = "Prénom du bénéficiaire"
With ActiveCell.Characters(Start:=1, Length:=22).Font
.Name = "Arial"
.FontStyle = "Gras"
.Size = 9
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleSingle
.ColorIndex = 4
End With
Range("T1").Select
ActiveCell.FormulaR1C1 = "Date de naissance du bénéficiaire"
With ActiveCell.Characters(Start:=1, Length:=33).Font
.Name = "Arial"
.FontStyle = "Gras"
.Size = 9
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleSingle
.ColorIndex = 4
End With
Range("V1").Select
ActiveCell.FormulaR1C1 = "No INSEE du bénéficiaire"
With ActiveCell.Characters(Start:=1, Length:=24).Font
.Name = "Arial"
.FontStyle = "Gras"
.Size = 9
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleSingle
.ColorIndex = 4
End With
Range("W1").Select
ActiveCell.FormulaR1C1 = "Clé N°INSEE du bénéficiaire"
With ActiveCell.Characters(Start:=1, Length:=27).Font
.Name = "Arial"
.FontStyle = "Gras"
.Size = 9
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleSingle
.ColorIndex = 4
End With
Range("X1").Select
ActiveWindow.SmallScroll ToRight:=17

Range("A1").Select
Sheets("LISTE ADHESIONS ACT+RAD").Select
Sheets("LISTE ADHESIONS ACT+RAD").Name = "LISTE ADHESIONS ACT+RAD"
Range("A1").Select
Sheets("TCD ENFANTS RADIES").Select
Range("A1").Select
Sheets("LISTE ENFANTS RADIES AU 31 12").Select
End Sub

--------------------------------------
Grand merci à celui qui viendra à mon secours !

7 réponses

cs_Jack
Messages postés
14007
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
80
10 avril 2010 à 15:50
Inutile de répéter ta question toutes les heures.

Il faut dire que tant de code décourage le lecteur.

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)
0
cs_marinette22
Messages postés
3
Date d'inscription
mercredi 19 novembre 2008
Statut
Membre
Dernière intervention
13 avril 2010

10 avril 2010 à 16:05
Je te remercie pour ta réponse mais c'est de l'aide que j'attends...šEt puis j'ai renvoyé mon post une fois seulement..tu n'es pas obligé de les lire, si ça t'ennuie, va faire un tour ou alors apporte ton savoir, si tu sais.
0
cs_Jack
Messages postés
14007
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
80
10 avril 2010 à 19:25
Mariette
Il n'y a qu'un post de ta part car j'ai supprimé celui de 14h et quelques qui renfermait exactement le même texte - ne me prends pas pour une bille, même à mon age avancé, je sais encore ce que je fais. En est témoin, le nombre de messages qui te sont attribués : 3 alors qu'on ne peut en lire que 2.
Je te demandais simplement de ne pas reposter une troisième fois, ça ne sert à rien.

Si tu es venue sur ce forum, c'est que tu sais que les questions trouvent souvent leur réponse.
Mais, je te le dis direct, tant de code décourage souvent le membre, même de bonne volonté.
Donc, il serait à mon avis judicieux, si tu dois reposter d'une manière plus efficace :
- que tu réduises le code collé à son strict nécessaire
- que tu utilises le colorateur syntaxique (3ème icone à partir de la droite) permettant une lecture beaucoup plus cool
- que tu tentes d'expliquer mieux ton problème : Tu tentes de faire une manip sur un champ dont tu n'es pas sûr de l'existence --> La question que tu devrais poser, c'est "comment lister les champs disponibles"
Puisqu'il s'agit de données issues d'une feuille excel, la réponse devrait être simple à trouver.

Bref, les membres sont, comme toi, des passionnés, surement aussi des autodidactes et en tout cas, des bénévoles qui font ce qu'ils peuvent pour aider.
Important : il est de bon ton de garder le sourire et de rester courtois(e).

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)
0
cs_Julien39
Messages postés
6414
Date d'inscription
mardi 8 mars 2005
Statut
Modérateur
Dernière intervention
29 juillet 2020
366
11 avril 2010 à 08:13
Je n'ai pas lu le code car vraiment c'est impossible, cependant, je pense avoir une réponse pour toi.

Pour t'en sortir, il faut que tu intercepte l'exception, c'est à dire que tu gères toi même l'erreur, car si vb le fait tout seul, il s'arrête.

Alors, maintenant, comment intercepter l'exception ? Et bien de la manière suivante :

Sub Macro()
' La c'est le début de ta macro, tu peux également mettre ce code dans le Sub
' du bouton qui execute la macro s'il y en a un.
   
   On Error GoTo CatchError
   ' Ce qui signifie que quand il y aura une erreur, 
   ' le code ira lire l'étiquette CatchError

   ' là, il y aura tout ton code que je n'ajoute pas dans un soucis de lisibilité

NormalExit:
' S'il n(y a pas d'erreur, on quitte et c'est tout
   Exit Sub
CatchError:
' S'il y a une erreur, on affiche le message, et on quitte.
   MsgBox "Message d'erreur"
   GoTo NormalExit
End sub


En espérant avoir répondu à ta question

Julien
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
cs_marinette22
Messages postés
3
Date d'inscription
mercredi 19 novembre 2008
Statut
Membre
Dernière intervention
13 avril 2010

13 avril 2010 à 13:58
Bonjour et merci Julien

Je te prie d'excuser ma réponse tardive mais entre temps j'ai du refaire mon poste (attaque virus : VirusProtector, mortel !!).
Bref, me revoià. Un grand merci à toi pour ce bout de code qui fonctionne bien, toutefois, lorsqu'il y a exception et que mon message d'erreur s'affiche, en cliquant sur le OK de la boîte de dialogue, le message disparaît mais Excel reste ouvert.
Peux-t'on donner à l'utilisateur le choix de quitter Excel ou bien d'enregistrer le fichier en l'état même si celui-ci n'a pas totalement abouti.

Merci par avance.

Bien cordialement,
Marine.
0
cs_Julien39
Messages postés
6414
Date d'inscription
mardi 8 mars 2005
Statut
Modérateur
Dernière intervention
29 juillet 2020
366
13 avril 2010 à 20:37
Bonjour,

Il n(y a pas grand choses à ajouter, dans le CatchError, tu paeux ajouter une msbox qui te permettra de choisir de quitter ou de ne pas le faire, je ne sais plus tellement comment ca fonctionne et je n'ai pas excel sur cet ordinateur, je vais te dire ce que je sais néamoins, il faudra que tu testes.

Pour demander à l'utilisateur s'il veut quitter et enregistrer sa réponse, tu peux ajouter dans le Catch

Dim choix As Integer
choix = MsgBox("Voulez vous quitter ?", vbYesNo)


et là, je ne sais pas à quoi correspond choix, il doit y avoir une valeur différente selon si on clique sur oui ou non, je te laisse regarder.

Et selon le choix e l'utilisateur tu peux quitter Excel en faisant Workboobs.close

Si tu n(y arrives pas, demande moi, et je testerai ca demain sur un autre ordinateur.
0
TiMiMi830
Messages postés
2
Date d'inscription
jeudi 25 mars 2010
Statut
Membre
Dernière intervention
14 avril 2010

14 avril 2010 à 17:12
Pour terminer sur ce que dit Julien :
im choix As Integer
choix = MsgBox("Voulez vous quitter ?", vbYesNo)

On peut ajouter
 if Choix = vbYes then
               fais ceci .....
               else : fais cela ....
          end if 
0