Discussion :

[Kutoh]

Bonjour
J'aimerai compter le nombre de cellules non vides dans une ligne
J'ai écris le code suivant:

Code :

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

1
2
3
4
5
6
7
8
9
Dim Plage As Range, n As Integer
For Each Plage In ActiveSheet.Range("A:Z").Rows("1")
    If Plage.Value <> "" Then
        n = n + 1
    Else
        n = n
    End If
Next Plage
MsgBox n

Mais j'ai un message d'erreur d'incompatibilité de type sur cette ligne

Code :

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

    If Plage.Value <> "" Then

une idée?
Thank's

[Invité]

Le code correct est:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Option Explicit
 
Public Sub Compter()
 
  Dim Plage As Range, n As Integer
 
  For Each Plage In ActiveSheet.Range("A1:Z1")
    If Plage.Value <> "" Then n = n + 1
  Next Plage
  MsgBox n
 
End Sub

Mais il est plus simple d'utiliser (et plus efficace):

Code :

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

1
2
3
4
5
6
7
Public Sub CompterBis()
 
  Dim n As Integer
  n = Application.WorksheetFunction.CountA(Range("A1:Z1"))
  MsgBox n
 
End Sub

[MarcelG]

Bonjour Kutoh, Bonjour le forum

Sans VBA, la fonction NBVAL fera très bien l'affaire

Sinon en VBA

Code :

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

WorksheetFunction.CountA(Sheets(1).Range("A1:Z1"))

[Daniel.C]

Bonjour,

Il faudrait que tu écrives :

Code :

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

For Each Plage In ActiveSheet.Range("A:Z").Rows("1").Cells

mais il est plus simple d'écrire :

Code :

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

For Each Plage In ActiveSheet.Range("A1:Z1")

et pour t'éviter de faire une boucle, tu peux utiliser l'équivalent de la fonction Excel NBVAL :

Code :

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

n = Application.CountA(ActiveSheet.Range("A1:Z1"))

[MarcelG]

Bonjour Daniel,

Télescopage en chaîne.
Pour appeler une fonction Excel, je ne saisis pas très bien la différence entre

Code :

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

WorksheetFunction.CountA

et

Code :

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

Application.CountA

En vois-tu une?

[Kutoh]

Ah merci. Parfois tu te demandes comment ça n'a pa pu te venir à l'esprit.
La solution à mon problème est le code de vcottineau

Code :

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

1
2
3
4
5
6
  Dim Plage As Range, n As Integer
 
  For Each Plage In ActiveSheet.Range("A1:Z1")
    If Plage.Value <> "" Then n = n + 1
  Next Plage
  MsgBox n

Mais en complément, à quoi sert la fonction suivante?

Code :

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

WorksheetFunction.CountA(Sheets(1).Range("A1:Z1"))

Surement à compter le nombre de celulle dans la plage défiie si je ne me trompe pas.

[Invité]

Télescopage en chaîne.
Pour appeler une fonction Excel, je ne saisis pas très bien la différence entre

WorksheetFunction.CountA

et

Application.CountA

En vois-tu une?

Ça influence la manière dont les erreurs sont gérées.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
  Dim Res As Variant
  Res = Application.WorksheetFunction.VLookup(...)
  If Err.Number = 0 Then
  Else
  End If
 
  Dim Res As Variant
  Res = Application.VLookup(...)
  If IsError(Res) = False Then
  Else
  End If

[casefayere]

Bonjour,

Mais en complément, à quoi sert la fonction suivante?

Code :

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

WorksheetFunction.CountA(Sheets(1).Range("A1:Z1"))

Surement à compter le nombre de celulle dans la plage défiie si je ne me trompe pas.

Sers-toi de l'aide en selectionnant CountA et en appuyant sur F1, on ne le répêtera jamais assez.

Bonne journée

[Invité]

Mais en complément, à quoi sert la fonction suivante?

Elle donne exactement le même résultat que la boucle que tu as créée. Elle correspond à la fonction 'NBVAL()' en français dans Excel.

C'est une fonction native et il est préférable de l'utiliser.

[Daniel.C]

L'unique intérêt de "Worksheetfunction" est de "prompter" les paramètres de la fonction. Ça provoque également parfois un bug avec "Match", "VLookUp" etc. Et en plus, c'est long à taper. Donc je ne m'en sers jamais.