Sélection jusqu'à la prochaine cellule non vide

Question

Bonjour, 

Je débute en VBA et je bloque pour une formule.

ActiveCell.FormulaR1C1 = "=RC[-1]/(R[-5]C[-1]:R[-1]C[-1])"

Je pars de la cellule active et je souhaite que la cellule à gauche de ma cellule active soit divisée par la plage suivante :
De la cellule au dessus de « RC[-1] » jusqu'à la prochaine cellule non vide 

Lorsque je le fait manuellement en enregistrant une macro, il me sélectionne la plage de cellule.

Mais ce que j'aimerais c'est introduire ce code la : 
Range(Selection, Selection.End(xlUp)).Select

Mais je ne vois pas comment faire.

Merci

Frenchie83 · Answer

Bonjour
"jusqu'à la prochaine cellule non vide" en remontant si j'ai bien compris.
    For i = ActiveCell.Row - 1 To 1 Step -1
        If Cells(i, ActiveCell.Column - 1) = "" Then
            DerLig = i + 1
            ActiveCell.FormulaR1C1 = "=RC[-1]/SUM(R" & DerLig & "C[-1]:R[-1]C[-1])"
            Exit Sub
         End If
    Next i
A tester
Cdlt

Frenchie83 · Answer

il manque la parenthèse fermante après le 20.
De plus vous appliquez la formule sur la colonne entière, il faudrait y mettre des limites hautes et basses.
Ensuite, si la condition n'est pas remplie, vous mettez la valeur 20 dans tous les autres cas, il faudrait rajouter une condition supplémentaire qui vérifie si la colonne B n'est pas vide.
Ce qui donnerait quelque chose dans ce genre
Sub Macro1()
    For i = ActiveCell.Row - 1 To 1 Step -1
        If Cells(i, ActiveCell.Column - 1) = "" Or i = 1 Then
            DerLig = i + 1
            Range("C2:C100").FormulaR1C1 = "=IF(LEFT(RC[-2],5)=""Total"",RC[-1]/SUM(R" & DerLig & "C[-1]:R[-1]C[-1]),IF(RC[-1]<>"""",20,""""))"
            Exit Sub
        End If
    Next i
End Sub

Pour le test, j'ai mis une limite haute à la ligne 2 et une limite basse à 100.
A tester

Sélection jusqu'à la prochaine cellule non vide

2 réponses

Discussions similaires

Newsletters