Initiation VBA

Bonjour Jacky, le Forum

En fait, tu n'as pas besoin de préciser ton adresse Email chez nous, tout se passe ici, sinon ce ne serait plus un Forum de Partage de Connaissance, non ?

Pour ta Question, pas vraiment sûr de ne pas être à coté de la plaque en te répondant :

Cellule Active = ActiveCell en VBA...

Exemple basic :

Sub WhatIsTheValueOfTheActiveCell()
MsgBox ActiveCell.Value
End Sub


Une approche plus compliquée :

Sub TheValueOfAllNumericValueOfTheSheetReturnedInTheActiveCell()
Dim Cellule As Range
Dim MaValeur As Double

    For Each Cellule In ActiveSheet.UsedRange
        If IsNumeric(Cellule) Then
            MaValeur = MaValeur + Cellule.Value
        End If
    Next Cellule

ActiveCell.Value = MaValeur

End Sub

Cliquez pour agrandir...

Ce code va scanner toutes les cellules de la Feuille Active et en faire l'addition pour l'écrire dans la Cellule active...

Bonne Découverte du VBA
@+Thierry