Discussion :

[Jeetiz]

Salutatous,

Je bug sur un truc qui me parait pourtant pas bien compliqué: Tester si une cellule est vide sachant que ma variable est un entier!

Exemple:
Je récupère dans une variable, les notes contenues dans A2:A11, si la cellule est vide, j'affiche une msgbox, mais aucun de mes tests ne fonctionnent

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
Sub macro1()
 
Dim note As Integer
 
For i = 1 To 10
 
note = Range("A1").Offset(i).Value
 
If note = "" Then MsgBox ("cellule vide")
 
If IsEmpty(note) Then MsgBox ("cellule vide")
 
If IsNull(note) Then MsgBox ("cellule vide")
 
next i
End Sub

Si vous avez un indice, merci d'avance!

[pgz]

Bonjour.

Puisque tu lis la valeur dans la variable 'note' qui est de type entier, si la cellule est vide, tu as 0 dans 'note'. Ce qui ne te permet pas de savoir si la cellule est vide, puisque la valeur 0 donnera le même résultat.

Pour tester si la cellule est vide, tu peux tester directement

Code :

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

if Isempty(Range("A1").Offset(i))

ou lire la cellule dans une variable de type variant.

Cordialement,

PGZ

[Jeetiz]

Merci, effectivement c'était le problème, je pensais qu'un entier non définit avait une valeure de type Null ou Empty, mais en fait il vaut 0.

Je comprend maintenant pourquoi mon IF match si la valeur = 0.

ça va fait plus brouillon dans mon code, mais ça marche!

Encore merci