Discussion :

[sebforever]

bonjour a tous,
je souhaite calculer le nombre de cases remplies situées à droite d'une cellule définie. Voila le travail effectué:

Code :

Code :

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

1
2
3
4
5
6
Function compte_col(i As Integer, j As Integer, a As Worksheets) As Integer
compte_col = 0
Do While a.Cells(i, j) <> ""
j= j + 1
compte_col = compte_col + 1
End Function

C'est pourtant une fonction simple mais quand je l'utilise comme cela par exemple:

Code :

Code :

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

MsgBox compte_col(2, 1, Worksheets("tache" ))

j'ai une message d'erreur "incompatibilité de type"

Voila si vous pouvez m'aider je vous en remercie!

[pgz]

Bonsoir.

Dans la fonction

Code :

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

a as Excel.Worksheet

sans "s". L'objet pas la collection.

Bon courage,

PGZ

[Singular]

Quelque chose dans le genre :

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
 
Function CellulesRempliesADroite(ByRef Plage As Range) As Integer
    Dim rng As Range
    Dim rngUnion As Range
 
    On Error Resume Next
    Set rng = Plage.SpecialCells(xlCellTypeConstants)
    If Not Err.Number = 0 Then
        Err.Clear
    End If
    Set rngUnion = rng
    Set rng = Plage.SpecialCells(xlCellTypeFormulas)
    If Not Err.Number = 0 Then
        Err.Clear
    End If
    Set rngUnion = Union(rngUnion, rng)
    If Not rngUnion Is Nothing Then
        CellulesRempliesADroite = rngUnion.Cells.Count
    End If
    On Error GoTo 0
End Function

[ouskel'n'or]

Pour la dernière cellule renseignée à droite d'une cellule pleine, tu as pour toutes les versions

Code :

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

    DerniereColonne = Cells(NoLigne, Rows(NoLigne).Cells.Count).End(xlToLeft).Column

Pour Version < 2007

Code :

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

    DerniereColonne = Range("IV1").End(xlToLeft).Column

Il te reste une soustraction à faire...
NoLigne doit être renseignée (!)
Si c'est là ta question
Bonne journée

[Singular]

Mais que se passe-t-il s'il y a des 'blancs' entre la dernière cellule renseignée et la cellule référence? Ils seront inclus dans le calcul, non?

[niavlys26]

ouaip il cherche à obtenir le nb de cellules pleines
En utilisant le code de ouskel'n'or j'ai pas trop compris (c'est Range("IV1") qui me bloque ) mais pour le principe :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Function compte_col(i As Integer, j As Integer, a As Excel.Worksheet) As Integer
 
Dim z%
compte_col = 0
 
For z = j to DerniereColonne 
'Je ne sais pas si DerniereColonne retourne le nombre entier de la Colonne,
'Mais le principe est bon non ?
     If a.Cells(i, z) <> "" then compte_col = compte_col + 1
Next z
 
'Peut etre mettre un compte_col = compte_col - 1 car a.Cells(i, j) a été compté là je sais pas si tu veux l'inclure ou non
End Function