Si oui, je ne comprends pas le rôle de "Not" ! Est-ce supposé inversé le résulat du test logique ? Si oui, pourquoi ?
Parce qu'il faut dans ce cas ajouter -1 quand l'inverse du test logique est vrai L'équivalent de If ActiveSheet.Index + 1 > Worksheets.Count Then..... Le reste n'est que mathématique.
j'ai le même pb de compréhension avec les "doubles" négations (Not et Nothing)
Ben , dis-toi que cette instruction, elle est comme cela, il faudra t'y faire.
LSteph va râler parce que je n'ai mis qu'un bout de code ;-)
Si LSteph râle, c'est qu'il à certainement de bonne raison de le faire. -- Salutations JJ
"j-pascal" a écrit dans le message de news:
Bonjour Jacky, Merci pour cette démonstration très détaillée.
Au sujet de la dernière ligne (ie) : "Worksheets(ActiveSheet.Index - Not ActiveSheet.Index + 1 > Worksheets.Count).Select"
"ActiveSheet.Index + 1" correspond à la feuille suivant la feuille active, non ? Si oui, je ne comprends pas le rôle de "Not" ! Est-ce supposé inversé le résulat du test logique ? Si oui, pourquoi ?
JP
PS : dans le code suivant "If Not Intersect([C:C], Target) Is Nothing" j'ai le même pb de compréhension avec les "doubles" négations (Not et Nothing). LSteph va râler parce que je n'ai mis qu'un bout de code ;-)
Re... ;o))
ne ne comprends pas bien (la syntaxe de) ton code "- Not ..." !
J'aurais dû dire : "je n'ai pas ENCORE essayé" ;-)
Merci, c'est super ! Je ne peux que constater que ça fonctionne mais je ne ne comprends pas bien (la syntaxe de) ton code "- Not ..." !
JP
Re,
Merci. Je n'ai pas essayé...
C'est pas bien du tout ça ;o)))
Soit, gérer sur les 2 bouts !
'-------------- Sub Avance() Worksheets(ActiveSheet.Index - Not ActiveSheet.Index + 1 > Worksheets.Count).Select End Sub '----- Sub recule() Worksheets(ActiveSheet.Index + Not ActiveSheet.Index - 1 < 1).Select End Sub '----------------
-- Salutations JJ
"j-pascal" a écrit dans le message de news:
Bonjour Jacky,
Merci. Je n'ai pas essayé, mais j'imagine que ça fonctionne ; peut-on combiner cela avec l'autre proposition d'Isabelle, à savoir : "ActiveSheet.Previous.Select" ? Soit, gérer sur les 2 bouts !
JP
Bonsoir,
A priori cela n'empêche pas "On Error Resume ..."
'--------- Sub essai() Worksheets(ActiveSheet.Index - Not ActiveSheet.Index + 1 > Worksheets.Count).Select End Sub '-------------
-- Salutations JJ
"j-pascal" a écrit dans le message de news:
Bonjour Isabelle,
Merci. A priori cela n'empêche pas "On Error Resume ..." si le dernière (ou première) feuille est la feuille active ?! JP
Pour sélectionner la feuille suivante à partir d'une feuille donnée, j'ai fait ceci :
'------ Sub essai() On Error Resume Next 'au cas où la feuille active est la dernière ! x = ActiveSheet.Index Worksheets(x + 1).Select End Sub '------
Ca fonctionne, mais je pense qu'on peut faire mieux ...
Merci pour vos lumières,
JP
Merci.
JP
Re...
Si oui, je ne comprends pas le rôle de "Not" ! Est-ce supposé inversé le
résulat du test logique ? Si oui, pourquoi ?
Parce qu'il faut dans ce cas ajouter -1 quand l'inverse du test logique est
vrai
L'équivalent de
If ActiveSheet.Index + 1 > Worksheets.Count Then.....
Le reste n'est que mathématique.
j'ai le même pb de compréhension avec les "doubles" négations (Not et
Nothing)
Ben , dis-toi que cette instruction, elle est comme cela, il faudra t'y
faire.
LSteph va râler parce que je n'ai mis qu'un bout de code ;-)
Si LSteph râle, c'est qu'il à certainement de bonne raison de le faire.
--
Salutations
JJ
"j-pascal" <messages@venir.com> a écrit dans le message de news:
mn.73147d8bfb2356ca.81386@venir.com...
Bonjour Jacky,
Merci pour cette démonstration très détaillée.
Au sujet de la dernière ligne (ie) :
"Worksheets(ActiveSheet.Index - Not ActiveSheet.Index + 1 >
Worksheets.Count).Select"
"ActiveSheet.Index + 1" correspond à la feuille suivant la feuille active,
non ?
Si oui, je ne comprends pas le rôle de "Not" ! Est-ce supposé inversé le
résulat du test logique ? Si oui, pourquoi ?
JP
PS : dans le code suivant "If Not Intersect([C:C], Target) Is Nothing" j'ai
le même pb de compréhension avec les "doubles" négations (Not et Nothing).
LSteph va râler parce que je n'ai mis qu'un bout de code ;-)
Re...
;o))
ne ne comprends pas bien (la syntaxe de) ton code "- Not ..." !
"j-pascal" <messages@venir.com> a écrit dans le message de news:
mn.6d267d8be2cf4788.81386@venir.com...
Bonsoir Jacky,
J'aurais dû dire : "je n'ai pas ENCORE essayé" ;-)
Merci, c'est super ! Je ne peux que constater que ça fonctionne mais je
ne ne comprends pas bien (la syntaxe de) ton code "- Not ..." !
JP
Re,
Merci. Je n'ai pas essayé...
C'est pas bien du tout ça ;o)))
Soit, gérer sur les 2 bouts !
'--------------
Sub Avance()
Worksheets(ActiveSheet.Index - Not ActiveSheet.Index + 1 >
Worksheets.Count).Select
End Sub
'-----
Sub recule()
Worksheets(ActiveSheet.Index + Not ActiveSheet.Index - 1 < 1).Select
End Sub
'----------------
--
Salutations
JJ
"j-pascal" <messages@venir.com> a écrit dans le message de news:
mn.6bdb7d8bdbede60a.81386@venir.com...
Bonjour Jacky,
Merci. Je n'ai pas essayé, mais j'imagine que ça fonctionne ; peut-on
combiner cela avec l'autre proposition d'Isabelle, à savoir :
"ActiveSheet.Previous.Select" ?
Soit, gérer sur les 2 bouts !
JP
Bonsoir,
A priori cela n'empêche pas "On Error Resume ..."
'---------
Sub essai()
Worksheets(ActiveSheet.Index - Not ActiveSheet.Index + 1 >
Worksheets.Count).Select
End Sub
'-------------
--
Salutations
JJ
"j-pascal" <messages@venir.com> a écrit dans le message de news:
mn.6b5b7d8bf8154aa5.81386@venir.com...
Bonjour Isabelle,
Merci.
A priori cela n'empêche pas "On Error Resume ..." si le dernière (ou
première) feuille est la feuille active ?!
JP
Si oui, je ne comprends pas le rôle de "Not" ! Est-ce supposé inversé le résulat du test logique ? Si oui, pourquoi ?
Parce qu'il faut dans ce cas ajouter -1 quand l'inverse du test logique est vrai L'équivalent de If ActiveSheet.Index + 1 > Worksheets.Count Then..... Le reste n'est que mathématique.
j'ai le même pb de compréhension avec les "doubles" négations (Not et Nothing)
Ben , dis-toi que cette instruction, elle est comme cela, il faudra t'y faire.
LSteph va râler parce que je n'ai mis qu'un bout de code ;-)
Si LSteph râle, c'est qu'il à certainement de bonne raison de le faire. -- Salutations JJ
"j-pascal" a écrit dans le message de news:
Bonjour Jacky, Merci pour cette démonstration très détaillée.
Au sujet de la dernière ligne (ie) : "Worksheets(ActiveSheet.Index - Not ActiveSheet.Index + 1 > Worksheets.Count).Select"
"ActiveSheet.Index + 1" correspond à la feuille suivant la feuille active, non ? Si oui, je ne comprends pas le rôle de "Not" ! Est-ce supposé inversé le résulat du test logique ? Si oui, pourquoi ?
JP
PS : dans le code suivant "If Not Intersect([C:C], Target) Is Nothing" j'ai le même pb de compréhension avec les "doubles" négations (Not et Nothing). LSteph va râler parce que je n'ai mis qu'un bout de code ;-)
Re... ;o))
ne ne comprends pas bien (la syntaxe de) ton code "- Not ..." !
J'aurais dû dire : "je n'ai pas ENCORE essayé" ;-)
Merci, c'est super ! Je ne peux que constater que ça fonctionne mais je ne ne comprends pas bien (la syntaxe de) ton code "- Not ..." !
JP
Re,
Merci. Je n'ai pas essayé...
C'est pas bien du tout ça ;o)))
Soit, gérer sur les 2 bouts !
'-------------- Sub Avance() Worksheets(ActiveSheet.Index - Not ActiveSheet.Index + 1 > Worksheets.Count).Select End Sub '----- Sub recule() Worksheets(ActiveSheet.Index + Not ActiveSheet.Index - 1 < 1).Select End Sub '----------------
-- Salutations JJ
"j-pascal" a écrit dans le message de news:
Bonjour Jacky,
Merci. Je n'ai pas essayé, mais j'imagine que ça fonctionne ; peut-on combiner cela avec l'autre proposition d'Isabelle, à savoir : "ActiveSheet.Previous.Select" ? Soit, gérer sur les 2 bouts !
JP
Bonsoir,
A priori cela n'empêche pas "On Error Resume ..."
'--------- Sub essai() Worksheets(ActiveSheet.Index - Not ActiveSheet.Index + 1 > Worksheets.Count).Select End Sub '-------------
-- Salutations JJ
"j-pascal" a écrit dans le message de news:
Bonjour Isabelle,
Merci. A priori cela n'empêche pas "On Error Resume ..." si le dernière (ou première) feuille est la feuille active ?! JP