probleme avec COUNTA

Pierrot93

XLDnaute Barbatruc

• 8 Juillet 2009

• #2

Re : probleme avec COUNTA

Bonjour Sebwan

essaye peut être ainsi, mais sans plus de détail....

Code:

Worksheets(1).Range("o2").Offset(i, 0).Value = WorksheetFunction.CountA(Range("O3").Resize(i, j * 3))

bon après midi
@+

 

Vote positif 0 Vote négatif

mromain

XLDnaute Barbatruc

• 8 Juillet 2009

• #3

Re : probleme avec COUNTA

bonjour Sebwan,

il y a un problème de syntaxe dans ton code.
essaye avec cette ligne (je n'ai pas tester...)

Code:

.Value = Application.WorksheetFunction.CountA(Range(Cells("O3").Offset(i, 0), Cells("O3").Offset(i, j * 3)))

edit: bonjour PierroT, cette fois, c'est moi qui n'a pas été assez rapide 😉
a+

 

Vote positif 0 Vote négatif

S

Sebwan

Guest

• 8 Juillet 2009

• #4

Re : probleme avec COUNTA

Merci pour votre aide...Malheureusement pour les 2 cas il m'indique "incompatibilité de type" 🙁

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 8 Juillet 2009

• #5

Re : probleme avec COUNTA

Re,

comment sont déclarées et initialisées tes variables ?

@+

 

Vote positif 0 Vote négatif

S

Sebwan

Guest

• 8 Juillet 2009

• #6

Re : probleme avec COUNTA

La variable "i" est dans la boucle, et le "j" et le "nb" sont des nombres qui sont insérer avant le début de la macro(mais qui vont changer d'une année à l'autre).

Si ça ne marche pas avec le counta, peut-être avez vous d'autres solutions : L'idée est de pouvoir retourner le nombre de cellules non vides pour chaque ligne entre la colonne "O" et la colonne "O"+3*j (la borne supérieure variant d'une année à l'autre)

Merci!

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 8 Juillet 2009

• #7

Re : probleme avec COUNTA

Re

mets un petit fichier en pièce jointe, sans données confidentielles, avec le code utilisé et le type de donnée traité, plus facile pour t'aider...

@+

 

Vote positif 0 Vote négatif

S

Sebwan

Guest

• 8 Juillet 2009

• #8

Re : probleme avec COUNTA

Voici le fichier que je remplis et une partie de la macro :

 

Pièces jointes

• macro.zip

  23.5 KB · Affichages: 25
• macro.zip

  23.5 KB · Affichages: 25
• macro.zip

  23.5 KB · Affichages: 23

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 8 Juillet 2009

• #9

Re : probleme avec COUNTA

Re,

je ne vois pas que la variable "nb" soit initialisée.... pour moi elle est vide lorsqu'elle est utilisée...

 

Vote positif 0 Vote négatif

S

Sebwan

Guest

• 9 Juillet 2009

• #10

Re : probleme avec COUNTA

Oui mais je ne pense pas que le problème viennent de là (j'ai essayer avec une boucle du type

For i = Cells(1, 1).CurrentRegion.Rows.Count To 1 Step -1
***
Next i

et le problème est identique!

 

Vote positif 0 Vote négatif

S

Sebwan

Guest

• 9 Juillet 2009

• #11

Re : probleme avec COUNTA

En feuilletant un autre forum, j'ai trouvé une solution pour mon probléme, et je vous en fais part (pour info, et si ça peut aider quelqun par la suite:

m = 1
dossier = monfichier.Worksheets(1).Range("B2").Offset(m, 0)

While dossier <> "" And dossier <> 0



LigDeb = m + 2
LigFin = m + 2
ColDeb = 15
ColFin = 15 + j * 3
monfichier.Worksheets(1).Range("O2").Offset(i, j * 3 + 3).Formula = Application.WorksheetFunction.CountA(Range(Cells(LigDeb, ColDeb), Cells(LigFin, ColFin)))

m = m + 1
dossier = monfichier.Worksheets(1).Range("B2").Offset(m, 0)
Wend

Cliquez pour agrandir...

Comme cela, on sait faire varier les bornes des cellules....

 

Vote positif 0 Vote négatif