Discussion :

[cl3m_]

Bonjour,
Alors voila j'ai une première macro qui ressemble à ça:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim nbValeurs&, NbOccG&, NbOccH
    nbValeurs = Application.WorksheetFunction.CountA(Range(Cells(Target.Row, 7), Cells(Target.Row, 8)))
        If nbValeurs = 2 Then
        NbOccG = Application.WorksheetFunction.CountIf(Columns("G"), Cells(Target.Row, 7))
        NbOccH = Application.WorksheetFunction.CountIf(Columns("H"), Cells(Target.Row, 8))
        If NbOccG > 1 And NbOccH > 1 Then
            MsgBox "La plage à laquelle vous souhaitez planifier votre formation est déjà prise"
            Target.Clear
        End If
    End If
End Sub

Elle permet de comparer les dates et les heures dans deux colonnes et empêche la saisie si une date et une heure qui ont déjà été choisies sont rechoisies,cela permet d'éviter de planifier deux formations au même moment par exemple.

On m'a demandé quelque chose de différent: deux types de formations dans deux onglets différents avec bien sur des dates et des heures pour ces deux types de formations.
Il faudrait donc que ma macro compare les dates et les heures non pas que dans un seul onglet mais dans les deux.

Le top se serait dans premier temps une comparaison dans les deux colonnes de dates afin de vérifier si la date saisie est déjà prise, si oui alors msgbox d'alerte avec un msg x , sinon rien, puis comparer date et horaires associés afin de voir si il y a une correpondance dans les deux onglets ou non. Si, oui alors msg d'erreur prévenant l'utilisateur et empêchant la saisie sinon rien.

Bref je ne sais pas si je me suis expliquer correctement...j'espère seulement que c'est possible.

Merci d'avance pour votre lecture et vos éventuelles réponses!!!!!

Bonjour,
J'ai essayer ceci:

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
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim nbValeurs&, NbOccG&, NbOccH
    nbValeurs = Application.WorksheetFunction.CountA(Range(Cells(Target.Row, 7), Cells(Target.Row, 8)))
    ligne = Target.Row
        If nbValeurs = 2 Then
        NbOccG = Application.WorksheetFunction.CountIf(Columns("G"), Cells(ligne, 7)) 'Compte la première feuille colonne G
        NbOccG2 = Application.WorksheetFunction.CountIf(Sheets("Feuil2").Columns("G"), Sheets("Feuil2").Cells(ligne, 7)) 'compte la deuxième colonne G
        NbOccH = Application.WorksheetFunction.CountIf(Columns("H"), Cells(ligne, 8))  'Compte la première feuille colonne H
        NbOccH2 = Application.WorksheetFunction.CountIf(Sheets("feuil2").Columns("H"), Sheets("feuil2").Cells(ligne, 8))
        MsgBox (nbValeurs & NbOccG & NbOccG2 & NbOccH & NbOccH2) 'compte la deuxième colonne H
        If NbOccG + NbOccG2 > 1 And NbOccH + NbOccH2 > 1 Then 'compare le nombre d'occurence
            MsgBox "La plage à laquelle vous souhaitez planifier votre formation est déjà prise par un autre référent."
            Target.Clear
        End If
    End If
End Sub

Néanmoins ca ne marche pas quelqu'un aurait une idée?

[Invité]

Code :

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

1
2
3
4
5
6
7
 If nbValeurs = 2 Then
        NbOccG = Application.WorksheetFunction.CountIf(Columns("G"),cdate( format(Cells(Target.Row, 7),"yyyy-mm-dd hh:mm:ss")))
        NbOccH = Application.WorksheetFunction.CountIf(Columns("H"),cdate( format(Cells(Target.Row, 8),"yyyy-mm-dd hh:mm:ss")))
        If NbOccG > 1 And NbOccH > 1 Then
            MsgBox "La plage à laquelle vous souhaitez planifier votre formation est déjà prise"
            Target.Clear
        End If

Code :

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

1
2
3
4
5
Private Sub Worksheet_Change(ByVal Target As Range)
If Trim("" & Cells(Target.Row, "G")) = "" Then Exit Sub
NbOccG = Application.WorksheetFunction.CountIf(Columns("G"), CDate(Format(Cells(Target.Row, "G"), "yyyy-mm-dd hh:mm:ss")))
If NbOccG > 1 Then MsgBox Cells(Target.Row, "G") & vbCrLf & "Existe Déjà": Cells(Target.Row, "G") = ""
End Sub

[cl3m_]

Bonjour,
Merci pour ta réponse,
Je suis désolé mais étant novice en VBA, je ne comprends pas ton code... :/
Pourrais-tu m'expliquer?
Merci encore

[Invité]

si tu compares avec ton code tu comprendra!

Code :

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

1
2
3
4
5
6
7
 If nbValeurs > 1 Then
        NbOccG = Application.WorksheetFunction.CountIf(Columns("G"),cdate( format(Cells(Target.Row, 7),"yyyy-mm-dd hh:mm:ss")))
        NbOccH = Application.WorksheetFunction.CountIf(Columns("H"),cdate( format(Cells(Target.Row, 8),"yyyy-mm-dd hh:mm:ss")))
        If NbOccG > 1 And NbOccH > 1 Then
            MsgBox "La plage à laquelle vous souhaitez planifier votre formation est déjà prise"
            Target.Clear
        End If

[cl3m_]

Rebonjour,
Quand j'essay de décrypter ton code, je vois qu'il est semblable au mien, mais je ne vois pas comment il compare les dates et heures dans deux feuilles différentes.....

[Invité]

désolé, en réalité c'est mois qui n'est pas compris et qui réponds à coté de la plaque!

[cl3m_]

Ca n'est pas grave.

Y'a peut être plus simple ceci dit....
J'ai pensé à un calendrier ou les personnes mettraient des croix là où elles voudraient mettre leur formation ou alors le nom de leur formation. Ensuite par une macro ca crérai une liste récapitulative avec le nom la date de l'heure ce qui necéssiterai donc d'aller lire l'abscisse et l'ordonné de la ou se trouve la formation dans la calendrier

Peut être trop compliqué à mettre en place...

Bref...

Ci-joint l'idée du calendrier mise en place, le problème c'est qu'au niveau macro je ne vois pas comment faire