Fonction Worksheet_change

[remady]

Bonjour tout le monde,

Je suis confronté au problème suivant :

Dans cette fonction , je teste pour chaque itération les valeurs des cellules de la colonne B et C, et donc comme vous pouvez le voir si cette valeur est égale à "01/01/2000" , je ne lance pas l'appel de la fonction "Lesmoteurs".
Je voudrais faire en sorte que si pour une itération la valeur est de "01/01/2000", de tester l'itération suivante sans quitter completement la fonction avec un exit sub, y a-t-il donc une instruction qui permettrait de faire ca ?

Dim i As Long
For i = 1 To 13
If Range("B" & i + 1).Value = "01/01/2000" Or Range("C" & i + 1).Value = "01/01/2000" Then
"-----" Instruction pour passer à l'itération suivante
Else
If Not Intersect(Target, Range("B" & i + 1 & ":C" & i + 1)) Is Nothing Then
Feuil14.LesMoteurs i
On Error Resume Next
End If
End If
Next i
End Sub

La solution peut etre simple, et je suis desolé d'ouvrir un post pour ca mais je n'arrive pas à trouver une solution.
Merci de votre aide

 

[Excel-lent]

Re : Fonction Worksheet_change

Bonjour Remady,

Si tu veux tu peux utiliser la fonction : Goto

Ce qui dans ton cas donnerais ceci :

Dim i As Long

For i = 1 To 13
   If Range("B" & i + 1).Value = "01/01/2000" Or Range("C" & i + 1).Value = "01/01/2000" Then
   [COLOR="blue"][B]   Goto AllezLaBas[/B][/COLOR]
   Else
       If Not Intersect(Target, Range("B" & i + 1 & ":C" & i + 1)) Is Nothing Then
          Feuil14.LesMoteurs i
          On Error Resume Next
       End If
   End If

   [COLOR="Red"][B]AllezLaBas:[/B][/COLOR]

Next i

End Sub

J'ai placé AllezLaBas: a cette endroit par hasard, mais tu peux très bien le placer où tu veux.

Bonne après midi

PS. : pense à faire des retraits de lignes pour rendre ton code plus clair 😉

 

[Pierrot93]

Re : Fonction Worksheet_change

Bonjour Remady, Excel-Lent

comprends pas trop, puisqu'à priori tu testes déjà la ligne suivante dans ta boucle...

If Range("B" & i[COLOR="Red"][B] + 1[/B][/COLOR]).Value

bon après midi
@+

 

[ROGER2327]

Re : Fonction Worksheet_change

Bonjour à tous

Sans étiquette...

[COLOR="DarkSlateGray"][B][COLOR="SeaGreen"]' ...[/COLOR]
   For i = 2 To 14
      If Range("B" & i).Value <> "01/01/2000" And Range("C" & i).Value <> "01/01/2000" Then
         If Not Intersect(Target, Range("B" & i & ":C" & i)) Is Nothing Then
            Feuil14.LesMoteurs i - 1
         End If
      End If
   Next i
[COLOR="SeaGreen"]' ...[/COLOR][/B][/COLOR]

ROGER2327
#3964

Vendredi 13 Tatane 137 (Saint Dada, prophète, SQ)
8 Thermidor An CCXVIII
2010-W30-1T12:19:34Z

 

[remady]

Re : Fonction Worksheet_change

Re, Merci pour vos réponses

ROGER2327 : ta solution marche parfaitement, ma fonction de calcul ne se lance que si les valeurs des cellules sont differentes de "01/01/2000", et c'est ce que je voulais faire des le départ, je n'ai peut etre pas été assez explicite.
Excel-lent: ta proposition fonctionne aussi très bien .

Merci encore une fois .

Bonne fin de journée