Discussion :

[lilou86]

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 :

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

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.
@+

[mercatog]

tu as sur chaque ligne une case à cocher?

[ucfoutu]

Bonjour,

Qu'entends-tu exactement par :

Code :

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

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

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

[laetitia]

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

Code :

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

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

[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 :

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

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

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

Code :

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

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

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