selection et effacement partiel d'un groupe de travail
4 réponses
Sky
Bonjour à tous,
Voici mon problème :
J'ai des feuilles nommées par semaine S1, S2 , S3, S4, etc....
J'ai un code me permettant de sélectionner toutes les feuilles commençant
par la lettre S
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
Je voudrais que dans le groupe de travail ainsi sélectionné, il me
déselectionne la feuille dont le chiffre est le plus important
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
Philippe
Bonjour,
Comme ça , ce qui me vient à l'idée c'est de ne contourner le problème : évitr de sélectionner la feuille que tu es sensée déselectionner
1/ cherche le max des feuilles sélectionnables. Donne lui la valeur 'toto'
2/ Refais ta boucle avec la condition : If Left(Sheets(i).Name, 1) = "S" and i <> toto Then
On évite ainsi la désélection sur laquelle je dois dire que je blloque aussi.
Bon courage.
Philippe.
(j'ai un problème de compréhension dans 'la feuille dont le chiffre est le plus important' => j'espere donc ne pas etre à coté de la plaque :-) )
Bonjour à tous,
Voici mon problème :
J'ai des feuilles nommées par semaine S1, S2 , S3, S4, etc....
J'ai un code me permettant de sélectionner toutes les feuilles commençant par la lettre S
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
Je voudrais que dans le groupe de travail ainsi sélectionné, il me déselectionne la feuille dont le chiffre est le plus important
Comment faire ?
Merci d'avance
Bonjour,
Comme ça , ce qui me vient à l'idée c'est de ne contourner le problème :
évitr de sélectionner la feuille que tu es sensée déselectionner
1/ cherche le max des feuilles sélectionnables. Donne lui la valeur 'toto'
2/ Refais ta boucle avec la condition : If Left(Sheets(i).Name, 1) = "S" and
i <> toto Then
On évite ainsi la désélection sur laquelle je dois dire que je blloque aussi.
Bon courage.
Philippe.
(j'ai un problème de compréhension dans 'la feuille dont le chiffre est le
plus important' => j'espere donc ne pas etre à coté de la plaque :-) )
Bonjour à tous,
Voici mon problème :
J'ai des feuilles nommées par semaine S1, S2 , S3, S4, etc....
J'ai un code me permettant de sélectionner toutes les feuilles commençant
par la lettre S
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
Je voudrais que dans le groupe de travail ainsi sélectionné, il me
déselectionne la feuille dont le chiffre est le plus important
Comme ça , ce qui me vient à l'idée c'est de ne contourner le problème : évitr de sélectionner la feuille que tu es sensée déselectionner
1/ cherche le max des feuilles sélectionnables. Donne lui la valeur 'toto'
2/ Refais ta boucle avec la condition : If Left(Sheets(i).Name, 1) = "S" and i <> toto Then
On évite ainsi la désélection sur laquelle je dois dire que je blloque aussi.
Bon courage.
Philippe.
(j'ai un problème de compréhension dans 'la feuille dont le chiffre est le plus important' => j'espere donc ne pas etre à coté de la plaque :-) )
Bonjour à tous,
Voici mon problème :
J'ai des feuilles nommées par semaine S1, S2 , S3, S4, etc....
J'ai un code me permettant de sélectionner toutes les feuilles commençant par la lettre S
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
Je voudrais que dans le groupe de travail ainsi sélectionné, il me déselectionne la feuille dont le chiffre est le plus important
Comment faire ?
Merci d'avance
Alain CROS
Bonjour.
Sub GT() Dim sngArray() As String Dim A&, i&, TempName$, CurName$ For i = 1 To Sheets.Count CurName = Sheets(i).Name If Left$(CurName, 1) = "S" Then If TempName = "" Then TempName = CurName Else ReDim Preserve sngArray(A) If CLng(Right$(TempName, Len(TempName) - 1&)) > _ CLng(Right$(CurName, Len(CurName) - 1&)) Then sngArray(A) = CurName Else sngArray(A) = TempName TempName = CurName End If A = A + 1 End If End If Next Sheets(sngArray).Select End Sub
Alain CROS
"Sky" a écrit dans le message de news: 432eb2df$0$983$ | Bonjour à tous, | | Voici mon problème : | | J'ai des feuilles nommées par semaine S1, S2 , S3, S4, etc.... | | J'ai un code me permettant de sélectionner toutes les feuilles commençant | par la lettre S | | 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 | | Je voudrais que dans le groupe de travail ainsi sélectionné, il me | déselectionne la feuille dont le chiffre est le plus important | | Comment faire ? | | Merci d'avance | | |
Bonjour.
Sub GT()
Dim sngArray() As String
Dim A&, i&, TempName$, CurName$
For i = 1 To Sheets.Count
CurName = Sheets(i).Name
If Left$(CurName, 1) = "S" Then
If TempName = "" Then
TempName = CurName
Else
ReDim Preserve sngArray(A)
If CLng(Right$(TempName, Len(TempName) - 1&)) > _
CLng(Right$(CurName, Len(CurName) - 1&)) Then
sngArray(A) = CurName
Else
sngArray(A) = TempName
TempName = CurName
End If
A = A + 1
End If
End If
Next
Sheets(sngArray).Select
End Sub
Alain CROS
"Sky" <schricke.franck@wanadoo.fr> a écrit dans le message de news: 432eb2df$0$983$8fcfb975@news.wanadoo.fr...
| Bonjour à tous,
|
| Voici mon problème :
|
| J'ai des feuilles nommées par semaine S1, S2 , S3, S4, etc....
|
| J'ai un code me permettant de sélectionner toutes les feuilles commençant
| par la lettre S
|
| 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
|
| Je voudrais que dans le groupe de travail ainsi sélectionné, il me
| déselectionne la feuille dont le chiffre est le plus important
|
| Comment faire ?
|
| Merci d'avance
|
|
|
Sub GT() Dim sngArray() As String Dim A&, i&, TempName$, CurName$ For i = 1 To Sheets.Count CurName = Sheets(i).Name If Left$(CurName, 1) = "S" Then If TempName = "" Then TempName = CurName Else ReDim Preserve sngArray(A) If CLng(Right$(TempName, Len(TempName) - 1&)) > _ CLng(Right$(CurName, Len(CurName) - 1&)) Then sngArray(A) = CurName Else sngArray(A) = TempName TempName = CurName End If A = A + 1 End If End If Next Sheets(sngArray).Select End Sub
Alain CROS
"Sky" a écrit dans le message de news: 432eb2df$0$983$ | Bonjour à tous, | | Voici mon problème : | | J'ai des feuilles nommées par semaine S1, S2 , S3, S4, etc.... | | J'ai un code me permettant de sélectionner toutes les feuilles commençant | par la lettre S | | 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 | | Je voudrais que dans le groupe de travail ainsi sélectionné, il me | déselectionne la feuille dont le chiffre est le plus important | | Comment faire ? | | Merci d'avance | | |
Michel NOLF
Est ce que apres ta macro: redim preserve sngArray(ubound(sngArray)-1) ne pourrais pas convenir
"Sky" a écrit dans le message de news: 432eb2df$0$983$
Bonjour à tous,
Voici mon problème :
J'ai des feuilles nommées par semaine S1, S2 , S3, S4, etc....
J'ai un code me permettant de sélectionner toutes les feuilles commençant par la lettre S
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
Je voudrais que dans le groupe de travail ainsi sélectionné, il me déselectionne la feuille dont le chiffre est le plus important
Comment faire ?
Merci d'avance
Est ce que apres ta macro:
redim preserve sngArray(ubound(sngArray)-1) ne pourrais pas convenir
"Sky" <schricke.franck@wanadoo.fr> a écrit dans le message de news:
432eb2df$0$983$8fcfb975@news.wanadoo.fr...
Bonjour à tous,
Voici mon problème :
J'ai des feuilles nommées par semaine S1, S2 , S3, S4, etc....
J'ai un code me permettant de sélectionner toutes les feuilles commençant
par la lettre S
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
Je voudrais que dans le groupe de travail ainsi sélectionné, il me
déselectionne la feuille dont le chiffre est le plus important
Est ce que apres ta macro: redim preserve sngArray(ubound(sngArray)-1) ne pourrais pas convenir
"Sky" a écrit dans le message de news: 432eb2df$0$983$
Bonjour à tous,
Voici mon problème :
J'ai des feuilles nommées par semaine S1, S2 , S3, S4, etc....
J'ai un code me permettant de sélectionner toutes les feuilles commençant par la lettre S
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
Je voudrais que dans le groupe de travail ainsi sélectionné, il me déselectionne la feuille dont le chiffre est le plus important
Comment faire ?
Merci d'avance
Sky
Bonjour michel,
ton code me convient parfaitement
merci de ton aide
@+
"Michel NOLF" a écrit dans le message de news: %
Est ce que apres ta macro: redim preserve sngArray(ubound(sngArray)-1) ne pourrais pas convenir
"Sky" a écrit dans le message de news: 432eb2df$0$983$
Bonjour à tous,
Voici mon problème :
J'ai des feuilles nommées par semaine S1, S2 , S3, S4, etc....
J'ai un code me permettant de sélectionner toutes les feuilles commençant par la lettre S
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
Je voudrais que dans le groupe de travail ainsi sélectionné, il me déselectionne la feuille dont le chiffre est le plus important
Comment faire ?
Merci d'avance
Bonjour michel,
ton code me convient parfaitement
merci de ton aide
@+
"Michel NOLF" <michel.nolf.sansspam@tiscali.fr> a écrit dans le message de
news: %23KZCjQivFHA.3932@TK2MSFTNGP15.phx.gbl...
Est ce que apres ta macro:
redim preserve sngArray(ubound(sngArray)-1) ne pourrais pas convenir
"Sky" <schricke.franck@wanadoo.fr> a écrit dans le message de news:
432eb2df$0$983$8fcfb975@news.wanadoo.fr...
Bonjour à tous,
Voici mon problème :
J'ai des feuilles nommées par semaine S1, S2 , S3, S4, etc....
J'ai un code me permettant de sélectionner toutes les feuilles commençant
par la lettre S
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
Je voudrais que dans le groupe de travail ainsi sélectionné, il me
déselectionne la feuille dont le chiffre est le plus important
Est ce que apres ta macro: redim preserve sngArray(ubound(sngArray)-1) ne pourrais pas convenir
"Sky" a écrit dans le message de news: 432eb2df$0$983$
Bonjour à tous,
Voici mon problème :
J'ai des feuilles nommées par semaine S1, S2 , S3, S4, etc....
J'ai un code me permettant de sélectionner toutes les feuilles commençant par la lettre S
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
Je voudrais que dans le groupe de travail ainsi sélectionné, il me déselectionne la feuille dont le chiffre est le plus important