Boucle infernale, le retour

Private Sub Worksheet_Change(ByVal Target As Range)
With Sheets('feuil1')
If Target <> x Then Exit Sub
&nbsp; &nbsp; Select Case .Range('a1').Formula
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Case 'Oui'
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .Range('g1') = .Range('g1') + 1
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Case 'Non'
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .Range('g2') = .Range('g2') + 1
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Case 'Sans réponse'
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .Range('g3') = .Range('g3') + 1
&nbsp; &nbsp; End Select
End With
x = Range('a1')
End Sub

Cliquez pour agrandir...

Public x As Variant


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 7 Then
With Sheets('feuil1')
&nbsp; &nbsp; Select Case x
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Case Is = Target
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Exit Sub
&nbsp; &nbsp; Case Else
&nbsp; &nbsp; &nbsp; &nbsp; Select Case .Range('a1').Formula
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Case 'Oui'
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .Range('g1').Formula = .Range('g1').Formula + 1
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Case 'Non'
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .Range('g2').Formula = .Range('g2').Formula + 1
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Case 'Sans réponse'
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .Range('g3').Formula = .Range('g3').Formula + 1
&nbsp; &nbsp; &nbsp; &nbsp; End Select
&nbsp; &nbsp; End Select
End With
x = Range('a1')
End If
End Sub

Cliquez pour agrandir...

re spock

J'ai compris plustard ce que tu voulais dire par le 188. Je ne suis pas sur de savoir pourquoi ça fait ça, mais je crois que cela a avoir avec l'ensemble des cellules comprisent dans la plage et le nombre de combinaison que le changement peut apporter.

a+

Cliquez pour agrandir...