Discussion :

[borisp]

Bonjour le forum,

Je me tourne vers votre aide.Voici mon problème :

Je souhaite que quand deux cases à cocher soit cohées, il y est un message d'erreur et remise à zéro des boutons (que je réalise avec le "vidage" des celulles auxquelles ils font références). voici mon code qui bug sur une erreur de syntaxe sur la ligne If ActiveSheet...:

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
Private Sub Worksheet_Change(ByVal Target As Range)
 
Application.ScreenUpdating = 0
 
 
If ActiveSheet.Shapes("Option Button 1218").Value = xlOn And If ActiveSheet.Shapes("Option Button 1186").Value = xlOn Then
MsgBox ("Attention, vous ne pouvez pas choisir 1B2 et 1C!")
ActiveSheet.Cells(13, 6).ClearContents
ActiveSheet.Cells(16, 6).ClearContents
ActiveSheet.Cells(19, 6).ClearContents
End If
 
Application.ScreenUpdating = -1
 
End Sub

Merci par avance de votre aide!

Boris

[unparia]

Bonjour
Base de chez base ...
on n'écrit pas

Code :

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

If expression1 and if expression2 then

mais

Code :

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

if expression1 and expression2 then

[Invité]

Code :

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

if ActiveSheet.Shapes("Option Button 1218").Value * ActiveSheet.Shapes("Option Button 1186").Value = xlOn Then msgbox "Err"

[unparia]

ou encore utiliser l'opérateur AND au niveau du bit.
Exemples :

Code :

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

1
2
3
If 0 And 1 = 1 Then MsgBox "non !" ' n'affichera rienj
 
If 1 And 1 = 1 Then MsgBox "non !" ' affichera "non !"

[borisp]

Merci infiniment!