Bog avec Macro excel

[Menator]

Bonjour, quelqu'un peut m'aider avec cet macro . Je ne peux pas mettre le fichier au complet en pièce-jointe car il est trop volumineux. La macro plus bas est dans un bouton contrôle qui est dans un onglet vierge.


CODE

Private Sub CommandButton2_Click()
Rows("1:400").Select
Selection.Delete Shift:=xlUp
Dim Ligne, Nombre As Long
Application.ScreenUpdating = False
For Nombre = Sheets.Count To 2 Step -1
Ligne = Range("a65536").End(xlUp).Row + 1
Sheets(Nombre).Range("a1:" & Sheets(Nombre).Range("a1").SpecialCells(xlCellTypeLastCell).Address).Copy
Sheets(1).Activate
Range("A" & Ligne).Select
ActiveSheet.Paste
Next Nombre
Range("S65536").End(xlUp).Offset(-9, 1) = "9"
i = 12
Do Until Range("T" & i).Value = "9"
Select Case Range("T" & i).Value
Case "a"
i = i + 1
Case Else
Rows(i).Delete
End Select
Loop
Range("t65536").End(xlUp) = ""
ActiveSheet.PageSetup.PrintArea = Range("A1:S" & _
Range("S65536").End(xlUp).Row).Address
Range("S65536").End(xlUp).Offset(-4, 0) = "= TODAY()"

i = Range("K65536").End(xlUp).Row

Columns("B:B").Insert Shift:=xlToRight
Range("B11").FormulaR1C1 = "# Par mel."
Range("B12").FormulaR1C1 = "A - 1"
Range("B12").Select
Selection.AutoFill Destination:=ActiveSheet.Range("B12:B" & i), Type:=xlFillDefault
Range("B12:B" & i).Select
Columns("B:B").Select
Selection.ColumnWidth = 8.71
Range("B10:B11").Select
Range("B11").Activate
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.Merge
End Sub

 

[MichD]

Re : Bog avec Macro excel

Bonjour,

Tu peux publier un classeur, mais cela ne devrait pas t'empêcher de décrire ce que tu tentes de faire.
Le fait de publier une macro qui ne fonctionne pas n'est pas d'une très grande utilité à moins que tu
veuilles modifier seulement une ligne de code qui pose problème.

Habituellement, les répondeurs savent créer du code, mais j'avoue que deviner ce que
le demandeur désire est beaucoup plus difficile.

 

[youky(BJ)]

Re : Bog avec Macro excel

Bonjour Menator,
Bien d'accord avec MichD que je salue.
J'ai modifié la macro sans l'avoir testée ni comprise.
C'est un peu de l'aveuglette.
Bruno

 Rows("1:400").Delete
 Dim Ligne, Nombre As Long
 Application.ScreenUpdating = False
 For Nombre = Sheets.Count To 2 Step -1
 Ligne = Range("a65536").End(xlUp).Row + 1
 Sheets(Nombre).Range("a1:" & Sheets(Nombre).Cells.SpecialCells(xlCellTypeLastCell).Address).Copy
 Sheets(1).Range("A" & Ligne).Paste
 Next Nombre
 Range("S65536").End(xlUp).Offset(-9, 1) = "9"
 i = 12
 Do Until Range("T" & i).Value = "9"
 Select Case Range("T" & i).Value
 Case "a"
 i = i + 1
 Case Else
 Rows(i).Delete
 End Select
 Loop
 Range("t65536").End(xlUp) = ""
 ActiveSheet.PageSetup.PrintArea = Range("A1:S" & _
 Range("S65536").End(xlUp).Row).Address
 Range("S65536").End(xlUp).Offset(-4, 0) = "= TODAY()"
 
i = Range("K65536").End(xlUp).Row
 
Columns("B:B").Insert Shift:=xlToRight
 Range("B11").FormulaR1C1 = "# Par mel."
 Range("B12").FormulaR1C1 = "A - 1"
 Range("B12").AutoFill Destination:=ActiveSheet.Range("B12:B" & i), Type:=xlFillDefault
' Range("B12:B" & i).Select
 Columns("B:B").ColumnWidth = 8.71
 'Range("B10:B11").Select
 'Range("B11").Activate
 With Range("B11")
 .HorizontalAlignment = xlCenter
 .VerticalAlignment = xlCenter
 .WrapText = False
 .Orientation = 0
 .AddIndent = False
 .IndentLevel = 0
 .ShrinkToFit = False
 .ReadingOrder = xlContext
 .MergeCells = False
 .Merge
 End With
 End Sub

 

[Menator]

Re : Bog avec Macro excel

D'accord, merci pour vos réponse, mon problème n'est pas réglé par contre.

La macro se déroule bien jusqu'à la ligne de code


Columns("B:B").Insert Shift:=xlToRight

Pour faire une histoire court, le code qui se situ après TODAY()... Devra ajouter une colonne mettre un titre pour la nouvelle colonne "# par mel." et numéroté chaque ligne comme suit, A - 1 , A - 2, A - 3 etc...

Quelqu'un a une solution ?

Merci

 

[youky(BJ)]

Re : Bog avec Macro excel

Re,
Supprimes tes cellules fusionnées, remplaces les par des "centré sur plusieurs colonnes".
Cela ne passe pas pour les copiées -collés ou ajout de colonne dans certain cas.
Pour le reste TODAY pas évident de piger
Bruno