Discussion :

[c2ll0fd00m]

Bonjour,

je souhaiterai deux choses :

- Premierement, comment, avec VBA, puis-je avoir connaissance des cellules excel qui ne sont pas vides sans avoir a parcourir toutes les cellules de la feuilles? Existe-t-il une structure, comme un arbre, qui est exploitable?

- Ensuite, supposons qu'une cellule contienne une formule dependant de deux cellules. Par exemple, la Cellule C1 = A1 + B1. Comment puis-je, en VBA, et au depart de la cellule C1, recuperer une liste de references vers les cellules A1 et B1?

Bav.

[mercatog]

Reponse 1: Regarde du côté de SpecialCells

par exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub Test1()
Dim Plage As Range
 
Set Plage = Worksheets("Feuil1").UsedRange.SpecialCells(xlCellTypeConstants)  'Plage des valeurs
'Set Plage = Worksheets("Feuil1").UsedRange.SpecialCells(xlCellTypeFormulas) 'Plage des formules
If Not Plage Is Nothing Then
    Debug.Print Plage.Address
    Set Plage = Nothing
End If
End Sub

Reponse 2: une petite fonction qui donne les précédents d"une cellule contenant une formule

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Function Preced(ByVal c As Range) As String
 
If c.HasFormula Then Preced = c.Precedents.Address
End Function
 
 
Sub Test2()
 
Debug.Print Preced(Feuil3.Range("C1"))
End Sub