XL 2013 macro redondance

[judoka0209]

bonjour, j'ai un soucis pour integrer des formules que j'ai faite et quelles s'executent en macro
je ne sais pas du tout comment faire
=SI(NB.SI('[Planning_EP.xlsm]année en cours'!$D$7:$BC$7;"a")*NB.SI(C2;"jeu")*NB.SI($C$1;"janvier")*NB.SI('[Planning_EP.xlsm]année en cours'!$D$5:$BC$5;"janvier")*NB.SI(C6;"A");6;"")
=SI(NB.SI('[Planning_EP.xlsm]année en cours'!$D$7:$BC$7;"a")*NB.SI(AG2;"jeu")*NB.SI($C$1;"janvier")*NB.SI('[Planning_EP.xlsm]année en cours'!$D$5:$BC$5;"janvier")*NB.SI(AG6;"A");6;"")
=SI(NB.SI('[Planning_EP.xlsm]année en cours'!$D$7:$BC$7;"a")*NB.SI(AH2;"jeu")*NB.SI($AH$1;"février")*NB.SI('[Planning_EP.xlsm]année en cours'!$D$5:$BC$5;"février")*NB.SI(AH6;"A");6;"")
=SI(NB.SI('[Planning_EP.xlsm]année en cours'!$D$7:$BC$7;"a")*NB.SI(BI2;"jeu")*NB.SI($AH$1;"février")*NB.SI('[Planning_EP.xlsm]année en cours'!$D$5:$BC$5;"février")*NB.SI(BI6;"A");6;"")

c'est du 1er janvier au 31 decembre
merci

 

[Staple1600]

Bonjour le fil, le forum

@judoka0209
Tu es inscrit depuis le 29 juillet 2005.
Plus de douze ans d'âge, et tu sais toujours pas qu'il est plus facile d'apporter une réponse quand le demandeur joint un fichier exemple ?
Hajime!
Fais péter le fichier

 

[judoka0209]

Bonjour le fil, le forum

@judoka0209
Tu es inscrit depuis le 29 juillet 2005.
Plus de douze ans d'âge, et tu sais toujours pas qu'il est plus facile d'apporter une réponse quand le demandeur joint un fichier exemple ?
Hajime!
Fais péter le fichier

si je sais bien mais je ne peux pas tout est confidentiel c'est pour cela que c'est la galere

 

[Staple1600]

Re

Tout est confidentiel

Et alors?
Tu crées une copie anonyme light
avec NOM1 PRENOM1 etc
(tu utilises les fonctionnalités d'Excel
Recopie vers le bas, vers la droite
CTRL+H
etc...)

Puis après un délai qui variera de 7 minutes et 31 secondes à 17 minutes et 27 secondes, tu seras enfin prêt à joindre ton petit bout de fichier anonymisé

 

[judoka0209]

c'est fait

 

[Staple1600]

Re

Désolé mais comme tu pas posté ton fichier à 23h01 (dans la même minute où je postais le message#5), je n'ai rien vu.

Mais là, il tard (très tard même), je vais me coucher.

Je repasserai dans ton fil plus tard (au cas ou d'autres n'y seraient pas passés avant moi pour prendre le relais)

Bonne nuit à tous.

 

[Staple1600]

Bonjour le fil, le forum

Bonjour i13947 Aka PA*N Chris***h* Aka judoka0209
(il restait un chouia de confidences dans ton fichier )

1)Ton fichier étant en liaison avec Planning_EP.xlsm, c'est embêtant pour tester...
C:\Users\i13947\Desktop\[Planning_EP.xlsm]

2) Dans ta procédure événementielle : Worksheet_Change
Tu affiches alerte.Show
Or point d'Userform nommé alerte dans ton fichier, c'est embêtant pour tester...

3)

Private Sub CommandButton2_Click()
UserForm1.Show
End Sub

Point de Userform nommé UserForm1
Là cela devient une addiction à l’embêtement

Sinon suggestion du samedi matin en passant
Pourquoi pas tout simplement:
=C3 (en cellule C2 et suivantes) puisque les cellules sont déjà formatées en : jjj

 

[judoka0209]

bonjour stapple 1600, c'est pas mon nom qui est confidentiel mais le contenu du fichier
merci pour le temps qur tu passe a essayer de me demmerder
pour le jour dans les cellules j'ai été oblige de faire ça car sinon il me trouve pas le jour mais uniquement la date
ce que je veux faire avec toutes ces formules c'est d'afficher le resultat dans la cellule et pas le formule mais je ne sais pas comment faire je suis nul en vba je sais les modifier m:ais pas les creer
pour tous les autres userform je les retirent ce soir cela sera plus facile
merci

 

[judoka0209]

bonsoir à tous j'ai remis un fichier simplifier de ce qu'il me faut
merci d'avance

 

[Staple1600]

Bonjour le fil, le forum

ce que je veux faire avec toutes ces formules c'est d'afficher le resultat dans la cellule et pas le formule

Je me suis borné à juste traduire ta formule en VBA.
Est-ce que cela te donne une piste ou pas ?
(dans cet exemple, je ne teste que le cas du mois de janvier)

Sub Test()
Dim plageA As Range, plageB As Range, c As Range
Set plageA = Sheets("ep").Range("$D$7:$BC$7")
Set plageB = Sheets("ep").Range("$D$5:$BC$5")
With Application
    .ScreenUpdating = False
    For Each c In Range("C5:NC5")
    Select Case Month(c.Offset(-2))
    Case 1
    If .CountIf(plageA, "a") * .CountIf(c.Offset(-3), "jeu") * .CountIf(Range("C1"), MonthName(1)) * _
        .CountIf(plageB, MonthName(1)) * .CountIf(c.Offset(1), "a") Then
    MsgBox c.Address ' c'est juste pour tester
    MsgBox 6 ' c'est juste pour tester
    Else
    'Case 2
    '
    End If
    End Select
    Next
End With
End Sub

 

[judoka0209]

super merci ca marche bien pour les msgbox mais comment je met le resultat dans la ligne

 

[Staple1600]

Bonsoir le fil, le forum

@judoka0209
En théorie, il suffit de remplacer
MsgBox c.Address ' c'est juste pour tester
MsgBox 6 ' c'est juste pour tester
par
c=6

 

[judoka0209]

super merci beaucoup a tous

 

[Staple1600]

Re

judoka0209
La macro n'est pas finie, ensuite il faut écrire pour les autres mois
Tu as compris le principe?
Select Case 2 ' pour février
Select Case 3 ' pour mars
etc..

 

[judoka0209]

pour fevrier je dois mettre ca

Sub Test()
Dim plageA As Range, plageB As Range, c As Range
Set plageA = Sheets("ep").Range("$D$7:$BC$7")
Set plageB = Sheets("ep").Range("$D$5:$BC$5")
With Application
.ScreenUpdating = False
For Each c In Range("C5:NC5")
Select Case Month(c.Offset(-2))
Case 1
If .CountIf(plageA, "a") * .CountIf(c.Offset(-3), "jeu") * .CountIf(Range("C1"), MonthName(1)) * _
.CountIf(plageB, MonthName(1)) * .CountIf(c.Offset(1), "a") Then
c=6
Else
Case 2
If .CountIf(plageA, "a") * .CountIf(c.Offset(-3), "jeu") * .CountIf(Range("ah1"), MonthName(2)) * _
.CountIf(plageB, MonthName(2)) * .CountIf(c.Offset(1), "a") Then
c=6

Else

End If
End Select
Next
End With
End Sub