Arrêter ma ma macro lorsque cellule vide Résolu

Question

Bonjour à tous,

Je tente de me mettre à la programmation VBA et tombe (malheureusement) sur un os.
J'ai créé une macro (collée ci-dessous)... mais celle-ci ne s'arrête pas lorsque les cellules de la colonne A sont vides. Elle continue à fonctionner.
Pourriez-vous m'aider à trouver la solution ?

D'avance merci pour votre aide,

Dim var_Matricule As String
    var_Matricule = Range("a2").Value
    
    Do While var_Matricule <> ""
        
        ActiveCell.FormulaR1C1 = "=RIGHT(RC[-1],9)"
        ActiveCell.Offset(0, 1).Activate
        ActiveCell.FormulaR1C1 = "=LEFT(RC[-1],8)"
        ActiveCell.Select
        Selection.Copy
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
        Application.CutCopyMode = False
        ActiveCell.Offset(1, -1).Activate
                
        
    Loop

f894009 · Answer

Bonjour,

le principe c'est ca:
Sub Macro1()
        Range("B3:B" & [A65536].End(xlUp).Row).FormulaR1C1 = "=RIGHT(RC[-1],9)"
        Range("C3:C" & [A65536].End(xlUp).Row).FormulaR1C1 = "=LEFT(RC[-1],8)"
End Sub

mais avec vos ActiveCell, ca risque de panouiller

Arrêter ma ma macro lorsque cellule vide

1 réponse

Discussions similaires

Newsletters