à=SOMME(D7:M7)
=SOMME(D7+E7+F7+G7+H7+I7+J7+K7+L7+M7)
Lorsque la cellule de la colonne D est vide, alors la cellule de la colonne A11 doit être vide aussi. ( je sais pas quelle formule utiliser pour ça )
=SI(D7<>"";SOMME(D7:M7))
Sub CoupleCouleurs()
Dim DerL&, DerC&, c&, i&, t&, u&, ti
Application.ScreenUpdating = False
Application.EnableEvents = False
WsCp.Activate
DerL = Cells(Rows.Count, 11).End(xlUp).Row
DerC = Cells(1, Columns.Count).End(xlToLeft).Column
For i = 13 To DerL Step 4
If Cells(i, 11) = Cells(4, 11) Or _
Cells(i, 11) = Cells(5, 11) Or _
Cells(i, 11) = Cells(6, 11) Or _
Cells(i, 11) = Cells(7, 11) Or _
Cells(i, 11) = Cells(8, 11) Or _
Cells(i, 11) = Cells(9, 11) Or _
Cells(i, 11) = Cells(10, 11) Or _
Cells(i, 11) = Cells(11, 11) Then t = 1
If Cells(i + 1, 11) = Cells(4, 11) Or _
Cells(i + 1, 11) = Cells(5, 11) Or _
Cells(i + 1, 11) = Cells(6, 11) Or _
Cells(i + 1, 11) = Cells(7, 11) Or _
Cells(i + 1, 11) = Cells(8, 11) Or _
Cells(i + 1, 11) = Cells(9, 11) Or _
Cells(i + 1, 11) = Cells(10, 11) Or _
Cells(i + 1, 11) = Cells(11, 11) Then u = 1
Cells(i + 2, 11) = t + u
t = 0: u = 0
Cells(i + 2, 6) = WorksheetFunction.Min(Range(Cells(i + 2, 11), Cells(i + 2, DerC)))
Cells(i + 2, 7) = WorksheetFunction.Max(Range(Cells(i + 2, 11), Cells(i + 2, DerC)))
Next i
Application.EnableEvents = True
Application.ScreenUpdating = True
Beep
End Sub
Bonsoir biafox, le forum,
Pour les boutons 2 et 3, j'ai séparé les procédures. J'ai fait des boutons 2' et 3' (ceux-ci sont pour la mise en forme conditionnelle).
Pour info, il n'est pas possible (à ma connaissance) de compter les couleurs, lorsque ce sont des couleurs avec mise en forme conditionnelle (MFC). Donc pour compter, je compare chaque cellule avec les cellules de K4:K11. Ca, je le fait pour la colonne K, s'il faut le faire pour toutes les colonnes, ça risque de prendre du temps. Sachant que à chaque fois que tu rajoutera une colonne, cela se rajoutera automatiquement aux colonnes précédentes.
Donc :
1 - on clique sur 1
2 - on rentre les chiffres dans l'onglet "Colonne" dans les cellules K4 à K11.
3 - on clique sur 2', cela mets les couleurs
4 - on clique sur 2, cela calcule le nombre de couleurs
5 - dans l'onglet "Couple", on clique sur 3', cela mets les couleurs
6 - on clique sur 3, cela calcule le mini et maxi des couleurs.
7 - comme d'hab on clique sur 4 et 5, pour envoyer les couples et mettre les couleurs.
Tu peux sauter les 3 et 5, et faire la MFC manuellement ou pas du tout puisque les calculs se font par comparaison.
Vois déjà si ça marche.
Le 3 est un peu long, j'essaie de réduire le temps de calcul, mais pour le moment ce n'est pas le top.
A te relire
Martial
Re,
Je ne sais pas ce que tu as comme ordi, mais alors le miens à mis au moins 15 min pour donner le résultat.
Effectivement, le nombre de couples générés est assez important.
Le fait d'avoir un affichage réparti sur plusieurs colonnes n'est pas adéquat pour mes besoins d'autant plus que j'ai un temps d'attente en terme de calcul d'environ 15 min, j'ai seulement le temps de boire un café mais aussi d'aller faire mes courses !
Du coup, la seule solution est de me restreindre et de rester sur la première ébauche que tu as fait en tenant compte simplement des colonnes une à une.
Je suis pas très calé en informatique, d'où ma présence ici sur ce site, mais je me demandais s'il était possible d'envoyer les données dans une base de données qui pourrait intégrer l'ensemble des couples sans avoir le soucis de limitation comme sur excel et dont l'index principal serait la date.
Mais, en tout cas, je te remercie pour ton aide.
Heureusement qu'il y a encore des gens qui comme toi, donne un coup de main aux uns et aux autres !
Encore merci
=SI(C7<>"";SOMME(D7:M7);"")
=SI(C7="";"";SOMME(D7:M7))