tester si colonne d'un classeur Excel est vide

Question

Bonjour, 

Quelqu'un sait-il comment tester si la colonne d'un classeur Excel est vide?

Merci,

J-F

Biboune · Answer

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"

J-F · Answer

Merci pour le tuyau,

J-F

rvduclos · Answer

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

Tester si colonne d'un classeur Excel est vide

3 réponses

Discussions similaires