Bonjour,
Je cherche à appliquer une macro afin d'automatiser la mise en place d'une formule dans un rapport que j'inserts dans Excel.
Comme vous pourrez le constater dans l'exemple joint, je souhaite coller jusqu'à dernière cellule non-vide (même si cette dernière ne fait pas parti d'un tableau).
Est-ce possible?
En complément d'information, je souhaite l'inclure dans cette macro:
il m'est possible d’insérer le code après "Next col" n'est-ce pas?
Merci d'avance pour votre aide
Je cherche à appliquer une macro afin d'automatiser la mise en place d'une formule dans un rapport que j'inserts dans Excel.
Comme vous pourrez le constater dans l'exemple joint, je souhaite coller jusqu'à dernière cellule non-vide (même si cette dernière ne fait pas parti d'un tableau).
Est-ce possible?
En complément d'information, je souhaite l'inclure dans cette macro:
VB:
Sub Macro1()
'
' Macro1 Macro
'
' Touche de raccourci du clavier: Ctrl+q
'
Columns("A:A").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Range("A4").Select
ActiveSheet.Paste
Columns("A:A").Select
Selection.Delete Shift:=xlToLeft
Dim nlm&, col%, dlg&, lig&
nlm = Rows.Count: Application.ScreenUpdating = 0
For col = 9 To 15 'colonnes I à O
dlg = Cells(nlm, col).End(3).Row
For lig = 4 To dlg
With Cells(lig, col)
If Not IsEmpty(.Value) Then
.Value = Replace$(Replace$(.Value, ",", ""), ".", ",") * 1
.NumberFormat = "# ##0.00\ €"
End If
End With
Next lig
Next col
End Subil m'est possible d’insérer le code après "Next col" n'est-ce pas?
Merci d'avance pour votre aide
