Tester si colonne d'un classeur Excel est vide

Signaler
-
 rvduclos -
Bonjour,

Quelqu'un sait-il comment tester si la colonne d'un classeur Excel est vide?

Merci,

J-F

3 réponses

Essaie de faire ça ... c'est batard mais ça marche !

Columns("a:a").Select
For Each Cell In Selection
If IsEmpty(Cell.Value) Then
Else
MsgBox "La colonne contient des données"
Exit Sub
End If
Next cell

MsgBox "Colonne vide"
Merci pour le tuyau,

J-F
Salut

tu peux aussi tout bêtement compter les valeurs dans la colonne désirée. Par exemple :

Sub Essai()
Dim SngNbVal As Single
Dim IntCol As Integer

IntCol = InputBox("Taper le numéro de la colonne dont vous voulez compter les valeurs:")

SngNbVal = Application.CountA(Columns(IntCol))
If SngNbVal = 0 Then
MsgBox "La colonne " & IntCol & " est vide."
Else
MsgBox "La colonne " & IntCol & " contient " & SngNbVal & " valeurs."
End If
End Sub

A plus
RV