Bonjour,
Pouvez vous s'il vous plait a m'aider de trouvé une solution pour ma macro qui c'arrête pas si la cellule est vide ce qui fait mon fichier il devient trés lourde.
J'essaye de concatener trois cellule sur trois colonne pour avec la date exp 01/01/2022 mais la macro s'arrete pas et pour les cellule vide elle me mets // jusqu'à 15**** lignes vide
Merci
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29 ' Datemo Macro modif ' ' Range("I2").Select ActiveCell.FormulaR1C1 = "=+RIGHT(RC[-2],2)" Range("J2").Select ActiveCell.FormulaR1C1 = "=+MID(RC[-3],5,2)" Range("K2").Select ActiveCell.FormulaR1C1 = "=+LEFT(RC[-4],4)" Range("L2").Select ActiveCell.FormulaR1C1 = "=+CONCATENATE(RC[-3],""/"",RC[-2],""/"",RC[-1])" Range("K2").Select ActiveCell.FormulaR1C1 = "=+LEFT(RC[-4],4)" Range("I2:K2").Select Selection.AutoFill Destination:=Range("I2:K" & Range("K" & Rows.Count).End(xlDown).Row) Range("L2").Select Selection.AutoFill Destination:=Range("L2:L" & Range("K" & Rows.Count).End(xlDown).Row) Selection.Copy Columns("L:L").Select Application.CutCopyMode = False Selection.Copy Columns("M:M").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Columns("I:L").Select Range("L1").Activate Application.CutCopyMode = False Selection.Delete Shift:=xlToLeft
Partager