Comptage

M

MichelXld

XLDnaute Barbatruc

• 14 Janvier 2006

• #2

bonsoir

tu peux tester

=NBVAL(Test!A:A)

et par macro

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


bonne soirée
MichelXld

 

Vote positif 0 Vote négatif

T

Temjeh

Guest

• 14 Janvier 2006

• #3

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

 

Vote positif 0 Vote négatif

T

Temjeh

Guest

• 14 Janvier 2006

• #4

Salut Michel

 

Vote positif 0 Vote négatif

piep14

XLDnaute Occasionnel

• 14 Janvier 2006

• #5

J'ai essayé ceci mais ca passe pas :

Code:

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

Merci de votre aide

 

Vote positif 0 Vote négatif

M

MichelXld

XLDnaute Barbatruc

• 14 Janvier 2006

• #6

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

 

Vote positif 0 Vote négatif

piep14

XLDnaute Occasionnel

• 15 Janvier 2006

• #7

Donc le debug s'arrete sur

Code:

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 !!

 

Vote positif 0 Vote négatif

M

MichelXld

XLDnaute Barbatruc

• 15 Janvier 2006

• #8

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

 

Vote positif 0 Vote négatif

piep14

XLDnaute Occasionnel

• 15 Janvier 2006

• #9

En faite, j'ai fait :

Code:

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

 

Vote positif 0 Vote négatif

piep14

XLDnaute Occasionnel

• 15 Janvier 2006

• #10

C'est bon, je vous remercie !!!

Réponse :

Code:

    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

 

Pièces jointes

• concurrence.zip

  26.8 KB · Affichages: 19
• concurrence.zip

  26.8 KB · Affichages: 18
• concurrence.zip

  26.8 KB · Affichages: 17

Vote positif 0 Vote négatif