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
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 =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))
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
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
merci pour votre aide car les posts que j'ai trouvé ne me sont pas d'une grande utilité
cordialement
Partager