Microsoft 365 formule NB.SI

[sev31130]

bonjour
pourriez svp me donner les formule pour les lignes dont exemple ci- dessous
en fait je vous l'explique comme je verrais la formule
si B11 = F10:W10 alors 1 égalité sinon " " donc nous mettons 1 en F11 et "" dans les autres cellules
si C11:d11 = F10:W10 alors 0 si égalité sinon "" donc nous mettons 0en K11 et 0 en M11
comme vous pourrez le remarquer, je fais 8 nouvelles lignes par jour, est ce qu lorsque je créerais la nouvelle ligne
les formules se copierons dans les nouvelles cellules
Par avances merci

 

[st007]

Bonjour,
avec un peu de chance, comme ceci

 

[st007]

re,
ou comme çà en copiant collant valeur la ligne précédente

 

[sev31130]

re bonjour

le deux marches ce serait super mais j'ai un probléme
c'est que les formules dans les cellules changent mes totaux en ligne F8:W8

			1	2	3	4	5	6	7	8	9	10	11	12	13	14	15	16	17	18
	ecart gagnant	0	13	6	11	16	1	4	19	7	8	23	22	91	95	95	58	95	95
	ecart placé2	0	5	6	0	1	1	0	2	4	5	21	18	8	44	28	58	30	95
	nbre gagnants	13	14	7	7	7	12	4	9	5	2	7	5	2	0	0	1	0	0		95	x3 = 285 et non 330 comme ci-dessous
	nbre placés	23	36	27	30	32	26	25	29	23	12	21	14	10	5	5	5	4	3		330

 

[st007]

re
Avec nb au lieu de nbval

 

[Staple1600]

Bonsoir le fil

sev31130
Pourquoi avoir créer un fil doublon?

Microsoft 365 - Compter des cellules Vides

Bonjour et Merci par avance Comme souvent j'essaie de faire ce queje sais faire et je vous demande de m'aider pour finir j'ai un tableau avec des colonnes que je rempli chaque jour, et il y a des calculs que je ne sais pas faire et des questions que je pose concernant l'insertion de ligne...

www.excel-downloads.com

(ou tout du moins citer le premier fil par un lien)

 

[sev31130]

Bonsoir Staple1600
Oui vous avez raison, j'y ai pensé mais trop tar j'avais déjà envoyer ce fil et je m'en excuse
cordialement

 

[sev31130]

Bonsoir

je continues ici alors

je pensais que ce serait facile
mais je me rends compte que j'ai certainement besoin d'une autre macro que je ne sais pas faire
j'ai un un tableau "général" sur lequel il y a entre 8 à 10 lignes par jour numérotés de 1 à 8 ou 9 ou 10
j'ai par ailleurs des feuille de 1 à 10 je voudrais tous les jours incorporer les lignes dans chaque feuille correspondantes la 1 dans la feuille 1 , la 2 dans la feuille 2 etc..... avec toujours la plus récente en ligne 12
alors je dis une macro peut être existe 'il une autre façon de le faire

Par avance merci

je vous joins mon fichier

 

[sev31130]

bonjour
est ce que c'est faisable ce que je voudrais pouvoir faire
par avance merci

 

[sev31130]

re
Avec nb au lieu de nbval

Bonsoir

je continues ici alors

je pensais que ce serait facile
mais je me rends compte que j'ai certainement besoin d'une autre macro que je ne sais pas faire
j'ai un un tableau "général" sur lequel il y a entre 8 à 10 lignes par jour numérotés de 1 à 8 ou 9 ou 10
j'ai par ailleurs des feuille de 1 à 10 je voudrais tous les jours incorporer les lignes dans chaque feuille correspondantes la 1 dans la feuille 1 , la 2 dans la feuille 2 etc..... avec toujours la plus récente en ligne 12
alors je dis une macro peut être existe 'il une autre façon de le faire

Par avance merci

 

[job75]

Bonjour sev31130, st007, JM,

Formule en E11 de la feuille "Général", à tirer vers le bas :

=1+E12*(A11=A12)

Formule en F11, à tirer à droite et vers le bas :

=SIERREUR(N(EQUIV(F$10;$B11:$D11;0)=1);"")

La macro complétée pour la couleur en colonne E :

Sub Nouvelle_ligne()
Application.ScreenUpdating = False
[A11:X11].Copy
[A11].Insert xlDown 'insère les cellules copiées
[A11] = Date
[B11:D11].ClearContents 'RAZ
If [E11] = 1 Then [E11].Interior.Color = IIf([E11].Interior.Color = vbYellow, 15123099, vbYellow)
End Sub

Et la nouvelle macro dans ThisWorkbook :

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Not IsNumeric(Sh.Name) Then Exit Sub
Application.ScreenUpdating = False
Sh.Rows("12:" & Sh.Rows.Count).Delete 'RAZ
With Sheets("Général")
    With .Range("A10:X" & 10 + Application.Count(.Columns(1)))
        .AutoFilter 5, Sh.Name 'filtre automatique
        .Copy Sh.[A11] 'copier-coller, attention il y a un décalage par rapport à la source
        .AutoFilter 'ôte le filtre
    End With
End With
End Sub

Elle copie la feuille "Général" filtrée quand on active une autre feuille.

Nota : il y avait un espace superflu dans le nom "Général"...

A+

 

[sev31130]

Bonjour job75, st007, JM,

que dire si ce n'est un grand merci à vous tous en général
et un super grand merci à Mr JOB75

Cordialement

 

[job75]

Un complément pour terminer.

Avec le fichier présenté la copie du filtre de la feuille "Général" ne prend que les valeurs.

Mais quand le résultat du filtrage est la plage A10:X11 (en particulier le 1er jour), les formules sont copiées et leur collage donne des résultats faux.

Pour y remédier dans ce fichier (2) j'ai donc complété la macro :

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Not IsNumeric(Sh.Name) Then Exit Sub
Application.ScreenUpdating = False
Sh.Rows("12:" & Sh.Rows.Count).Delete 'RAZ
With Sheets("Général")
    With .Range("A10:X" & 10 + Application.Count(.Columns(1)))
        .AutoFilter 5, Sh.Name 'filtre automatique
        .Copy Sh.[A11] 'copier-coller, attention il y a un décalage par rapport à la source
        With .SpecialCells(xlCellTypeVisible)
           If .Areas.Count = 1 Then Sh.[A11].Resize(.Rows.Count, 24) = .Value 'copie uniquement les valeurs
        End With
        .AutoFilter 'ôte le filtre
    End With
End With
End Sub