Discussion :

[mana.81]

Bonjour,
Puis-je vous demander votre aide pour du VBA svp?
j'ai un fichier établi jusque fin d'année
Pour chaque jour, AM et PM, vous avez des missions à accomplir.
les LUNDI MERCREDI VENDREDI : les missions sont identiques (mais pas forcément dans le même ordre)
les MARDI ET JEUDI : les missions sont identiques également

Mon planning est modifié régulièrement. Mais les missions des lundi, mercredi vendredi restent les mêmes et pareil pour celles du mardi et jeudi

Il faudrait que dans la routine, on lui dise de vérifier tous les lundi mercredi vendredi et qu'on retrouve bien les mêmes missions et pareil pour les mardis et jeudi et qu'il prévienne lorsqu'il en manque une.

J'aimerais pouvoir avoir un messageBox qui me dirait : Attention, vous avez oublié une mission. La mission manquante est "......"

Cela est-il possible?

dans la colonne A, ce sont les noms des collaborateurs que j'ai bien évidemment modifié.

vous trouverez en pièce jointe le fichier excel.

d'avance, un tout grand merci pour votre aide.

[MarcelG]

Bonjour mana et bienvenu sur le Forum,

Pas d'ouverture de fichier au 1er post.

Je te conseillerais d'utiliser la méthode Find en testant la valeur de variable Nothing indiquée dans l'exemple.

[mana.81]

Bonjour mana et bienvenu sur le Forum,

Pas d'ouverture de fichier au 1er post.

Je te conseillerais d'utiliser la méthode Find en testant la valeur de variable Nothing indiquée dans l'exemple.

Bonjour Marcel,
je suis nouvelle sur ce site. je ne sais pas comment faire. veuillez m'en excuser.
je vais voir dans mon profil pour modifier. bien évidemment, que les infos peuvent servir à tout le monde.
bien à vous,

[mana.81]

Bonjour mana et bienvenu sur le Forum,

Pas d'ouverture de fichier au 1er post.

Je te conseillerais d'utiliser la méthode Find en testant la valeur de variable Nothing indiquée dans l'exemple.

Pouvez-vous un peu m'aider, histoire que je m'y retrouve sur ce site? ma démarche n'est pas la bonne? Je dois pratiquer d'une autre manière?
en VBA, je ne m'y connais pas vraiment
Merci bcp pour votre aide Marcel.

[Menhir]

Pouvez-vous un peu m'aider, histoire que je m'y retrouve sur ce site?

Comme l'as déjà suggéré MarcelG ( ), beaucoup de participants n'ouvrent pas les fichiers joints.
https://www.developpez.net/forums/d8...s-discussions/
Ta demande, telle que tu la formules, n'étant pas compréhensible sans ouvrir ce fichier, ça diminue tes chances de réponses.

[MarcelG]

Salut,

Une piste

Affecter une variable différente à chaque plage de recherche

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim plage_jeudi as Range
Set plage_jeudi = Worksheets("jeudi").Range(A2:A...)

Balayer chaque plage en cherchant la valeur de chaque cellule de celle-ci sur les autres plages

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Dim c As Range
Dim t As Range
 
For Each c in plage_jeudi
 Set t = plage_mercredi.Find(What:=c.Value, Lookat:=...)
 If t Is Nothing Then
     Msgbox Prompt:="La valeur de " & c.Value & " de la feuille jeudi n'est pas trouvée dans la feuille   de mercredi."
 End If
 Set t = Nothing
Next c

Parallèlement, je te joins un fichier Word contenant des liens utiles.

[mana.81]

Salut[...]

je vais tester cela maintenant. est-ce que vous pouvez m'expliquer les termes utilisés dans la routine? j'aime comprendre en fait

[MarcelG]

Salut,

Tous les mots clés figurent dans la cible des liens contenus dans le document que je t'ai adressé.

Dans un cas extrême, tu peux effectuer une recherche
- sur ce Forum
- sur d'autres sites (Microsoft...)

Exemple:
Sur un moteur de recherche bien connu, j'ai inscrit l'expression
"Affecter variable objet range"
Une discussion de ce forum a été immédiatement proposée.

Ce que je veux signifier par là, et c'est de ma part une répétition, est la corrélation entre la recherche et la progression.

[Pierre Fauconnier]

Salut.

Perso, je m'y prendrais totalement différemment avec une tout autre conception de classeur.

Sur base de ta conception de classeur:

L'idée: Travailler avec une table de données pour les codes, et y ajouter les colonnes des jours de la semaine. A l'intersection d'un code et d'un jour, tu mets un X si la mission doit être effectuée ce jour-là. J'ai nommé la feuille Planning en VBA => shPlanning. Normalement, les plages devraient être bornées et nommées, de façon à devoir modifier le moins de code possible. On devrait donc nommer la colonne B4:C39, puis lui appliquer des offset pour les autres jours de la semaine, histoire de ne pas coder les tailles de plage en dur. On devrait pratiquer de manière identique pour la plage des erreurs. Dès lors, on pourrait augmenter les lignes dans le planning et ajouter/supprimer des dates sans devoir toucher au code...

Après

• on nettoie la zone d'erreur (dans mon exemple, elle démarre ligne 42 et va arbitrairement jusque 100;
• on balaie les colonnes des jours en en sautant 1 à chaque fois;
• pour chaque jour, on passe chaque code en revue;
• on regarde s'il y a un X dans la colonne du jour semaine correspondant;
• Si oui, on compte avec NB.SI.ENS pour voir si le code est repris une fois;
• Si pas repris, on inscrit la mission dans la zone d'erreur;
• on boucle.

Attention!! Enlever le * dans les [code*] du code ci-dessous (mis uniquement à cause des balises codes forum)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
 
Sub Check()
  Dim DateCell As Range
  Dim CodeCell As Range
  Dim ErrorCell As Range
  Dim CodesCounter As Long
  Dim Result As Long
  Dim Offset As Long
 
  ' Nettoyage éventuel de la plage des erreurs
  shPlanning.Range("42:100").ClearContents
 
  Set DateCell = shPlanning.Range("b2")
  Do While DateCell.Column <= shPlanning.Range("lh2").Column
    Set ErrorCell = DateCell(41)
    For CodesCounter = 1 To Range("t_Codes[code*]").Cells.Count
      Offset = WeekDay(DateCell.Value, vbMonday) + 2
      If Range("t_codes[code*]")(CodesCounter, Offset).Value = "X" Then
        Result = Application.WorksheetFunction.CountIfs(DateCell(2).Resize(36, 2), Range("t_codes[code*]")(CodesCounter).Value)
        If Result = 0 Then
          ErrorCell.Value = Range("t_codes[code*]")(CodesCounter)
          Set ErrorCell = ErrorCell(2)
        End If
      End If
      CodesCounter = CodesCounter + 1
    Next
    Set DateCell = DateCell(1, 3)
  Loop
End Sub

[mana.81]

Bonjour,
tout d'abord merci de votre réponse.
il faut savoir que je suis quasi nulle en vba.
la feuille "planning sans souleur" est modulable.
C'est sur cette feuille que je dois vérifier si les missions encodées sont identiques.
les LUNDI MERCREDI VENDREDI : les missions sont identiques (mais pas forcément dans le même ordre)
les MARDI ET JEUDI : les missions sont identiques également

donc je me disais, un bouton macro dans la cellule A1 de cette feuille qui m'analyse si toutes les missions lundi mercredi vendredi sont les mêmes et pareil pour mardi et jeudi
et le top serait qu'il me dise : il manque votre mission "...." pour tel jour.

merci à vous pour votre aide.
Marianne

[Pierre Fauconnier]

A part la modularité, le code que j'ai proposé fait ce qui est demandé. Il me semble logique de définir quelque part quelles sont les missions qui doivent être réalisées quel jour de la semaine. Si plusieurs jours sont semblables, il suffit de copier/coller les X sur les jours...

[mana.81]

A part la modularité, le code que j'ai proposé fait ce qui est demandé. Il me semble logique de définir quelque part quelles sont les missions qui doivent être réalisées quel jour de la semaine. Si plusieurs jours sont semblables, il suffit de copier/coller les X sur les jours...

Vous êtes en effet très très doué quand je vois ce que vous avez fait mais je suis désolée, vraiment, je ne comprends pas.
lorsque je lance la routine, il m'ajoute dans la feuille "planning sans couleur" les codes manquants à partir de la ligne 42.
ex : les codes FOR, M, etc...

je ne suis certainement pas claire et vous réitère mes excuses.


Je voudrais qu'il vérifie de la plage B4 à LI39 que mes missions déjà encodées dans ce tableau sont bien identiques pour les jours que j'ai mentionnés et qu'il me dise dans cette plage, laquelle est manquante (sans faire référence à la feuille codes)

Merci bcp pour votre aide.
Marianne

[Pierre Fauconnier]

En créant les "plages nommées" Missions_Jour => $B$4:$C$39 et Erreurs_Jours => $B42:$B60 et en modifiant un peu le code, tu as la modularité souhaitée. Les missions manquantes s'affiche sous le tableau, dans la colonne du jour concerné.


* Enlever le signe * dans [code*] (ajouté pour les balises code du forum)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Sub Check()
  Dim DateCell As Range
  Dim CodeCell As Range
  Dim ErrorCell As Range
  Dim CodesCounter As Long
  Dim Result As Long
  Dim Offset As Long
  Dim DataRange As Range
  Dim ErrorRange As Range
 
  Set DateCell = shPlanning.Range("b2")
  Set ErrorRange = Range("Erreurs_Jour")
  Set ErrorCell = ErrorRange(1)
  Set DataRange = Range("Missions_Jour")
  Do While DateCell.Value <> ""
    ErrorRange.ClearContents
    For CodesCounter = 1 To Range("t_Codes[code*]").Cells.Count
      Offset = WeekDay(DateCell.Value, vbMonday) + 2
      If Range("t_codes[code*]")(CodesCounter, Offset).Value = "X" Then
        Result = Application.WorksheetFunction.CountIfs(DataRange, Range("t_codes[code*]")(CodesCounter).Value)
        If Result = 0 Then
          ErrorCell.Value = Range("t_codes[code*]")(CodesCounter)
          Set ErrorCell = ErrorCell(2)
        End If
      End If
      CodesCounter = CodesCounter + 1
    Next
    Set DateCell = DateCell(1, 3)
    Set DataRange = DataRange.Offset(0, 2)
    Set ErrorRange = ErrorRange.Offset(0, 2)
    Set ErrorCell = ErrorRange(1)
  Loop
End Sub

[Pierre Fauconnier]

[...]
Je voudrais qu'il vérifie de la plage B4 à LI39 que mes missions déjà encodées dans ce tableau sont bien identiques pour les jours que j'ai mentionnés et qu'il me dise dans cette plage, laquelle est manquante (sans faire référence à la feuille codes)[...]

Comment serait-il possible de vérifier qu'il manque des missions pour un lundi (par exemple) si on ne dit pas quelque part quelles sont les missions du lundi. Il faut forcément renseigner quelque part que telle mission doit être réalisée tel jour de la semaine. Sinon, avec quoi veux-tu comparer les missions d'une journée donnée pour voir s'il en manque? Et le meilleur endroit pour préciser cela est la feuille des codes.

Ou alors, je n'ai pas compris la question, mais je ne vois pas comment on pourrait dire qu'il manque une mission pour un jour de la semaine si on ne dit pas quelque part que cette mission doit être accomplie ce jour précis dans la semaine

[mana.81]

vous avez entièrement raison !
il faut que je sache quelle mission est obligatoire pour chaque jour de la semaine
je m'en vais me renseigner.

j'ai créé d'autres questions.. sait-on jamais si vous pouvez m'aider?
je tiens toutefois à vraiment vous remercier pour votre aide bien précieuse ! c'est top ce que vous avez fait ! je me le garde de côté et reviendrais vers vous dès que j'aurais des infos complémentaires pour améliorer la routine