dans une feuille PARAMETRES
j'ai une zone nomm=E9e [parametres!LST_FEUILLES_INITIALES]
c'est en fait une series de cellules dispos=E9es horizontalement
et qui contiennent, par exemple : MA_FEUIL01 puis 1 cellule =E0 droite
MA_FEUILLE02
puis, 1 cellule =E0 droite PARAMETRES etc ....
donc, pour chaque feuilles existantes ( et certaines peuvent etre
cach=E9es) je regarde
si le nom de la feuille Sheets(I).Name se trouve (le match) dans la
zone
[parametres!LST_FEUILLES_INITIALES]
Ce que je n'arrive pas =E0 =E9crire :
SI je trouve la feuille, je la laisse. Si je ne trouve pas la feuille,
je supprime cette
feuille.
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
JB
Bonsoir,
Sub SupFeuilles() Application.DisplayAlerts = False For Each f In ActiveWorkbook.Sheets x = f.Name If IsError(Application.Match(f.Name, [maliste], 0)) Then f.Delete End If Next f End Sub
Cordialement JB
Bonjour,
dans une feuille PARAMETRES j'ai une zone nommée [parametres!LST_FEUILLES_INITIALES] c'est en fait une series de cellules disposées horizontalement et qui contiennent, par exemple : MA_FEUIL01 puis 1 cellule à droite MA_FEUILLE02 puis, 1 cellule à droite PARAMETRES etc ....
donc, pour chaque feuilles existantes ( et certaines peuvent etre cachées) je regarde si le nom de la feuille Sheets(I).Name se trouve (le match) dans la zone [parametres!LST_FEUILLES_INITIALES]
Ce que je n'arrive pas à écrire :
SI je trouve la feuille, je la laisse. Si je ne trouve pas la feuille, je supprime cette feuille.
est-ce la bonne méthode ? merci de votre aide.
José
Bonsoir,
Sub SupFeuilles()
Application.DisplayAlerts = False
For Each f In ActiveWorkbook.Sheets
x = f.Name
If IsError(Application.Match(f.Name, [maliste], 0)) Then
f.Delete
End If
Next f
End Sub
Cordialement JB
Bonjour,
dans une feuille PARAMETRES
j'ai une zone nommée [parametres!LST_FEUILLES_INITIALES]
c'est en fait une series de cellules disposées horizontalement
et qui contiennent, par exemple : MA_FEUIL01 puis 1 cellule à droite
MA_FEUILLE02
puis, 1 cellule à droite PARAMETRES etc ....
donc, pour chaque feuilles existantes ( et certaines peuvent etre
cachées) je regarde
si le nom de la feuille Sheets(I).Name se trouve (le match) dans la
zone
[parametres!LST_FEUILLES_INITIALES]
Ce que je n'arrive pas à écrire :
SI je trouve la feuille, je la laisse. Si je ne trouve pas la feuille,
je supprime cette
feuille.
Sub SupFeuilles() Application.DisplayAlerts = False For Each f In ActiveWorkbook.Sheets x = f.Name If IsError(Application.Match(f.Name, [maliste], 0)) Then f.Delete End If Next f End Sub
Cordialement JB
Bonjour,
dans une feuille PARAMETRES j'ai une zone nommée [parametres!LST_FEUILLES_INITIALES] c'est en fait une series de cellules disposées horizontalement et qui contiennent, par exemple : MA_FEUIL01 puis 1 cellule à droite MA_FEUILLE02 puis, 1 cellule à droite PARAMETRES etc ....
donc, pour chaque feuilles existantes ( et certaines peuvent etre cachées) je regarde si le nom de la feuille Sheets(I).Name se trouve (le match) dans la zone [parametres!LST_FEUILLES_INITIALES]
Ce que je n'arrive pas à écrire :
SI je trouve la feuille, je la laisse. Si je ne trouve pas la feuille, je supprime cette feuille.
est-ce la bonne méthode ? merci de votre aide.
José
Alfred WALLACE
standing ovation !!!
Merci encore
José
Bonsoir,
Sub SupFeuilles() Application.DisplayAlerts = False For Each f In ActiveWorkbook.Sheets x = f.Name If IsError(Application.Match(f.Name, [maliste], 0)) Then f.Delete End If Next f End Sub
Cordialement JB
Bonjour,
dans une feuille PARAMETRES j'ai une zone nommée [parametres!LST_FEUILLES_INITIALES] c'est en fait une series de cellules disposées horizontalement et qui contiennent, par exemple : MA_FEUIL01 puis 1 cellule à droite MA_FEUILLE02 puis, 1 cellule à droite PARAMETRES etc ....
donc, pour chaque feuilles existantes ( et certaines peuvent etre cachées) je regarde si le nom de la feuille Sheets(I).Name se trouve (le match) dans la zone [parametres!LST_FEUILLES_INITIALES]
Ce que je n'arrive pas à écrire :
SI je trouve la feuille, je la laisse. Si je ne trouve pas la feuille, je supprime cette feuille.
est-ce la bonne méthode ? merci de votre aide.
José
standing ovation !!!
Merci encore
José
Bonsoir,
Sub SupFeuilles()
Application.DisplayAlerts = False
For Each f In ActiveWorkbook.Sheets
x = f.Name
If IsError(Application.Match(f.Name, [maliste], 0)) Then
f.Delete
End If
Next f
End Sub
Cordialement JB
Bonjour,
dans une feuille PARAMETRES
j'ai une zone nommée [parametres!LST_FEUILLES_INITIALES]
c'est en fait une series de cellules disposées horizontalement
et qui contiennent, par exemple : MA_FEUIL01 puis 1 cellule à droite
MA_FEUILLE02
puis, 1 cellule à droite PARAMETRES etc ....
donc, pour chaque feuilles existantes ( et certaines peuvent etre
cachées) je regarde
si le nom de la feuille Sheets(I).Name se trouve (le match) dans la
zone
[parametres!LST_FEUILLES_INITIALES]
Ce que je n'arrive pas à écrire :
SI je trouve la feuille, je la laisse. Si je ne trouve pas la feuille,
je supprime cette
feuille.
Sub SupFeuilles() Application.DisplayAlerts = False For Each f In ActiveWorkbook.Sheets x = f.Name If IsError(Application.Match(f.Name, [maliste], 0)) Then f.Delete End If Next f End Sub
Cordialement JB
Bonjour,
dans une feuille PARAMETRES j'ai une zone nommée [parametres!LST_FEUILLES_INITIALES] c'est en fait une series de cellules disposées horizontalement et qui contiennent, par exemple : MA_FEUIL01 puis 1 cellule à droite MA_FEUILLE02 puis, 1 cellule à droite PARAMETRES etc ....
donc, pour chaque feuilles existantes ( et certaines peuvent etre cachées) je regarde si le nom de la feuille Sheets(I).Name se trouve (le match) dans la zone [parametres!LST_FEUILLES_INITIALES]
Ce que je n'arrive pas à écrire :
SI je trouve la feuille, je la laisse. Si je ne trouve pas la feuille, je supprime cette feuille.