probleme avec Isempty

Version imprimable

Bonjour à vous tous,

J'ai un probleme je souhaite que ma macro verifie sur plusieurs lignes de la feuille qual. int. S1 que :
la cellule Ci est pleine (problème),
la case à cocher en Mi est cochée (ok).
Je ne comprends pas pourquoi mon code ne marche pas.
Pouvez-vous m'aider s'il vous plaît ?

Voici mon code :
Code:

1 2 3 4 5 6 7 8 j = 6 For i = 6 To 200 'récupération des données dans la feuille Qual. Int. S1 Worksheets("Qual. Int. S1").Activate If Range("M" & i).Value = False And IsEmpty(Range("C" & i)) = False Then msgbox ok end if
Merci d'avance pour toute l'aide que vous pourrez m'apporter.

Bonne soirée.
@+

20/11/2009, 19h14
mercatog

tu as sur chaque ligne une case à cocher?
20/11/2009, 20h35
ucfoutu

Bonjour,

Qu'entends-tu exactement par :

Code:

And IsEmpty(Range("C" & i)) = False

?
Lis d'abord :
http://www.developpez.net/forums/d83...orrespondante/

bonjour lilou86 les amis mercatog & ucfoutu le forum comme je comprends!!!

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub es()
Dim obj As OLEObject, i As Byte
i = 6
For Each obj In Sheets("Qual. Int. S1").OLEObjects
If TypeOf obj.Object Is MSForms.CheckBox Then
If obj.Object.Value = False And Cells(i, 3) = "" Then
MsgBox "ok"
Else
MsgBox "pas ok"
End If
End If
i = i + 1
Next obj
End Sub

21/11/2009, 09h00
ucfoutu

Bonjour,
Laetitia (coucou laetitia) a raison. (Et c'est une cellule, que l'on examine)

Je dirais par ailleurs (mais ce n'est qu'un apparté complmentaire) qu'une plage est définivement composée de cellules sans contenu si le nombre de ses cellules sans contenu est égal au nombre total des cellules de la plage

Utiliser (en ce qui concerne les plages) , par exemple (pour compter le nombre de cellules sans contenu:

Code:

WorksheetFunction.CountBlank(Range(".....:......"))

ou encore, fort probablement (c'est à tester):

Code:

WorksheetFunction.CountIf(Range(".....:....."), "")

Voilà : ce n'était qu'un apparté concernant les plages (dont l'utilisation n'est pas justifiée ici)