Excel : Nb cellules sans formule
Fermé
julien
-
17 mai 2010 à 15:30
cptarget Messages postés 17 Date d'inscription dimanche 2 mai 2010 Statut Membre Dernière intervention 30 décembre 2010 - 17 mai 2010 à 17:22
cptarget Messages postés 17 Date d'inscription dimanche 2 mai 2010 Statut Membre Dernière intervention 30 décembre 2010 - 17 mai 2010 à 17:22
A voir également:
- Excel : Nb cellules sans formule
- Liste déroulante excel - Guide
- Si et excel - Guide
- Word et excel gratuit - Guide
- Aller à la ligne excel - Guide
- Déplacer une colonne excel - Guide
1 réponse
cptarget
Messages postés
17
Date d'inscription
dimanche 2 mai 2010
Statut
Membre
Dernière intervention
30 décembre 2010
1
Modifié par baladur13 le 31/12/2010 à 14:14
Modifié par baladur13 le 31/12/2010 à 14:14
Bonjour,
Peut-être y a t il plus simple mais moi j'avais écrit une macro pour ça
--> pour une mise à jour automatique je conseillerai alors de mettre le code dans la feuille qui se déclenche automatiquement à chaque mise à jour
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim l As Integer
Dim m As Integer
l = ActiveSheet.UsedRange.Rows.Count
k = ActiveSheet.UsedRange.Columns.Count
m = 0
For i = 1 To l
For j = 1 To k
If Cells(i, j).HasFormula = True Then
m = m + 1
End If
Next j
Next i
range("z30") = m
Christophe
Pub supprimée Modération CCM
Peut-être y a t il plus simple mais moi j'avais écrit une macro pour ça
--> pour une mise à jour automatique je conseillerai alors de mettre le code dans la feuille qui se déclenche automatiquement à chaque mise à jour
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim l As Integer
Dim m As Integer
l = ActiveSheet.UsedRange.Rows.Count
k = ActiveSheet.UsedRange.Columns.Count
m = 0
For i = 1 To l
For j = 1 To k
If Cells(i, j).HasFormula = True Then
m = m + 1
End If
Next j
Next i
range("z30") = m
Christophe
Pub supprimée Modération CCM