galopin01 a écrit :
bonjour,
Une 'tite macro pour te faire ça :
Sub comptage()
k = Range("A" & Rows.Count).End(3).Row
For i = 1 To k
If Cells(i, 1) = 0 Then
j = j + 1
Else
If j > 0 Then
j = j + 1
Range("C" & j) = "nombre de figures " & j & " : " & Range("D" & j) + 1
Range("D" & j) = Range("D" & j) + 1
j = 0
End If
End If
Next
Range("D:D").Clear
End Sub
Nota:
La macro ne s'occupe de la colonne B :
Elle examine seulement le contenu de la colonne A
...et restitue le résultat en colonne C
La macro utilise la colonne D pour des comptages intermédiaires.
A+
Merci beaucoup pour ta macro mais comme je débute je vais faire petit à petit (me limite au formule pour le moment).
Milouse
-- 05 Jan 2010, 22:07 --
Amadéus a écrit :
Bonjour
Solution par formules
Cordialement
Super
Je peux avancer plus vite que prévu
Cependant j'aurais quelque chose d'autre à demander.
En regardant la colonne D c'est à dire la liste des "Nombre figures", j'aimerais obtenir dans une autre colonne un "1" après chaque figure au dessus de la figure 2 et si la figure 2 apparait obtenir un "0".
Exemple :
Nombre de figures
3
13 0
16 0
2 1
3
7 0
3 0
7 0
8 0
4 0
3 0
7 0
7 0
7 0
7 0
7 0
5 0
4 0
2 1
4
9 0
7 0
6 0
10 0
2 1
4
2 1
13
2 1
5
8 0
5 0
etc...
Détails de l'exemple :
La première figure est 3 donc au dessus de 2, je voudrais qu'une formule me mette "0" si la prochaine figure est une figure au dessus de 2 et qu'elle mette "1" si la figure est une figure de 2.
Figure suivante : 13 donc "0"
Quand une figure de 2 apparait (mettre "1" donc) j'attends qu'une figure au dessus de 2 arrive pour recommencer.
Pour la 4ème figure de cet exemple une figure de 2 apparait donc "1" et la figure qui suit est une figure de 3 (au dessus de 2) donc je recommence.
En espérant ne pas avoir été trop brouillon
Milouse