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
anonymousA
bonjour,
des éléments dans ce qui suit , à adapter à ton besoin
Sub select_feuilles_multiples()
1ere méthode
Dim sngArray() As String A = 0
For i = 1 To Sheets.Count If Left(Sheets(i).Name, 1) = "S" Then ReDim Preserve sngArray(A) sngArray(A) = Sheets(i).Name A = A + 1 End If Next Sheets(sngArray).Select
'2eme méthode (due à AV) 'utiliser l'argument Replace (expression.Select(Replace)) seulement 'utilisé dans le cas des feuilles: quand égal à false, étend la 'sélection des feuilles 'à celles déjà sélectionnées 'du genre Sheets(i).Select (False), le problème étant de gérer la 'selection de la 1ere feuille correspondant au critère
A+
Bonjour à tous,
j'ai un petit souci J'aimerais sélectionné toutes les feuilles de mon classeur dont le nom commence par S
Merci de votre aide
bonjour,
des éléments dans ce qui suit , à adapter à ton besoin
Sub select_feuilles_multiples()
1ere méthode
Dim sngArray() As String
A = 0
For i = 1 To Sheets.Count
If Left(Sheets(i).Name, 1) = "S" Then
ReDim Preserve sngArray(A)
sngArray(A) = Sheets(i).Name
A = A + 1
End If
Next
Sheets(sngArray).Select
'2eme méthode (due à AV)
'utiliser l'argument Replace (expression.Select(Replace)) seulement
'utilisé dans le cas des feuilles: quand égal à false, étend la
'sélection des feuilles
'à celles déjà sélectionnées
'du genre Sheets(i).Select (False), le problème étant de gérer la
'selection de la 1ere feuille correspondant au critère
A+
Bonjour à tous,
j'ai un petit souci
J'aimerais sélectionné toutes les feuilles de mon classeur dont le nom
commence par S
des éléments dans ce qui suit , à adapter à ton besoin
Sub select_feuilles_multiples()
1ere méthode
Dim sngArray() As String A = 0
For i = 1 To Sheets.Count If Left(Sheets(i).Name, 1) = "S" Then ReDim Preserve sngArray(A) sngArray(A) = Sheets(i).Name A = A + 1 End If Next Sheets(sngArray).Select
'2eme méthode (due à AV) 'utiliser l'argument Replace (expression.Select(Replace)) seulement 'utilisé dans le cas des feuilles: quand égal à false, étend la 'sélection des feuilles 'à celles déjà sélectionnées 'du genre Sheets(i).Select (False), le problème étant de gérer la 'selection de la 1ere feuille correspondant au critère
A+
Bonjour à tous,
j'ai un petit souci J'aimerais sélectionné toutes les feuilles de mon classeur dont le nom commence par S
Merci de votre aide
michdenis
Bonjour Sky,
Il y a aussi ceci : '---------------------- Sub Selectionfeuille() For Each sh In Worksheets If UCase(Left(sh.Name, 1)) = "F" Then sh.Select False End If Next End Sub '----------------------
Salutations!
"Sky" a écrit dans le message de news: 43298e63$0$1022$ Bonjour à tous,
j'ai un petit souci J'aimerais sélectionné toutes les feuilles de mon classeur dont le nom commence par S
Merci de votre aide
Bonjour Sky,
Il y a aussi ceci :
'----------------------
Sub Selectionfeuille()
For Each sh In Worksheets
If UCase(Left(sh.Name, 1)) = "F" Then
sh.Select False
End If
Next
End Sub
'----------------------
Salutations!
"Sky" <schricke.franck@wanadoo.fr> a écrit dans le message de news: 43298e63$0$1022$8fcfb975@news.wanadoo.fr...
Bonjour à tous,
j'ai un petit souci
J'aimerais sélectionné toutes les feuilles de mon classeur dont le nom
commence par S
Il y a aussi ceci : '---------------------- Sub Selectionfeuille() For Each sh In Worksheets If UCase(Left(sh.Name, 1)) = "F" Then sh.Select False End If Next End Sub '----------------------
Salutations!
"Sky" a écrit dans le message de news: 43298e63$0$1022$ Bonjour à tous,
j'ai un petit souci J'aimerais sélectionné toutes les feuilles de mon classeur dont le nom commence par S
Merci de votre aide
Sky
Merci pour vos bons soins, ca fonctionne bien
"Sky" a écrit dans le message de news: 43298e63$0$1022$
Bonjour à tous,
j'ai un petit souci J'aimerais sélectionné toutes les feuilles de mon classeur dont le nom commence par S
Merci de votre aide
Merci pour vos bons soins,
ca fonctionne bien
"Sky" <schricke.franck@wanadoo.fr> a écrit dans le message de news:
43298e63$0$1022$8fcfb975@news.wanadoo.fr...
Bonjour à tous,
j'ai un petit souci
J'aimerais sélectionné toutes les feuilles de mon classeur dont le nom
commence par S
