Discussion :

[ericdev67]

Bonjour,

Dans une cellule, j'ai une formule matricielle, je cherche à récupérer la valeur car ça génère une boucle : s'il y a une valeur ou non dans la cellule, pour l'instant j'ai fait

Code :

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

If Not Sheets("Lien").Cells(i, j).Value = 0 Then

j'ai aussi essayé

Code :

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

If Not Sheets("Lien").Cells(i, j).Value = " " Then

Marche pas non plus...: comme la formule matricielle est dans la cellule, le code "estime" qu'elle n'est pas vide.

Une petite idée ?

Merci,
A+

[Krovax]

bonjour,
avec ton test =" " tu regarde s'il y a un espace dans ta cellule. Je ne pense pas que ce soit ce que tu souhaite

Code :

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

If Not Sheets("Lien").Cells(i, j).Value = "" Then

ou alors utilise la fonction isempty

Code :

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

if not isempty(Cells(i, j)) then

[ericdev67]

Merci Krovax,

J'ai essayé, mais ça ne fonctionne pas, la formule apparait toujours ....Ci joint une partie du code pour meilleure compréhension

Code :

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

1
2
3
4
5
6
7
For i = 3 To 10 'DerniereLigne
If Not IsEmpty(Cells(i, 8)) Then
'If Not Sheets("Lien").Cells(i, 8) = " " Then
Sheets("Lien").Cells(i - 1, 9).Copy Sheets("Lien").Cells(i, 9)
Application.ScreenUpdating = False
End If
Next i

Donc, si il y a valeur dans la colonne 8, je copie/colle (la formule matricielle)dans la colonne 9 à partir de la cellule précédente.

Même "Isempty" ne fonctionne pas : la formule apparait dans la colonne 8, même s'il n'y a pas de valeur, le code copie dans la colonne 9. Alors que moi, je cherche à ce qu'il ne copie pas s'il n'y a pas de valeur dans la colonne 8....Avec une cellule "normale", pas de soucis, avec la matricielle, elle apparait toujours....

Merci,
A+

[Pierre Fauconnier]

Bonjour
Peux-tu préciser ce que tu veux dire par

je cherche à ce qu'il ne copie pas s'il n'y a pas de valeur dans la colonne 8

Dès qu'une cellule n'est pas vide, elle contient une valeur. Si une formule renvoie "" dans une cellule, cette cellule n'est pas vide.

[ericdev67]

Merci Pierre,

Justement, c'est ce qui me pose soucis = j'ai ma formule matricielle dans la cellule H16 (par exemple)

Code :

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

{=INDEX('R4'!$D$1:$D$500;MIN(SI('R48'!$J$3:$J$500=$G16;SI(NB.SI($A16:$G16;'R4'!$D$3:$D$500)=0;LIGNE('R4'!$J$3:$J$500)))))&""}

Il n'y a pas de valeur affichée, et mon code (cf post) apparemment prend la formule matricielle comme valeur.....puisqu'il me copie/colle en I9.

Merci,
A+

[Pierre Fauconnier]

C'est un comportement normal d'Excel...

Ta cellule n'est pas vide puisqu'elle contient une formule. Donc, elle est copiée. IsEmpty renvoie FALSE sur une cellule qui contient une formule, même si cette formule renvoie "". Au passage, une formule d'Excel ne renvoie pas "du vide"...

La méthode Copy "singe" la copie d'Excel => si une formule est présente dans la cellule, c'est la formule qui est copiée, non la valeur (comme un "bête" copier-coller en Excel).

Si tu ne veux copier que les valeurs, tu dois "singer" le copier-collage spécial valeurs, comme ceci

Code :

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

1
2
Sheets("Lien").Cells(i, 9).copy
Sheets("Lien").Cells(i - 1, 9).PasteSpecial xlPasteValues

Tu peux aussi utiliser directement:

Code :

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

Sheets("Lien").Cells(i, 9).value = Sheets("Lien").Cells(i - 1, 9).value