Discussion :

[mathyr]

Bonjour à tous,

Je suis complètement newbie en VBA et du coup, j'aurai besoin d'aide pour finir mon bout de code.

Je voudrai afficher une popup si un utilisateur remplit une cellule qu'il ne doit pas remplir.
Les cellules en question (à ne pas remplir) sont toutes sur la ligne 32, toutes les 2 colonnes en commençant par la colonne B (B32, D32, F32,..) jusqu'à BF32.

J'ai écrit le bout de code suivant, qui fonctionne, mais seulement pour la cellule B32.
Est-ce que vous pouvez m'aider à le faire fonctionner pour toutes les cellules nécessaires ?

Merci !

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Private Sub Worksheet_Change(ByVal Target As Range)
 
If Not IsEmpty(Intersect(Target, Range("B32"))) Then
 
    MsgBox "Ce créneau est rempli." & Chr(10) & _
    "Veuillez choisir un autre créneau." & Chr(10)
 
Else:
    Exit Sub
 
End If
 
End Sub

[Patrice740]

Bonjour,

Pourquoi utiliser VBA alors que Excel dispose de base, des fonctionnalités nécessaires (validation de donnée) ?

[mathyr]

On peut afficher des popup avec cette fonctionnalité ?
Je pensais que cela faisait seulement un traitement sur la cellule.

Je pensais également que je ne pouvais pas sélectionner où appliquer le traitement "à appliquer une colonne sur 2 sur la ligne 32".

[halaster08]

On peut afficher des popup avec cette fonctionnalité ?

je ne suis pas familier avec la version 2002 d'Excel, mais en 2010 oui:

Je pensais également que je ne pouvais pas sélectionner où appliquer le traitement "à appliquer une colonne sur 2 sur la ligne 32".

tu peux le faire sur une cellule, puis copier coller

ps: au cas où tu ne l'as pas vu je t'ai proposé une modif de ta macro juste avant que tu ne réponde à Patrice

[Patrice740]

je ne suis pas familier avec la version 2002 d'Excel,

C'est la même boite de dialogue pour la validation de données (qui n'a pas évolué depuis).

[halaster08]

Bonjour, une proposition

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Private Sub Worksheet_Change(ByVal Target As Range)
 
If target.row = 32 and target.Column Mod 2 = 0 and  target.Column <39 Then 'pas tout a fait sur pour le 39, flemme de compter c'est le num de colomme de BF+1
 
    MsgBox "Ce créneau est rempli." & Chr(10) & _
    "Veuillez choisir un autre créneau." & Chr(10)
 
Else:
    Exit Sub
 
End If
 
End Sub

edit:

Pourquoi utiliser VBA alors que Excel dispose de base, des fonctionnalités nécessaires (validation de donnée) ?

+1
On peut aussi passer par la protection de la feuille

[mathyr]

Bonjour, une proposition

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Private Sub Worksheet_Change(ByVal Target As Range)
 
If target.row = 32 and target.Column Mod 2 = 0 and  target.Column <39 Then 'pas tout a fait sur pour le 39, flemme de compter c'est le num de colomme de BF+1
 
    MsgBox "Ce créneau est rempli." & Chr(10) & _
    "Veuillez choisir un autre créneau." & Chr(10)
 
Else:
    Exit Sub
 
End If
 
End Sub

edit:

+1
On peut aussi passer par la protection de la feuille

Merci pour ce bout de code !
Encore une question (pour comprendre).
Quand je remplis une cellule "interdite", j'ai bien la popup qui s'affiche. Et quand j'efface le contenu, la popup s'affiche également. Est-ce qu'il y a un code à rajouter pour éviter cela (je pensais que le exit sub était là pour ça) ?

[halaster08]

Quand je remplis une cellule "interdite", j'ai bien la popup qui s'affiche. Et quand j'efface le contenu, la popup s'affiche également. Est-ce qu'il y a un code à rajouter pour éviter cela (je pensais que le exit sub était là pour ça) ?

worksheet change se déclenche quand il y un changement, supprimer le contenu c'est un changement
le exit sub est là pour sortir de la macro si la cellule n'est pas dans la plage que tu souhaites

[Patrice740]

Quand je remplis une cellule "interdite", j'ai bien la popup qui s'affiche. Et quand j'efface le contenu, la popup s'affiche également. Est-ce qu'il y a un code à rajouter pour éviter cela (je pensais que le exit sub était là pour ça) ?

Ton Exit sub ne sert à rien, par contre ton code ne teste pas si "le créneau est rempli" !

[mathyr]

Merci pour votre aide et vos réponses !