Discussion :

[Faustine_]

Bonjour,

Je souhaite faire un calcul très simple mais via les macro, je veux diviser la celulle C3 par la derniere ligne contenant du texte dans la colonne C +1 et que cette dernière soit bloquée afin que je puisse faire glisser mon calcule jusqu'à la derniere ligne contenant du texte dans la colonne C, le résultat s'affichant dans la colonne E.
Pour l'instant j'ai cela et je bloque sur la mise ne forme du calcul je le comprends pas trop :

Code :

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

1
2
3
4
5
6
7
8
ActiveCell.FormulaR1C1 = "=RC[-2]/R21C3"
    Range("E3").Select
   Range("E3").AutoFill Destination:=Range("E3:E" & DernLigne), Type:=xlFillDefault
    Range("E3:E" & DernLigne).Select
    Selection.Style = "Percent"
    Selection.NumberFormat = "0.0%"
    Selection.NumberFormat = "0.00%"
    Range("F8").Select

Merci de votre aide.

[mercatog]

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim DernLigne As Long
 
With Worksheets("Feuil1")    'à adapter
    DernLigne = .Cells(.Rows.Count, "A").End(xlUp).Row
    With .Range("E3:E" & DernLigne)
        .Formula = "=$C3/$C$" & DernLigne + 1
        .Value = .Value
        .NumberFormat = "0.00%"
    End With
End With

[Faustine_]

Parfait merci