Discussion :

[Nounours1]

Bonsoir,

En VBA comment signaler à l'utilisateur qu'il ne peut pas saisir un chiffre supérieur à 30 ?
Sur la ligne de D11 à O11.

Lorsqu'il clique sur le bouton OK de la boîte de dialogue le chiffre disparaît afin de pouvoir ressaisir de nouveau un chiffre maxi de 30.

Merci,
@+

[eriiic]

Bonjour,

Pas besoin de vba alors, la validation des données est prévue pour ça.
eric

[Nounours1]

Bonjour,

Bien sûr mais je le voudrais en VBA.

Merci.

[patricktoulon]

bonjour
dans le module de la feuille concernée

Code :

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

1
2
3
4
5
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Range("D11:O11"), Target) Is Nothing Then
If Target.Value > 30 Then MsgBox " trop grand": Target.Value = ""
End If
End Sub

[joe.levrai]

Bonjour,

Patrick, j'ajouterai un petit test sur Target.Cells.Count en cas de copier coller sur plusieurs cellules de cette plage, qui fera nécessairement planter la propriété .Value de Target

[Nounours1]

Bonjour Patrick et merci pour ta réponse,

ça fonctionne parfaitement bien.

Bon dimanche.

[patricktoulon]

bonjour joe

c'est drôle ca chez moi je n'ai pas d'erreur en cas de sélection de plusieurs cellules c'est la cellule 1 de la plage sélectionnée qui prend la valeur tapée

après pour le copier coller il en est nullement question ici puisqu'il parle de saisir

on peut bloquer le copier coller sur ces cellules je l'ai déjà démontré sur une autre discussion

tu es sur d'avoir une erreur chez toi ????

[patricktoulon]

regarde joe et debloque la ligne en commentaire tu verra elle sert a rien dans cet évènement

c'est dans l'évènement sélection change qu'il faut le prévoir
en tout cas je n'ai pas de message d'erreur chez moi

je bloque le copier coller dans le selectionchange

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)
'If Target.Cells.Count > 1 Then Cells(Target.Cells(1)).Select' sert a rien car on est pas dans l'evenement selection change
If Not Application.Intersect(Range("D11:O11"), Target) Is Nothing Then
If Target.Value > 30 Then MsgBox " trop grand": Target.Value = ""
End If
End Sub
 
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Range("D11:O11"), Target) Is Nothing Then
With CreateObject("htmlfile"): .parentWindow.clipboardData.clearData "Text": End With
End If
End Sub

[78chris]

Re

...
c'est drôle ca chez moi je n'ai pas d'erreur en cas de sélection de plusieurs cellules c'est la cellule 1 de la plage sélectionnée qui prend la valeur tapée...

sauf si on fait une multi saisie dans la plage avec CTRL entrée (ce que je fais souvent)

[joe.levrai]

Quand l'utilisateur n'est pas le concepteur ... moi je préfère jouer la sécurité et prévoir les manipulations possibles.

Mais je suis d'accord que le C/C n'était pas abordé par le demandeur.