Traduction en code VBA

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.

Bonjour,

Avec la fonction CountIf :

Code:

---

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é.

Bonjour,

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


__________________________________________________________________________________________

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

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

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:

---

Application.CountBlank(Plage)

---

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

Code:

---

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

---