Division cellules

Bonjour,

Cette syntaxe fonctionne convenablement :

.Range("J4").Value = .Range("J4").Value / 24

Mais pas celle-ci :

.Range("J4:O368").Value = .Range("J4:O368").Value / 24

Comment procéder sans passer par des boucles sur les colonnes et les lignes ?

PS : Je connais la méthode du collage spécial, mais je veux passer par du VBA.

bonjour,

une solution

Sub aargh()
    Set ov = Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
    ov.Value = "24"
    ov.Copy
    Range("A1:A11").PasteSpecial Paste:=xlPasteAll, Operation:=xlDivide
    ov.Value = ""
End Sub

Super ça fonctionne ! Une nouvelle fois, merci pour ton aide Transposition de la technique du collage spécial en VBA