Discussion :

[cl3m_]

Bonjour à tous,

N'ayant pas trouvé mon bonheur sur internet je m'adresse à vous...

Je cherche une macro qui me premettrai de faire ça:
Si la cellule que je viens de renseignée ainsi que celle de droite (imaginons A1 et B1) sont égales à deux autres cellules (qui sont dans les mêmes colonnes A et B),(imaginons A5 et B5), alors mettre une couleur de fond rouge et affiché une message box avec un message et effacant la première saisie des cellules A1 et B1
Ce sont en fait deux colonnes une de date et une de créneau horaires, je souhaite que la macro m'affiche si il y a des jour et heure qui sont les mêmes, afin d'éviter des chevauchement.
Ne connaissant même que très peu les bases, j'ai regardé sur internet mais je n'ai pas trouver mon bonheur j'ai donc essayer ceci, qui ne fonctionne pas sans surprise:

Code :

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

1
2
3
4
5
6
7
8
sub test()
 
If ActiveCell.value = Cell.Range (columns.ActiveCell) Then Active.cell.font.color = 3
and msgbox " message".
 
End if
 
End sub

En plus, il me manque la condition de la seconde cellule a droite....bref c'est nul quoi
Merci d'avance pour votre aide!!!

[antonysansh]

Bonjour cl3m_,

A coller dans le module de ta feuille :

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&, NbOccA&, NbOccB
    nbValeurs = Application.WorksheetFunction.CountA(Range(Cells(Target.Row, 1), Cells(Target.Row, 2)))
    If nbValeurs = 2 Then
        NbOccA = Application.WorksheetFunction.CountIf(Columns("A"), Cells(Target.Row, 1))
        NbOccB = Application.WorksheetFunction.CountIf(Columns("B"), Cells(Target.Row, 2))
        If NbOccA > 1 And NbOccB > 1 Then
            MsgBox "La plage n'est pas disponible."
            Target.Clear
        End If
    End If
End Sub

[cl3m_]

Bonjour,
Merci pour ta réponse,
Quand je copie le code dans le module de la dite feuille, il me demande de l'affecter à un macro. Ce que j'ai fais, mais par la suite il me met un message d'erreur, "end sub attendu", j'ai donc essayé de le rajouter mais ca ne marche toujours pas.

[antonysansh]

Dans ton VBAProject c'est a coller dans le module de la feuille comme sur l'image ci-dessous :

[cl3m_]

Bonjour,
Merci pour ta réponse, en fait pas besoin de "jouer" la macro. J'ai donc enregistrer. J'ai modifier les colonne car ce sont les colonnes G et H qui m'intéressent.
J'ai fait un test
J'ai le message: erreur d'execution '438'
Propriété ou méthode non gérer par cet objet. Il me propose le débogage et mets en jaune:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Worksheet_Change(ByVal Target As Range) 
    Dim nbValeurs&, NbOccG&, NbOccH
    nbValeurs = Application.WorksheetFunction.CountG(Range(Cells(Target.Row, 1), Cells(Target.Row, 2)))    
        If nbValeurs = 2 Then
        NbOccG = Application.WorksheetFunction.CountIf(Columns("G"), Cells(Target.Row, 1))
        NbOccH = Application.WorksheetFunction.CountIf(Columns("H"), Cells(Target.Row, 2))
        If NbOccG > 1 And NbOccH > 1 Then
            MsgBox "La plage n'est pas disponible."
            Target.Clear
        End If
    End If
End Sub

[antonysansh]

CountA est le nom de la fonction en VBA donc il ne faut pas mettre CountG mais bien CountA.