Détermination d'une plage vba

[perdinch]

Bonjour ,

Pouvez vous me dire pourquoi ce code ne fonctionnne pas.
L'objectif étant de compter le nb de cellule vide d'une plage (dont la dimension est variable) est située sur la ligne 1.

Sub test()
Dim maplage As Range
Dim cell_vide As Integer
Set maplage = Range("c1", Range("c1").EntireRow.Find(What:="*", SearchDirection:=xlPrevious))
cell_vide = Application.WorksheetFunction.CountBlank(maplage)
End Sub

 

[tototiti2008]

Re : Détermination d'une plage vba

Bonjour perdinch,

chez moi ça marche, à condition que A1, B1 et C1 soient remplies...

 

[pierrejean]

Re : Détermination d'une plage vba

Bonjour perdinch

Pourquoi faire simple quand on peut faire compliqué !!

Si la limite droite est C1

Sub test()
Dim maplage As Range
Dim cell_vide As Integer
Set maplage = ActiveSheet.Range("A1:C1")
cell_vide = Application.WorksheetFunction.CountBlank(maplage)
MsgBox (cell_vide)
End Sub

pour toute la ligne

Sub test()
Dim maplage As Range
Dim cell_vide As Integer
Set maplage = ActiveSheet.rows(1)
cell_vide = Application.WorksheetFunction.CountBlank(maplage)
MsgBox (cell_vide)
End Sub

Edit salut Tototiti

 

[Robert]

Re : Détermination d'une plage vba

Bonjour Perdinch, bonjour le forum,

Peut-être comme ça :

Sub test()
Dim maplage As Range
Dim cell_vide As Integer
Set maplage = Range("c1:" & Range("IV1").End(xlToLeft).Address)
cell_vide = Application.WorksheetFunction.CountBlank(maplage)
End Sub

[Édition]
Bonjour Tototiti, PierreJean on s'est croisé