Initiation VBA

[Jacky]

Bonjour à tous
Je pense que l'initiation que je demande doit revenir fréquemment dans ce forum.
Je voudrais cependant apprendre à faire de la macroprogrammation et commencer par celle qui consiste à demarrer à partir d'une 'CELLULE ACTIVE' de la Excel.
Contact à
j.adamaly@ool.fr
Merci d'avance

 

[_Thierry]

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

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