Bonjour à tous ,

Je débute tout juste à me pencher sur le VBA, et la plupart du temps , je réussis à me débrouiller grâce à l'éditeur de macro ou aux forums , seulement là je coince ....
Je cherche à créer une procédure qui balaye toutes les cellules d'une plage variable, et qui à chaque cellule non vide , enregistre les coordonnées de celle-ci et les transmets à une procédure ( fonction ? ) qui manipulera les données grâce aux coordonnées qui lui auront été transmises.

voici ce que j'ai réussi à faire pour l'instant.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub Balayage()
'
' 
'
Dim h
Dim Lig
Dim Col
h = WorksheetFunction.CountA(Range("$A:$A"))
For Each Cellule In Range("A1:F" & h)
If Cellule.Value <> "" Then
Cellule.Font.Color = RGB(255, 0, 0)
Lig = ActiveCell.Row
Col = ActiveCell.Column
Extraction Lig,Col
End If
Next
End Sub
Le souci vient de l'affectation Lig et Col , qui ne sont pas bons... Qui plus est , j'aimerais éviter d'activer les cellules à chaque fois , car j'ai lu que ca faisait scintiller l'écran et ralentissait le code