Bonjour à tous,

Je bute depuis un moment sur une simple condition. J'ai bien fouiné sur le net sans trouver le truc qui fonctionne.
Je dois récupérer dans des variables les valeurs de cellules contenant des formules du genre
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
 
=SI(SOMME.SI.ENS($R$7:$R$43;$S$7:$S$43;G49;$T$7:$T$43;$T$5)=0;"";SOMME.SI.ENS($R$7:$R$43;$S$7:$S$43;G49;$T$7:$T$43;$T$5))
avec le code suivant tout se passe bien tant que la formule donne un résultat

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
19
20
21
22
23
24
25
26
27
28
29
30
 
With Sheets("Feuil1")
 
                 T = .Cells(i, 2).Text
                 If .Cells(i, 8).Text <> "" Then
                 PI = .Cells(i, 8)
                 End If
                 If .Cells(i, 10).Text <> "" Then
                 PE = 0
                PE = CDbl(.Cells(i, 9).Value)
 
                 End If
                 If .Cells(i, 10).Text <> "" Then
                 F = .Cells(i, 10)
                 End If
                 If .Cells(i, 11).Text <> "" Then
                 MI = .Cells(i, 11)
                 End If
                 If .Cells(i, 12).Text <> "" Then
                 ML = .Cells(i, 12)
                 End If
                 If .Cells(i, 4).Text <> "" Then
                 PV = .Cells(i, 4)
                 End If
                 If .Cells(i, 5).Text <> "" Then
                 QE = .Cells(i, 5)
 
                 End If
 
          End With
J'ai aussi essayer de remplacer les <> "" par des >0 mais rien n'y fait VBA considère qu'il y a toujours un résultat dans la cellule, donc ignore ma condition et plante à l'incrémentation de la variable qui ne trouve rien dans la cellule

merci pour votre aide car les posts que j'ai trouvé ne me sont pas d'une grande utilité

cordialement