Syntaxe CountIF Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
b
barrym78
Jeune membre
Jeune membre
Messages : 32
Inscrit le : 3 avril 2017
Version d'Excel : 2013

Message par barrym78 » 27 juin 2017, 11:43

Re,

Effectivement, ce sera plus compréhensible avec ce fichier là.

Les couleurs pour chaque tâche se font automatiquement en fonction des dates de début et de fin de celles-ci (en faisant un test tu comprendras mieux).

Ce planning concerne la construction d'un immeuble, il y a donc un enchaînement logique des tâches à respecter (ce que j'ai voulu expliquer dans mon message précédent).

Dans cet exemple, on a deux sous-tâches de "super" . La première appelée "RDC " et la deuxième "débord R+1 cis pointes".

La deuxième sous-tâche doit commencer une semaine avant la fin du "RDC".

Ainsi si je veux augmenter ma tâche "Super" (regroupant les deux sous-tâches) de 2 semaines, il faut que la chacune des sous-tâches soit augmentée d'une semaine.

- Le "RDC" commencerait à la semaine 27 (pas de modification) et se terminerait la semaine 32 (ajout d'une semaine)

- Le "débord R+1" commencerait la semaine 31 +1 (pour que celle-ci commence toujours une semaine avant la fin du "RDC") et se terminerait la semaine 35 +1 (pour respecter sa durée initiale) +1 (pour rajouter la semaine supplémentaire voulue).


J'espère que c'est plus compréhensible :wink: !

Barrym

Re,

Effectivement, ce sera plus compréhensible avec ce fichier là.

Les barres représentant les différentes tâches (les couleurs) se mettent automatiquement à jour en fonction des dates de début et de fin des tâches (tu comprendras mieux en faisant un test).

Le planning concernant la construction d'un bâtiment. Il y a donc un enchaînement logique des tâches à respecter (ce que j'ai voulu expliquer dans mon message précédent).

Dans cet exemple, ma tâche "super" est composée de sous-tâches: la première "RDC" et la deuxième "débord R+1".

Ma deuxième sous-tâche doit commencer une semaine avant la fin de la première sous tâche.

Si je veux augmenter ma tâche de "Super" de deux semaines par exemple, il faut que j'augmenter chacune de mes sous-tâches d'une semaine.

- Le "RDC" commencerait donc la semaine 27 ( pas de modification) et se terminerait la semaine 31 +1 (on rajoute la semaine supplémentaire).

-Le "débord R+1" commencerait donc la semaine 31 +1 (pour que celle-ci commence toujours une semaine avant la fin du "RDC") et se terminerait la semaine 35 +1 (pour respecter sa durée initiale) +1 (pour rajouter la semaine supplémentaire).

J'espère que ce sera un peu plus compréhensible comme ça :wink: !

Barrym
Test planning.xlsm
(138.53 Kio) Téléchargé 3 fois
Test planning.xlsm
(138.53 Kio) Téléchargé 4 fois
Avatar du membre
Raja
Passionné d'Excel
Passionné d'Excel
Messages : 5'062
Appréciation reçue : 1
Inscrit le : 3 février 2008
Version d'Excel : 2010 à 2016 FR et 2010 EN

Message par Raja » 27 juin 2017, 12:02

Re,
Si je comprends bien, dès qu'on touche le planning du code "Super" préalablement établi, il faudra caler les autres "Super" avec les délais prévus initialement. Sans se préoccuper d'autres codes. Non ?
Cdlt,
Raja
b
barrym78
Jeune membre
Jeune membre
Messages : 32
Inscrit le : 3 avril 2017
Version d'Excel : 2013

Message par barrym78 » 27 juin 2017, 13:26

Re,

Oui c'est exactement ça !

Barrym
Avatar du membre
Raja
Passionné d'Excel
Passionné d'Excel
Messages : 5'062
Appréciation reçue : 1
Inscrit le : 3 février 2008
Version d'Excel : 2010 à 2016 FR et 2010 EN

Message par Raja » 27 juin 2017, 14:54

Re,
Voir PJ. A tester.
Copie de Test planning.xlsm
(131.91 Kio) Téléchargé 4 fois
Modifié en dernier par Raja le 27 juin 2017, 15:07, modifié 1 fois.
Cdlt,
Raja
b
barrym78
Jeune membre
Jeune membre
Messages : 32
Inscrit le : 3 avril 2017
Version d'Excel : 2013

Message par barrym78 » 27 juin 2017, 14:58

Re,

Merci beaucoup de ton aide !

Peux-tu remettre la pj s'il te plait? tu l'a oublié dans ton dernier message :wink:
Avatar du membre
Raja
Passionné d'Excel
Passionné d'Excel
Messages : 5'062
Appréciation reçue : 1
Inscrit le : 3 février 2008
Version d'Excel : 2010 à 2016 FR et 2010 EN

Message par Raja » 27 juin 2017, 15:07

Re,
C'est fait. Voir le message précédent.
Cdlt,
Raja
b
barrym78
Jeune membre
Jeune membre
Messages : 32
Inscrit le : 3 avril 2017
Version d'Excel : 2013

Message par barrym78 » 27 juin 2017, 17:17

Re Raja,

J'ai repris les codes que t'avais effectués précédemment et je les ai adapté à ma situation. J'ai obtenu le code suivant qui fonctionne très bien.
Sub rer()

    Dim S As Integer, nbS As Integer, nbSPrec As Integer, derLig As Integer, i As Integer, f As Worksheet
    Set f = Sheets("Feuil1")
    
    With f
        'Définit la limite du tableau
       derLig = .Range("A" & Rows.Count).End(xlUp).Row
        For i = 3 To derLig 'Definit la limite du boucle
           S = WorksheetFunction.CountIf(.Range(.Cells(3, 4), .Cells(i, 4)), "Super")
              
     Next i
    
    End With



 With f
        derLig = .Range("A" & Rows.Count).End(xlUp).Row
        For i = 3 To derLig 'Definit lignes
           nbS = WorksheetFunction.CountIf(.Range(.Cells(3, 4), .Cells(i, 4)), "Super")
            If nbS = 1 Then
                .Cells(i, 3) = .Cells(i, 3) + (1 / (S * 3))
            'Modif 2ème tache de super
           ElseIf nbS > 1 And nbSPrec < nbS Then
                .Cells(i, 2) = .Cells(i, 2) + (nbSPrec / (S * 3))
                .Cells(i, 3) = .Cells(i, 3) + (nbS / (S * 3))
            End If
            nbSPrec = nbS
        Next i
        
    End With


    Set f = Nothing
                   
        
End Sub
Je n'ai surement pas du être très clair dans mes explications, c'était un peu compliqué par message. En tout cas je te remercie beaucoup, sans toi je n'y serai jamais arrivé :wink: !

Bonne soirée à toi.

Barrym
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message
  • CountIf
    par Adyl2019 » 27 mars 2019, 15:40 » dans Excel - VBA
    5 Réponses
    43 Vues
    Dernier message par h2so4
    27 mars 2019, 17:40
  • Probleme de countif
    par Nieben » 15 avril 2018, 06:31 » dans Excel - VBA
    5 Réponses
    133 Vues
    Dernier message par Theze
    16 avril 2018, 06:38
  • Countif avancé
    par CDB » 17 février 2019, 12:03 » dans Excel - VBA
    13 Réponses
    196 Vues
    Dernier message par CDB
    17 février 2019, 21:14
  • IF(COUNTIF) en VBA
    par Clingn » 24 septembre 2018, 21:09 » dans Excel - VBA
    5 Réponses
    217 Vues
    Dernier message par LouReeD
    26 septembre 2018, 22:01
  • CountIF probleme
    par Spouns » 12 juin 2016, 11:58 » dans Excel - VBA
    5 Réponses
    231 Vues
    Dernier message par Spouns
    12 juin 2016, 21:38
  • Countif multiples
    par jules_57 » 23 août 2018, 17:19 » dans Excel - VBA
    2 Réponses
    38 Vues
    Dernier message par jules_57
    23 août 2018, 17:24