CompterCelluleContenantUneFormule

C

Cathy

Guest

• 19 Février 2003

• #16

Bon, Moa,

j'ai grignotté u, biscuit au chocolat, (pas bon por ma ligne, ça!), et ça va mieux...


OK, tu as un résultat dans toto, donc après :

if toto > 0 then
range("DS14").value = 0
else
range("DS14").value = 1
end if

Cathy

 

Vote positif 0 Vote négatif

C

Cathy

Guest

• 19 Février 2003

• #17

sorry, c'est >0 pas =

Cathy

 

Vote positif 0 Vote négatif

C

Cathy

Guest

• 19 Février 2003

• #18

Range("ds16:ds17").Select
Selection.SpecialCells(xlCellTypeFormulas, 23).Select
For Each cell In Selection
toto = toto + 1
Next
' MsgBox toto

If toto > 0 Then
Range("DS14").Value = 1
Else
Range("DS14").Value = 0
End If


Cathy

 

Vote positif 0 Vote négatif

M

Moa

Guest

• 19 Février 2003

• #19

Désolé, cathy, mais il y a un hic...

En effet, si il n'y a pas de formule dans ma plage de cellules, et bien Bug, donc, je pense qu'il faut modifier légèrement la macro.

J'y retourne.

Merci

@ +

Moa

 

Vote positif 0 Vote négatif

C

Cathy

Guest

• 19 Février 2003

• #20

Rajoute

On Error Resume Next

avant selection...

Cathy

 

Vote positif 0 Vote négatif

M

Moa

Guest

• 19 Février 2003

• #21

Eh bien ma p'tit Cat, ça marche plus de bug, mais en l'occurence, si il n'y a plus de bug en cas de cellule vide, le résultat est devenu faux...héhé..

Décidément, c'est vraiment prise de tête.

Merci encore à toi...j'y retourne

@ +

Moa

 

Vote positif 0 Vote négatif

C

Cathy

Guest

• 19 Février 2003

• #22

Ah oui, Moa, t'as raison!

Sub Macro1()
' Macro1 Macro
' Macro enregistrée le 19/02/2003 par Cathy

Range("ds16:ds17").Select
On Error GoTo Fin
Selection.SpecialCells(xlCellTypeFormulas, 23).Select
For Each cell In Selection
toto = toto + 1
Next
MsgBox toto
If toto > 0 Then
Range("DS14").Value = 1
Else
Range("DS14").Value = 0
End If
Fin:
End Sub

Cathy

 

Vote positif 0 Vote négatif

M

Moa

Guest

• 19 Février 2003

• #23

Bonsoir Cathy !

Eh oui, maintenant ça marche...Gros gros merci à toi, tu t'es vraiment décarcassée pour m'aider, c'est vraiment très sympa..

Alors plein de Merci et gros bisous...

@ +


Moa

 

Vote positif 0 Vote négatif