il y a quelques jours, tu m'as fourni une solution pour créer un classeur
contenant les feuilles modifiées dans un autre classeur.
Ca fonctionne très bien, mais j'ai un autre souci maintenant. Certaine
feuilles sont modifiées mais ne doivent pas faire partie du nouveau
classeur.
Parmi les différentes routines que tu m'as transmises, figurait celle-ci :
Public Sub Modif(NomFeuille As String)
> On Error Resume Next
> Col.Add NomFeuille, NomFeuille
> End Sub
Ma question : à l'aide d'un test if....then dans cette routine, puis-je
tester le nom de la feuille qui va être rajouter à la collection, si ce nom
correspond au nom d'une feuille ne devant pas être copiées, puis-je ne pas
l'inclure dans la collection ?
Merci.
---
Ce message est certifié sans virus connus par AVG 6.0 Free
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.693 / Virus Database: 454 - Release Date: 31/05/2004
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Frédéric Sigonneau
Bonsoir,
Par exemple (en supposant la collection initialisée par ailleurs) :
Public Sub Modif(NomFeuille As String) If IsError(Application.Match(NomFeuille, _ Array("Feuil1", "Feuil2", "Feuil5"), 0)) Then On Error Resume Next Col.Add NomFeuille, NomFeuille On Error GoTo 0 End If End Sub
FS --- Frédéric Sigonneau [MVP Excel - né un sans-culottide] Gestions de temps, VBA pour Excel : http://perso.wanadoo.fr/frederic.sigonneau Si votre question sur Excel est urgente, évitez ma bal !
Bonjour,
il y a quelques jours, tu m'as fourni une solution pour créer un classeur contenant les feuilles modifiées dans un autre classeur.
Ca fonctionne très bien, mais j'ai un autre souci maintenant. Certaine feuilles sont modifiées mais ne doivent pas faire partie du nouveau classeur.
Parmi les différentes routines que tu m'as transmises, figurait celle-ci :
Public Sub Modif(NomFeuille As String)
On Error Resume Next Col.Add NomFeuille, NomFeuille End Sub
Ma question : à l'aide d'un test if....then dans cette routine, puis-je tester le nom de la feuille qui va être rajouter à la collection, si ce nom correspond au nom d'une feuille ne devant pas être copiées, puis-je ne pas l'inclure dans la collection ?
Merci.
--- Ce message est certifié sans virus connus par AVG 6.0 Free Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.693 / Virus Database: 454 - Release Date: 31/05/2004
Bonsoir,
Par exemple (en supposant la collection initialisée par ailleurs) :
Public Sub Modif(NomFeuille As String)
If IsError(Application.Match(NomFeuille, _
Array("Feuil1", "Feuil2", "Feuil5"), 0)) Then
On Error Resume Next
Col.Add NomFeuille, NomFeuille
On Error GoTo 0
End If
End Sub
FS
---
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://perso.wanadoo.fr/frederic.sigonneau
Si votre question sur Excel est urgente, évitez ma bal !
Bonjour,
il y a quelques jours, tu m'as fourni une solution pour créer un classeur
contenant les feuilles modifiées dans un autre classeur.
Ca fonctionne très bien, mais j'ai un autre souci maintenant. Certaine
feuilles sont modifiées mais ne doivent pas faire partie du nouveau
classeur.
Parmi les différentes routines que tu m'as transmises, figurait celle-ci :
Public Sub Modif(NomFeuille As String)
On Error Resume Next
Col.Add NomFeuille, NomFeuille
End Sub
Ma question : à l'aide d'un test if....then dans cette routine, puis-je
tester le nom de la feuille qui va être rajouter à la collection, si ce nom
correspond au nom d'une feuille ne devant pas être copiées, puis-je ne pas
l'inclure dans la collection ?
Merci.
---
Ce message est certifié sans virus connus par AVG 6.0 Free
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.693 / Virus Database: 454 - Release Date: 31/05/2004
Par exemple (en supposant la collection initialisée par ailleurs) :
Public Sub Modif(NomFeuille As String) If IsError(Application.Match(NomFeuille, _ Array("Feuil1", "Feuil2", "Feuil5"), 0)) Then On Error Resume Next Col.Add NomFeuille, NomFeuille On Error GoTo 0 End If End Sub
FS --- Frédéric Sigonneau [MVP Excel - né un sans-culottide] Gestions de temps, VBA pour Excel : http://perso.wanadoo.fr/frederic.sigonneau Si votre question sur Excel est urgente, évitez ma bal !
Bonjour,
il y a quelques jours, tu m'as fourni une solution pour créer un classeur contenant les feuilles modifiées dans un autre classeur.
Ca fonctionne très bien, mais j'ai un autre souci maintenant. Certaine feuilles sont modifiées mais ne doivent pas faire partie du nouveau classeur.
Parmi les différentes routines que tu m'as transmises, figurait celle-ci :
Public Sub Modif(NomFeuille As String)
On Error Resume Next Col.Add NomFeuille, NomFeuille End Sub
Ma question : à l'aide d'un test if....then dans cette routine, puis-je tester le nom de la feuille qui va être rajouter à la collection, si ce nom correspond au nom d'une feuille ne devant pas être copiées, puis-je ne pas l'inclure dans la collection ?
Merci.
--- Ce message est certifié sans virus connus par AVG 6.0 Free Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.693 / Virus Database: 454 - Release Date: 31/05/2004
Gercha
Bonsoir,
en fait la routine initiale est la suivante : Public Sub Modif(NomFeuille As String) On Error Resume Next Col.Add NomFeuille, NomFeuille End Sub
En tous point identique à une partie de la votre.
Donc si je comprend bien,
la méthode Match va comparer le nom de ma feuille avec les FeuilX que je souhaite ne pas copier. Si la comparaison est vraie, je quitte la routine, sinon j'ajoute un objet feuille à ma collection.
Je ne connaissais pas cette fonction Match.
Je pensais faire un test If then ou Select Case.
Merci. "Frédéric Sigonneau" a écrit dans le message de news:O1pH%
Bonsoir,
Par exemple (en supposant la collection initialisée par ailleurs) :
Public Sub Modif(NomFeuille As String) If IsError(Application.Match(NomFeuille, _ Array("Feuil1", "Feuil2", "Feuil5"), 0)) Then On Error Resume Next Col.Add NomFeuille, NomFeuille On Error GoTo 0 End If End Sub
FS --- Frédéric Sigonneau [MVP Excel - né un sans-culottide] Gestions de temps, VBA pour Excel : http://perso.wanadoo.fr/frederic.sigonneau Si votre question sur Excel est urgente, évitez ma bal !
Bonjour,
il y a quelques jours, tu m'as fourni une solution pour créer un classeur
contenant les feuilles modifiées dans un autre classeur.
Ca fonctionne très bien, mais j'ai un autre souci maintenant. Certaine feuilles sont modifiées mais ne doivent pas faire partie du nouveau classeur.
Parmi les différentes routines que tu m'as transmises, figurait celle-ci :
Public Sub Modif(NomFeuille As String)
On Error Resume Next Col.Add NomFeuille, NomFeuille End Sub
Ma question : à l'aide d'un test if....then dans cette routine, puis-je tester le nom de la feuille qui va être rajouter à la collection, si ce nom
correspond au nom d'une feuille ne devant pas être copiées, puis-je ne pas
l'inclure dans la collection ?
Merci.
--- Ce message est certifié sans virus connus par AVG 6.0 Free Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.693 / Virus Database: 454 - Release Date: 31/05/2004
--- Ce message est certifié sans virus connus par AVG 6.0 Free Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.698 / Virus Database: 455 - Release Date: 02/06/2004
Bonsoir,
en fait la routine initiale est la suivante :
Public Sub Modif(NomFeuille As String)
On Error Resume Next
Col.Add NomFeuille, NomFeuille
End Sub
En tous point identique à une partie de la votre.
Donc si je comprend bien,
la méthode Match va comparer le nom de ma feuille avec les FeuilX que je
souhaite ne pas copier. Si la comparaison est vraie, je quitte la routine,
sinon j'ajoute un objet feuille à ma collection.
Je ne connaissais pas cette fonction Match.
Je pensais faire un test If then ou Select Case.
Merci.
"Frédéric Sigonneau" <frederic.sigonneau@ouanadou.fr> a écrit dans le
message de news:O1pH%23XaSEHA.3692@TK2MSFTNGP10.phx.gbl...
Bonsoir,
Par exemple (en supposant la collection initialisée par ailleurs) :
Public Sub Modif(NomFeuille As String)
If IsError(Application.Match(NomFeuille, _
Array("Feuil1", "Feuil2", "Feuil5"), 0)) Then
On Error Resume Next
Col.Add NomFeuille, NomFeuille
On Error GoTo 0
End If
End Sub
FS
---
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://perso.wanadoo.fr/frederic.sigonneau
Si votre question sur Excel est urgente, évitez ma bal !
Bonjour,
il y a quelques jours, tu m'as fourni une solution pour créer un
classeur
contenant les feuilles modifiées dans un autre classeur.
Ca fonctionne très bien, mais j'ai un autre souci maintenant. Certaine
feuilles sont modifiées mais ne doivent pas faire partie du nouveau
classeur.
Parmi les différentes routines que tu m'as transmises, figurait celle-ci
:
Public Sub Modif(NomFeuille As String)
On Error Resume Next
Col.Add NomFeuille, NomFeuille
End Sub
Ma question : à l'aide d'un test if....then dans cette routine, puis-je
tester le nom de la feuille qui va être rajouter à la collection, si ce
nom
correspond au nom d'une feuille ne devant pas être copiées, puis-je ne
pas
l'inclure dans la collection ?
Merci.
---
Ce message est certifié sans virus connus par AVG 6.0 Free
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.693 / Virus Database: 454 - Release Date: 31/05/2004
---
Ce message est certifié sans virus connus par AVG 6.0 Free
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.698 / Virus Database: 455 - Release Date: 02/06/2004
en fait la routine initiale est la suivante : Public Sub Modif(NomFeuille As String) On Error Resume Next Col.Add NomFeuille, NomFeuille End Sub
En tous point identique à une partie de la votre.
Donc si je comprend bien,
la méthode Match va comparer le nom de ma feuille avec les FeuilX que je souhaite ne pas copier. Si la comparaison est vraie, je quitte la routine, sinon j'ajoute un objet feuille à ma collection.
Je ne connaissais pas cette fonction Match.
Je pensais faire un test If then ou Select Case.
Merci. "Frédéric Sigonneau" a écrit dans le message de news:O1pH%
Bonsoir,
Par exemple (en supposant la collection initialisée par ailleurs) :
Public Sub Modif(NomFeuille As String) If IsError(Application.Match(NomFeuille, _ Array("Feuil1", "Feuil2", "Feuil5"), 0)) Then On Error Resume Next Col.Add NomFeuille, NomFeuille On Error GoTo 0 End If End Sub
FS --- Frédéric Sigonneau [MVP Excel - né un sans-culottide] Gestions de temps, VBA pour Excel : http://perso.wanadoo.fr/frederic.sigonneau Si votre question sur Excel est urgente, évitez ma bal !
Bonjour,
il y a quelques jours, tu m'as fourni une solution pour créer un classeur
contenant les feuilles modifiées dans un autre classeur.
Ca fonctionne très bien, mais j'ai un autre souci maintenant. Certaine feuilles sont modifiées mais ne doivent pas faire partie du nouveau classeur.
Parmi les différentes routines que tu m'as transmises, figurait celle-ci :
Public Sub Modif(NomFeuille As String)
On Error Resume Next Col.Add NomFeuille, NomFeuille End Sub
Ma question : à l'aide d'un test if....then dans cette routine, puis-je tester le nom de la feuille qui va être rajouter à la collection, si ce nom
correspond au nom d'une feuille ne devant pas être copiées, puis-je ne pas
l'inclure dans la collection ?
Merci.
--- Ce message est certifié sans virus connus par AVG 6.0 Free Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.693 / Virus Database: 454 - Release Date: 31/05/2004
--- Ce message est certifié sans virus connus par AVG 6.0 Free Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.698 / Virus Database: 455 - Release Date: 02/06/2004
Frédéric Sigonneau
Re,
Je pensais faire un test If then ou Select Case.
C'est possible aussi ! Par exemple avec Select Case :
Public Sub Modif(NomFeuille As String) Select Case NomFeuille Case "Feuil1", "Feuil2", "Feuil5" Case Else On Error Resume Next Col.Add NomFeuille, NomFeuille On Error GoTo 0 End Select End Sub
FS --- Frédéric Sigonneau [MVP Excel - né un sans-culottide] Gestions de temps, VBA pour Excel : http://perso.wanadoo.fr/frederic.sigonneau Si votre question sur Excel est urgente, évitez ma bal !
Bonsoir,
en fait la routine initiale est la suivante : Public Sub Modif(NomFeuille As String) On Error Resume Next Col.Add NomFeuille, NomFeuille End Sub
En tous point identique à une partie de la votre.
Donc si je comprend bien,
la méthode Match va comparer le nom de ma feuille avec les FeuilX que je souhaite ne pas copier. Si la comparaison est vraie, je quitte la routine, sinon j'ajoute un objet feuille à ma collection.
Je ne connaissais pas cette fonction Match.
Je pensais faire un test If then ou Select Case.
Merci. "Frédéric Sigonneau" a écrit dans le message de news:O1pH%
Bonsoir,
Par exemple (en supposant la collection initialisée par ailleurs) :
Public Sub Modif(NomFeuille As String) If IsError(Application.Match(NomFeuille, _ Array("Feuil1", "Feuil2", "Feuil5"), 0)) Then On Error Resume Next Col.Add NomFeuille, NomFeuille On Error GoTo 0 End If End Sub
FS --- Frédéric Sigonneau [MVP Excel - né un sans-culottide] Gestions de temps, VBA pour Excel : http://perso.wanadoo.fr/frederic.sigonneau Si votre question sur Excel est urgente, évitez ma bal !
Bonjour,
il y a quelques jours, tu m'as fourni une solution pour créer un
classeur
contenant les feuilles modifiées dans un autre classeur.
Ca fonctionne très bien, mais j'ai un autre souci maintenant. Certaine feuilles sont modifiées mais ne doivent pas faire partie du nouveau classeur.
Parmi les différentes routines que tu m'as transmises, figurait celle-ci
:
Public Sub Modif(NomFeuille As String)
On Error Resume Next Col.Add NomFeuille, NomFeuille End Sub
Ma question : à l'aide d'un test if....then dans cette routine, puis-je tester le nom de la feuille qui va être rajouter à la collection, si ce
nom
correspond au nom d'une feuille ne devant pas être copiées, puis-je ne
pas
l'inclure dans la collection ?
Merci.
--- Ce message est certifié sans virus connus par AVG 6.0 Free Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.693 / Virus Database: 454 - Release Date: 31/05/2004
--- Ce message est certifié sans virus connus par AVG 6.0 Free Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.698 / Virus Database: 455 - Release Date: 02/06/2004
Re,
Je pensais faire un test If then ou Select Case.
C'est possible aussi ! Par exemple avec Select Case :
Public Sub Modif(NomFeuille As String)
Select Case NomFeuille
Case "Feuil1", "Feuil2", "Feuil5"
Case Else
On Error Resume Next
Col.Add NomFeuille, NomFeuille
On Error GoTo 0
End Select
End Sub
FS
---
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://perso.wanadoo.fr/frederic.sigonneau
Si votre question sur Excel est urgente, évitez ma bal !
Bonsoir,
en fait la routine initiale est la suivante :
Public Sub Modif(NomFeuille As String)
On Error Resume Next
Col.Add NomFeuille, NomFeuille
End Sub
En tous point identique à une partie de la votre.
Donc si je comprend bien,
la méthode Match va comparer le nom de ma feuille avec les FeuilX que je
souhaite ne pas copier. Si la comparaison est vraie, je quitte la routine,
sinon j'ajoute un objet feuille à ma collection.
Je ne connaissais pas cette fonction Match.
Je pensais faire un test If then ou Select Case.
Merci.
"Frédéric Sigonneau" <frederic.sigonneau@ouanadou.fr> a écrit dans le
message de news:O1pH%23XaSEHA.3692@TK2MSFTNGP10.phx.gbl...
Bonsoir,
Par exemple (en supposant la collection initialisée par ailleurs) :
Public Sub Modif(NomFeuille As String)
If IsError(Application.Match(NomFeuille, _
Array("Feuil1", "Feuil2", "Feuil5"), 0)) Then
On Error Resume Next
Col.Add NomFeuille, NomFeuille
On Error GoTo 0
End If
End Sub
FS
---
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://perso.wanadoo.fr/frederic.sigonneau
Si votre question sur Excel est urgente, évitez ma bal !
Bonjour,
il y a quelques jours, tu m'as fourni une solution pour créer un
classeur
contenant les feuilles modifiées dans un autre classeur.
Ca fonctionne très bien, mais j'ai un autre souci maintenant. Certaine
feuilles sont modifiées mais ne doivent pas faire partie du nouveau
classeur.
Parmi les différentes routines que tu m'as transmises, figurait celle-ci
:
Public Sub Modif(NomFeuille As String)
On Error Resume Next
Col.Add NomFeuille, NomFeuille
End Sub
Ma question : à l'aide d'un test if....then dans cette routine, puis-je
tester le nom de la feuille qui va être rajouter à la collection, si ce
nom
correspond au nom d'une feuille ne devant pas être copiées, puis-je ne
pas
l'inclure dans la collection ?
Merci.
---
Ce message est certifié sans virus connus par AVG 6.0 Free
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.693 / Virus Database: 454 - Release Date: 31/05/2004
---
Ce message est certifié sans virus connus par AVG 6.0 Free
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.698 / Virus Database: 455 - Release Date: 02/06/2004
C'est possible aussi ! Par exemple avec Select Case :
Public Sub Modif(NomFeuille As String) Select Case NomFeuille Case "Feuil1", "Feuil2", "Feuil5" Case Else On Error Resume Next Col.Add NomFeuille, NomFeuille On Error GoTo 0 End Select End Sub
FS --- Frédéric Sigonneau [MVP Excel - né un sans-culottide] Gestions de temps, VBA pour Excel : http://perso.wanadoo.fr/frederic.sigonneau Si votre question sur Excel est urgente, évitez ma bal !
Bonsoir,
en fait la routine initiale est la suivante : Public Sub Modif(NomFeuille As String) On Error Resume Next Col.Add NomFeuille, NomFeuille End Sub
En tous point identique à une partie de la votre.
Donc si je comprend bien,
la méthode Match va comparer le nom de ma feuille avec les FeuilX que je souhaite ne pas copier. Si la comparaison est vraie, je quitte la routine, sinon j'ajoute un objet feuille à ma collection.
Je ne connaissais pas cette fonction Match.
Je pensais faire un test If then ou Select Case.
Merci. "Frédéric Sigonneau" a écrit dans le message de news:O1pH%
Bonsoir,
Par exemple (en supposant la collection initialisée par ailleurs) :
Public Sub Modif(NomFeuille As String) If IsError(Application.Match(NomFeuille, _ Array("Feuil1", "Feuil2", "Feuil5"), 0)) Then On Error Resume Next Col.Add NomFeuille, NomFeuille On Error GoTo 0 End If End Sub
FS --- Frédéric Sigonneau [MVP Excel - né un sans-culottide] Gestions de temps, VBA pour Excel : http://perso.wanadoo.fr/frederic.sigonneau Si votre question sur Excel est urgente, évitez ma bal !
Bonjour,
il y a quelques jours, tu m'as fourni une solution pour créer un
classeur
contenant les feuilles modifiées dans un autre classeur.
Ca fonctionne très bien, mais j'ai un autre souci maintenant. Certaine feuilles sont modifiées mais ne doivent pas faire partie du nouveau classeur.
Parmi les différentes routines que tu m'as transmises, figurait celle-ci
:
Public Sub Modif(NomFeuille As String)
On Error Resume Next Col.Add NomFeuille, NomFeuille End Sub
Ma question : à l'aide d'un test if....then dans cette routine, puis-je tester le nom de la feuille qui va être rajouter à la collection, si ce
nom
correspond au nom d'une feuille ne devant pas être copiées, puis-je ne
pas
l'inclure dans la collection ?
Merci.
--- Ce message est certifié sans virus connus par AVG 6.0 Free Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.693 / Virus Database: 454 - Release Date: 31/05/2004
--- Ce message est certifié sans virus connus par AVG 6.0 Free Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.698 / Virus Database: 455 - Release Date: 02/06/2004
