Pouvez-vous m'aider à modifier mon code VBA ci-dessous généré lors de l'enregistrement d'une macro commande.
Son objectif est de multiplier le chiffre contenu dans la Colonne B par 1 jusqu'à la fin du tableau dans la colonne C. Le problème est que la longueur du tableau peut varier en fonction des extractions.
Peut-on demander à Excel de faire jusqu'à ce qu'il y a des renseignements dans la colonne B.
Je viens d'intégrer la date du jour dans une colonne. Comment lui dire de la copier jusqu'à la fin du tableau en sachant que celle-ci ne sera jamais la même.
Si tua s qques minutes pr regarder le code :
Code:
Sub E_12()
'
' Macro3 Macro
'
'
ActiveCell.FormulaR1C1 = "=TODAY()"
Selection.NumberFormat = "[$-F800]dddd, mmmm dd, yyyy"
Selection.AutoFill Destination:=Range("K3:K4"), Type:=xlFillDefault
Range("K3:K4").Select
Selection.AutoFill Destination:=Range("K3:K")
Range("K3:K").Select
Range("A1").Select
End Sub
Je viens d'intégrer la date du jour dans une colonne. Comment lui dire de la copier jusqu'à la fin du tableau en sachant que celle-ci ne sera jamais la même.
Si tua s qques minutes pr regarder le code :
Code:
Sub E_12()
'
' Macro3 Macro
'
'
ActiveCell.FormulaR1C1 = "=TODAY()"
Selection.NumberFormat = "[$-F800]dddd, mmmm dd, yyyy"
Selection.AutoFill Destination:=Range("K3:K4"), Type:=xlFillDefault
Range("K3:K4").Select
Selection.AutoFill Destination:=Range("K3:K")
Range("K3:K").Select
Range("A1").Select
End Sub
sur quelle colonne se baser pour déterminer la dernière cellule de la colonne K à renseigner ?
C'est toujours la date du jour dans les cellules ? elle devra être actualisée à chaque ouverture du fichier ? ou on peut envoyer directement la date du jour dans les cellules ?
Option Explicit
Sub test()
With Range("K3:k" & Cells(Rows.Count, 1).End(xlUp).Row)
.Value = Date
.NumberFormat = "[$-F800]dddd, mmmm dd, yyyy"
End With
End Sub