Comptage

[piep14]

Bonsoir, comment je peux faire pour compter le nombre de cellule remplis dans la colonne A de l'onglet Test ? Les cellules sont remplis de A1 à Axx.

Merci

 

[MichelXld]

bonsoir

tu peux tester

=NBVAL(Test!A:A)

et par macro

MsgBox Application.WorksheetFunction.CountA(Sheets('Test').Columns(1))


bonne soirée
MichelXld

 

[Temjeh]

Bonsoir

Range('A1')
g = ActiveCell
ActiveCell.CurrentRegion.Resize(ActiveCell.CurrentRegion.Rows.Count, 1).Select
mycount = Selection.Rows.Count
MsgBox 'Il y a ' & mycount & ' ' & g

A+

Temjeh

 

[Temjeh]

Salut Michel

 

[piep14]

J'ai essayé ceci mais ca passe pas :

    total = Application.WorksheetFunction.CountA(Sheets('TAMPON').Columns(6))
    Selection.AutoFill Destination:=Range('C2:E' & total), Type:=xlFillDefault

Merci de votre aide

 

[MichelXld]

rebonsoir Piep14 , bonsoir cher Temjeh

qu'est ce qui ne passe pas ? quel est le message d'erreur ?

cela n'a peut etre rien à voir mais dans la premiere ligne tu fais reference à la colonne 6 et ensuite tu travailles sur la colonne 5
('C2:E'


bonne soirée
MichelXld

 

[piep14]

Donc le debug s'arrete sur

Sub Dupliquer_Formule()
    total = Application.WorksheetFunction.CountA(Sheets('TAMPON').Columns(6))
    Selection.AutoFill Destination:=Range('C2:E' & total), Type:=xlFillDefault
End Sub

Et quand s'affiche la valeur de total, il m'affiche 64. (valeur correspondant au nombre de cellule comprenant une formule). Moi, je voudrais retourner le nombre de cellule comportant une valeur !!!!

Si vous avez idée. Je vous remercie !!

 

[MichelXld]

bonjour

si tu donnes les informations au compte goutte on n'est pas arrivé ...;o)

si ce sont des formules qui ne renvoient pa s de valeurs : que renvoient elles ? rien = '' ? des 0 ?

en fonction des tes formules , tu peux adapter cette procedure
pour cet exemple , les formules seraient du style =SI(B2+C2=0;'';B2+C2)


Dim Cell As Range
Dim Total As Integer

For Each Cell In Range('A1:A' & Range('A65536').End(xlUp).Row)
If Not Cell.Value = '' Then Total = Total + 1
Next Cell


bon dimanche
MichelXld

 

[piep14]

En faite, j'ai fait :

Sub Dupliquer_Formule()
    Sheets('TAMPON').Select
    total = Range('f65536').End(xlUp).Row
    Sheets('CONCURRENCE').Select
    Range('B2').Select
    Selection.AutoFill Destination:=Range('B2:E2'), Type:=xlFillDefault
    Range('B2:E2').Select
    Range('A2:E2').Select
    Selection.AutoFill Destination:=Range('A2:E' & total), Type:=xlFillDefault
    Range('A2:E13').Select
End Sub

Mais le problème comme je l'ai souligné précédemment, c'est qu'il prend meme les cellules vides car elles contienent des formules. Ils me restent plus qu'a les ignorer et tout sera impécable !!

Merci a vous tous

 

[piep14]

C'est bon, je vous remercie !!!

Réponse :

    iTotal = Range('f65536').End(xlUp).Row
     While iTotal > 1 And (Cells(iTotal, 6).Value = '' Or Cells(iTotal, 6).Value = 0)
        iTotal = iTotal - 1
    Wend

Merci a tous, merci bbil

Message édité par: piep14, à: 15/01/2006 13:54