Discussion :

[microb76]

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

[jfontaine]

Bonjour,

Dans ton code les variable Lig et Col ne changent pas de valeur car tu reste toujours sur la même cellule

J'ai adapté ta macro. Dis moi si ok

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
18
Sub Balayage()
Dim h As Long
Dim Cellule As Range
 
Application.ScreenUpdating = False
 
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)
        Extraction Cellule.Row, Cellule.Column
    End If
Next
 
Application.ScreenUpdating = True
 
End Sub

[microb76]

Génial , ca fonctionne !

Merci beaucoup