Discussion :

[pasterlouis]

Bonjour,
je bloque car je n'arrive pas à traduire ce que je veux sous forme de code(sans utiliser une boucle).
Comment on peut dire en code "S'il n'ya pas de cellule vide dans TOUTE une colonne"

Sinon, "S'il ya au moins une cellule vide dans Toute la colonne)

Merci d'avance pour vos aides.

[Theze]

Bonjour,

Avec la fonction CountIf :

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
20
21
22
23
 
Sub Test()
 
    Dim Plage As Range
 
    'défini la plage sur la colonne A de la feuille active
    With ActiveSheet
 
        Set Plage = .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp))
 
    End With
 
    If Application.CountIf(Plage, "") > 0 Then
 
        'le code si il y à au moins une cellule vide...
 
    Else
 
        'le code si toutes les cellules sont remplies...
 
    End If
 
End Sub

Hervé.

[Marc-L]

Bonjour,

rien qu'en utilisant la fonction NB.VIDE de la feuille de calcul : Application.CountBlank(Columns(1)) …


__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[pasterlouis]

Merci Theze, ton code marche nickel
Merci Marc_L ton idée est super bien mais je m'était mal exprimé car ton code fait toute la colonne (de la 1ére ligne à la 1048576éme ligne), alors que je voulais qu'il s'arrete à la dernière ligne non vide

Merci beaucoup pour vos réponses rapides et pertinentes

[Philippe Tulliez]

Bonjour,
En reprenant le code proposé par Hervé (Theze) avec l'affectation de la variable objet Plage, tu peux tout aussi bien utiliser la proposition de Marc.L

Code :

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

Application.CountBlank(Plage)

ou encore avec la formule COUNTA qui devrait être égal au nombre de cellules de la plage (Plage.Count).
Exemple

Code :

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

1
2
3
4
5
 If Application.WorksheetFunction.CountA(plage) = plage.Count Then
   MsgBox "Tout est rempli"
  Else
   MsgBox "Il y a au moins une cellule vide"
 End If