Comptage d à la fin d'une colonne [Excel]
Fermé
Noodlesnood
Messages postés
33
Date d'inscription
mercredi 17 janvier 2007
Statut
Membre
Dernière intervention
10 octobre 2008
-
23 janv. 2007 à 14:44
Noodlesnood Messages postés 33 Date d'inscription mercredi 17 janvier 2007 Statut Membre Dernière intervention 10 octobre 2008 - 23 janv. 2007 à 15:07
Noodlesnood Messages postés 33 Date d'inscription mercredi 17 janvier 2007 Statut Membre Dernière intervention 10 octobre 2008 - 23 janv. 2007 à 15:07
A voir également:
- Comptage d à la fin d'une colonne [Excel]
- Déplacer une colonne excel - Guide
- Liste déroulante excel - Guide
- Aller à la ligne excel - Guide
- Additionner colonne excel - Guide
- Figer une colonne excel - Guide
1 réponse
Noodlesnood
Messages postés
33
Date d'inscription
mercredi 17 janvier 2007
Statut
Membre
Dernière intervention
10 octobre 2008
2
23 janv. 2007 à 15:07
23 janv. 2007 à 15:07
Voici mon code qui ne fonctionne pas :
Sub inventaireCA()
sommeCA = 0
compterCA = 0
For Each cell In ActiveSheet.UsedRange
If cell.Value = "CA" Then
On Error Resume Next
sommeCA = sommeCA + cell.Value
On Error GoTo 0
compterCA = compterCA + 1
End If
Next
If compterCA = 1 Then c = "cellule" Else c = "cellules"
MsgBox compterCA & " " & c & " -- Total = " & sommeCA
End If
End Sub
Sub inventaireCA()
sommeCA = 0
compterCA = 0
For Each cell In ActiveSheet.UsedRange
If cell.Value = "CA" Then
On Error Resume Next
sommeCA = sommeCA + cell.Value
On Error GoTo 0
compterCA = compterCA + 1
End If
Next
If compterCA = 1 Then c = "cellule" Else c = "cellules"
MsgBox compterCA & " " & c & " -- Total = " & sommeCA
End If
End Sub