Discussion :

[ridokou]

Bonjour,

Je développe un outils afin de me ramener le CA réalisé avec l'un de nos client.
Dans les données rapportées, j'ai une colonne "période" dont le format est "AAAAMM" que je transforme via VBA en "MMM-AA".

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
ActiveCell.FormulaR1C1 = "=DATE(LEFT(RC[-1],4),RIGHT(RC[-1],2),1)"

Je souhaiterais maintenant trouver un code pour que cette formule soit copiée jusqu'à la dernière ligne de mes données, sachant que je n'aurais pas dans blancs/trous dans ces données.

J'avais penser utiliser quelque chose avec "Selection.End(xlUp/xlDown)" mais je ne sais pas trop comment faire.

Merci pour toute l'aide que vous pourrez m'apporter

[mercatog]

Pour répondre à ta question

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Dim LastLig As Long
 
With Sheets("Feuil1")   ' à adapter
   LastLig = .Cells(.Rows.Count, "A").End(xlUp).Row   'Colonne A données AAAAMM
   With .Range("B2:B" & LastLig)                      'Colonne B on récuppère
      .FormulaR1C1 = "=DATE(LEFT(RC[-1],4),RIGHT(RC[-1],2),1)"
      .NumberFormat = "mmm-yy"
   End With
End With

[MarcelG]

Bonjour,

Il te faut d'abord définir la zone qui accueillera ta formule.

Je te propose ce code adapté éventuellement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Macro1()
 
Dim act As Range, fin As Range
 
'1ère cellule à droite de ta cellule active
 Set déb = ActiveCell.Offset(0, 1)
 
'dernière cellule à droite de ta zone
 Set fin = Cells(Rows.Count, ActiveCell.Column).End(xlUp).Offset(0, 1)
 
'formule appliquée à la zone définie
 Range(déb, fin).FormulaR1C1 = "=DATE(LEFT(RC[-1],4),RIGHT(RC[-1],2),1)"
 
End Sub

N'hésite pas à revenir pour plus de précisions.