Compteur excel Résolu

Question

Bonjour à toutes et à tous, 

J'essaie de faire un compteur sous excel qui en faite dans une cellule (par exemple A1) afficherait le nombre de fois qu' il y a affichage d'un mot (par exemple retard) dans la case B1) . Donc en somme , le compteur doit itéré +1 à chaque fois qu'il y a "retard" dans B1.

J'ai essayer des fonction comme NB.SI et Somme prod mais pas réussi !! POuvez vous m'aider!!

Configuration: Windows 7 / Firefox 3.6.6

dobo69 · Answer

bonjour,    

réponse "simple" dans un premier temps :    
petite macro à coller dans le module de la feuille où doit être fait cette manip :    

Private Sub Worksheet_Change(ByVal Target As Range)    
If Not Intersect([B1], Target) Is Nothing And [B1]= "retard" Then   
[A1]= [A1]+ 1    
End If    
End Sub

Rajoute 1 dans la cellule A1 chaque fois qu'on écrit 'retard' en B1    

Pour intégrer le code :    
- Clic-droit sur l'onglet correspondant    
- 'Visualiser le code'  (ouvre le module vba au niveau de l'objet de la feuille en cours)    
- Coller le texte du code ci-dessus dans la page blanche ainsi ouverte,    
- fermer le module vba.    

la procédure est active : tester si c'est ce que vous voulez.    

par contre si vous cherchez à comptabiliser tous les 'retards' qui pourraient être présents en colonne B il s'agit bien de =NB.SI(B:B;"retard") à écrire en A1.    
Si vous n'avez besoin de rien, demandez-moi.

dobo69 · Answer

Sub compter() 
compte = 0 
With ActiveSheet 
nbrligne = .Cells(.Columns(9).Cells.Count, 2).End(xlUp).Row - 1 
For i = 5 To nbrligne 
If .Cells(i, 9) = "Non traité" And .Cells(i, 10) = "Retard début OP" Then 
compte = compte + 1 
End If 
Next 
.[B2] = compte 
End With 
End Sub

pour compter les occurrences I:I="Non traité" et J:J= retard début OP" 
à copier-coller dans un module du classeur (le module 1 ou un autre...) et affecter un bouton. (Visiblement vous connaissez...) 


Sub RAZ() 
With ActiveSheet 
.[B2].ClearContents 
end with
End Sub

pour effacer la valeur en B2. 
Procédure idem précédent 

Si vous n'avez besoin de rien, demandez-moi.

dobo69 · Answer

Sub compter()
compte = 0
With ActiveSheet
nbrligne = .Cells(.Columns(9).Cells.Count, 2).End(xlUp).Row - 1
For i = 5 To nbrligne
If .Cells(i, 9) = "Non traité" And .Cells(i, 10) = "Retard début OP" Then
compte = compte + 1
End If
Next
ancien = [B2].Value
.[B2] = compte
End With
With Sheets("QRQC S1")
nblign = .Range("Q11:Q16").Find("*", , , , xlByRows, xlPrevious).Row + 1
If nblign = 17 Then
.Range("Q12:Q16").ClearContents
nblign = 12
End If
.Cells(nblign, 17) = ancien
End With
End Sub

compte les occurrences dans B2 de la feuille active et copie "l'ancienne" valeur dans le tableau de la feuille QRQC S1 'à la suite'. Si le tableau est complet, le "remet à 0"  si les 5 lignes sont déjà remplies (au bout de 5 jours donc).

A METTRE DANS LE "MODULE 1" ET PAS DANS LE MODULE DE LA FEUILLE, puis affecter un bouton "compter"

Sub RAZ()
With ActiveSheet
.[B2].ClearContents
End With
End Sub

A  mettre dans le module MODULE 1 ET PAS DANS LE MODULE DE LA FEUILLE, puis affecter un bouton "RAZ"

dobo69 · Answer

jour, 

Pour faire la meme chose dans la colonne R : 

Sub compter2() 
' 
'Compter le nombre de OP non traité et en retard de fin OP ou outil monté et en retard de fin OP' 

compte2 = 0 
With ActiveSheet 
nbrligne = .Cells(.Columns(9).Cells.Count, 2).End(xlUp).Row - 1 
For i = 5 To nbrligne 
If .Cells(i, 9) = "Non traité" And .Cells(i, 11) = "Retard Fin OP" Or .Cells(i, 9) = "Outil monté" And .Cells(i, 11) = "Retard Fin OP" Then 
compte2 = compte2 + 1 
End If 
Next 
ancien2 = .[E2].Value 
.[E2] = compte2 
End With 
With Sheets("QRQC S1") 
nblign = .Range("R11:R16").Find("*", , , , xlByRows, xlPrevious).Row + 1 
If nblign = 17 Then 
.Range("R12:R16").ClearContents 
nblign = 12 
End If 
.Cells(nblign, 18) = ancien2 
End With 
End Sub 

Ce la ne se voit pas très bien : avant dernière ligne : .Cells(nblign, 18)  18 représente la colonne R.
Si vous n'avez besoin de rien, demandez-moi.

Compteur excel

4 réponses

Newsletters