Discussion :

[FlorianBreizh]

Bonjour à tous,

J'aurais une question concernant l'interprétation en VBA du mot "Empty".

J'ai des colonnes remplies de nombres. J'ai écrit une fonction permettant de chercher la dernière cellule non vide d'une de ces colonnes (j'entends par cellule vide une cellule qui ne contient rien du tout). Mon problème est que cette fonction considère qu'une cellule avec le chiffre 0 est une cellule vide.
Y a t'il un moyen de vérifier que la cellule est réellement vide?

Merci d'avance.

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
17
18
19
Function ChercheCellVide(CelDepart As String) As Integer
'Fonction qui permet de chercher la dernière cellule vide d'une colonne
'Argument : Cellule de départ (exemple :"A1", "B2",...)
Dim Cel As Range
Dim AdrFin As String
Dim Compteur As Integer
Set Cel = Range(CelDepart) 'Ex : Set Cel = Range("A2")
Compteur = 1
Do While Cel.Offset(Compteur) <> Empty
             AdrFin = Cel.Offset(Compteur).Address
             Compteur = Compteur + 1
Loop
 
Compteur = Compteur - 1
ChercheCellVide = Cel.Offset(Compteur).Row
 
MsgBox "Dernière ligne non vide : " & Cel.Offset(Compteur).Row
 
End Function

[Godzestla]

Salut et bienvenue au Forum,

peux-tu tester ceci plutot ?

Code :

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

1
2
 
Do While Cel.Offset(Compteur) <> ""

[FlorianBreizh]

Oui, effectivement ça marche!

Merci et bonne journée