Bonjour toutes et tous,
Je me suis posé la question suivante il y a quelque jours en faisant une macro pour Jean.
J'ai déjà posé cette question, mais je ne fut pas assé précis.
Donc, une boucle repart 'logiquement', mais s'arrete apres 188 boucles. Ceci me laisse perplexe.
Voici la macro que j'ai 'bidouillé' avec un 'x' pour sortir de la boucle. Ca marche donc nickel, mais malgré cela, et une intervention d'un super membre, je reste un peu sur ma faim.
Pour pas mourrir dingue, une idée ?
Un fichier joint. Le but de la macro est de comptabilisé les choix en A d'une zone de validation.
Public x
Private Sub Worksheet_Change(ByVal Target As Range)
If ActiveCell <> Sheets('feuil1').Range('a1') Then Exit Sub
If x = 1 Then
x = 0
Exit Sub
End If
x = x + 1
Select Case Sheets('feuil1').Range('a1').Formula
Case 'Oui'
Sheets('feuil1').Range('g1') = Sheets('feuil1').Range('g1') + 1
Case 'Non'
Sheets('feuil1').Range('g2') = Sheets('feuil1').Range('g2') + 1
Case 'Sans réponse'
Sheets('feuil1').Range('g3') = Sheets('feuil1').Range('g3') + 1
If x = 1 Then
x = 0
Exit Sub
End If
End Select
End Sub
[file name=validation_20050725200035.zip size=7271]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/validation_20050725200035.zip[/file]
Je me suis posé la question suivante il y a quelque jours en faisant une macro pour Jean.
J'ai déjà posé cette question, mais je ne fut pas assé précis.
Donc, une boucle repart 'logiquement', mais s'arrete apres 188 boucles. Ceci me laisse perplexe.
Voici la macro que j'ai 'bidouillé' avec un 'x' pour sortir de la boucle. Ca marche donc nickel, mais malgré cela, et une intervention d'un super membre, je reste un peu sur ma faim.
Pour pas mourrir dingue, une idée ?
Un fichier joint. Le but de la macro est de comptabilisé les choix en A d'une zone de validation.
Public x
Private Sub Worksheet_Change(ByVal Target As Range)
If ActiveCell <> Sheets('feuil1').Range('a1') Then Exit Sub
If x = 1 Then
x = 0
Exit Sub
End If
x = x + 1
Select Case Sheets('feuil1').Range('a1').Formula
Case 'Oui'
Sheets('feuil1').Range('g1') = Sheets('feuil1').Range('g1') + 1
Case 'Non'
Sheets('feuil1').Range('g2') = Sheets('feuil1').Range('g2') + 1
Case 'Sans réponse'
Sheets('feuil1').Range('g3') = Sheets('feuil1').Range('g3') + 1
If x = 1 Then
x = 0
Exit Sub
End If
End Select
End Sub
[file name=validation_20050725200035.zip size=7271]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/validation_20050725200035.zip[/file]