Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Bog avec Macro excel

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Menator
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
M

Menator

Guest
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
 

Pièces jointes

Trier par date Trier par votes
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.
 
Vote positif 0 Vote négatif
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
Code: 
 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
 
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

P
  • Question Question
XL 2010 Recopie de la date du jour jusqu'à la dernière ligne non vide
Réponses
5
Affichages
179
philmaure
P
U
  • Question Question
Autres [RÉSOLU] macro à modifier
Réponses
1
Affichages
617
un internaute
U
U
  • Question Question
Autres Quelques fois ça bug feuilles cachées
Réponses
2
Affichages
253
cathodique
U
  • Question Question
Autres [RÉSOLU] Compléter la macro mais comment et où?
Réponses
2
Affichages
742
un internaute
U
  • Résolu(e)
XL 2019 macro avec fonction copié coller si rempli par la macro
Réponses
12
Affichages
646
AtTheOne
T
  • Question Question
XL 2013 Impression, choix de feuilles et nombre de copie
Réponses
11
Affichages
787
AtTheOne
F
  • Question Question
Microsoft 365 Problème mémoire insuffisante
Réponses
5
Affichages
910
TooFatBoy
U
  • Question Question
Autres [RÉSOLU] Compléter macro pour Suppr cellules
Réponses
7
Affichages
456
un internaute
U
N
  • Question Question
XL 2013 Utilisé deux CommandButton_Click dans la même feuil
Réponses
4
Affichages
430
patricktoulon
  • Résolu(e)
XL 2019 colorer les différents aliments avec un code VB pour macro de ce genre ?
2
Réponses
16
Affichages
618
anthoYS
  • Résolu(e)
Microsoft 365 Virgules dans ListView
Réponses
5
Affichages
484
Electron24
  • Question Question
XL 2019 Prénoms à souhaiter
2
Réponses
15
Affichages
784
lynyrd
V
  • Question Question
XL 2016 transformer en boucle une macro créer avec l'enregistreur automatique
Réponses
3
Affichages
241
vazvaz
V
A
  • Résolu(e)
XL 2016 Recherche d'un mot dans une cellule et surlignage de la ligne
Réponses
4
Affichages
571
Abi23
A
F
  • Question Question
XL 2021 probleme dans la macro
Réponses
4
Affichages
733
kiki29
  • Question Question
Autres fenêtre "Publication"
Réponses
10
Affichages
791
ph.vanne
T
  • Résolu(e)
Microsoft 365 VBA Exporter une sélection de plages nommées au format PDF
Réponses
12
Affichages
1 K
tnion
T
C
  • Question Question
Microsoft 365 worksheet_change
2
Réponses
29
Affichages
1 K
CortoXls
C
M
  • Question Question
XL 2021 VBA Excel Erreur 2023
Réponses
2
Affichages
399
MICHIS
M
S
  • Résolu(e)
Microsoft 365 VBA Concaténer contenu de plusieurs cellules dans une seule avec séparateurs / évolutifs
Réponses
3
Affichages
633
spike29
S
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…