Si votre email correspond à un compte, vous recevrez un lien de réinitialisation.
-----Message d'origine-----Bonjour à tous.Mon classeur comporte 5 onglets fixes, plus 1 par jour dumois.
Dim StrArray(1 To 28) As String '******************1to 28 si 28 jours,
mais le nombre peut changer entre 28 et 31Dim Sh As WorksheetDim i As Bytei = 1For Each Sh In ThisWorkbook.Sheets.......Pour n'agir que sur les onglets des jours, j'ai essayé :Dim Sc As ByteSc = Sheets.Count - 5Dim StrArray(1 To Sc) As StringMais j'ai un message d'erreur car SC doit être uneconstante.
Après maintes recherches, fier d'avoir trouvé ladéclaration d'une
constante, j'ai laborieusement pondu :Sub selectionne()Const Sc As Byte = Sheets.Count - 5Dim StrArray(1 To Sc) As StringMais pas mieux...Sheets;count-5 étant une variable n'est pas acceptéJe tourne en rond.:-(Un p'tit coup d'pouce, siouplait ?Merci d'avance.--Bien cordialement,P. Bastard.
-----Message d'origine----- Bonjour à tous. Mon classeur comporte 5 onglets fixes, plus 1 par jour du mois.
Dim StrArray(1 To 28) As String '******************1 to 28 si 28 jours,
mais le nombre peut changer entre 28 et 31 Dim Sh As Worksheet Dim i As Byte i = 1 For Each Sh In ThisWorkbook.Sheets ....... Pour n'agir que sur les onglets des jours, j'ai essayé : Dim Sc As Byte Sc = Sheets.Count - 5 Dim StrArray(1 To Sc) As String Mais j'ai un message d'erreur car SC doit être une constante.
Après maintes recherches, fier d'avoir trouvé la déclaration d'une
constante, j'ai laborieusement pondu : Sub selectionne() Const Sc As Byte = Sheets.Count - 5 Dim StrArray(1 To Sc) As String Mais pas mieux... Sheets;count-5 étant une variable n'est pas accepté Je tourne en rond. :-( Un p'tit coup d'pouce, siouplait ? Merci d'avance. -- Bien cordialement, P. Bastard .
Mais pour définir ta variable tableau.Dim SrArray() as string et utiliser un redim au moment où tu asévalué le nombre de feuilles concernées dans ta procédure.Dim Nb As IntegerDim T() As StringNb = Sheets.Count - 5ReDim T(1 To Nb)P.S. Nb doit être plus grand que >= 1Salutations!"Patrick BASTARD" a écrit dansle message de news: %Bonjour à tous.Mon classeur comporte 5 onglets fixes, plus 1 par jour du mois.Dim StrArray(1 To 28) As String '******************1 to 28 si 28jours,mais le nombre peut changer entre 28 et 31Dim Sh As WorksheetDim i As Bytei = 1For Each Sh In ThisWorkbook.Sheets......Pour n'agir que sur les onglets des jours, j'ai essayé :Dim Sc As ByteSc = Sheets.Count - 5Dim StrArray(1 To Sc) As StringMais j'ai un message d'erreur car SC doit être une constante.Après maintes recherches, fier d'avoir trouvé la déclaration d'uneconstante, j'ai laborieusement pondu :Sub selectionne()Const Sc As Byte = Sheets.Count - 5Dim StrArray(1 To Sc) As StringMais pas mieux...Sheets;count-5 étant une variable n'est pas acceptéJe tourne en rond.:-(Un p'tit coup d'pouce, siouplait ?Merci d'avance.
Mais pour définir ta variable tableau. Dim SrArray() as string et utiliser un redim au moment où tu as évalué le nombre de feuilles concernées dans ta procédure. Dim Nb As Integer Dim T() As String Nb = Sheets.Count - 5 ReDim T(1 To Nb) P.S. Nb doit être plus grand que >= 1 Salutations! "Patrick BASTARD" <pasdespambastardp@freepasdespam.fr> a écrit dans le message de news: %23M7hcaqEFHA.1012@TK2MSFTNGP14.phx.gbl... Bonjour à tous. Mon classeur comporte 5 onglets fixes, plus 1 par jour du mois. Dim StrArray(1 To 28) As String '******************1 to 28 si 28 jours, mais le nombre peut changer entre 28 et 31 Dim Sh As Worksheet Dim i As Byte i = 1 For Each Sh In ThisWorkbook.Sheets ...... Pour n'agir que sur les onglets des jours, j'ai essayé : Dim Sc As Byte Sc = Sheets.Count - 5 Dim StrArray(1 To Sc) As String Mais j'ai un message d'erreur car SC doit être une constante. Après maintes recherches, fier d'avoir trouvé la déclaration d'une constante, j'ai laborieusement pondu : Sub selectionne() Const Sc As Byte = Sheets.Count - 5 Dim StrArray(1 To Sc) As String Mais pas mieux... Sheets;count-5 étant une variable n'est pas accepté Je tourne en rond. :-( Un p'tit coup d'pouce, siouplait ? Merci d'avance.
Bonjour,En admettant que seuls les onglets coorespondant aux joursdu mois soient numériques :For each f in ActiveWorkbook.SheetsIf Isnumeric(f.name) Then...End IfNextCamille-----Message d'origine-----Bonjour à tous.Mon classeur comporte 5 onglets fixes, plus 1 par jour du mois.Dim StrArray(1 To 28) As String '******************1 to 28 si 28jours, mais le nombre peut changer entre 28 et 31Dim Sh As WorksheetDim i As Bytei = 1For Each Sh In ThisWorkbook.Sheets.......Pour n'agir que sur les onglets des jours, j'ai essayé :Dim Sc As ByteSc = Sheets.Count - 5Dim StrArray(1 To Sc) As StringMais j'ai un message d'erreur car SC doit être une constante.Après maintes recherches, fier d'avoir trouvé la déclaration d'uneconstante, j'ai laborieusement pondu :Sub selectionne()Const Sc As Byte = Sheets.Count - 5Dim StrArray(1 To Sc) As StringMais pas mieux...Sheets;count-5 étant une variable n'est pas acceptéJe tourne en rond.:-(Un p'tit coup d'pouce, siouplait ?Merci d'avance.--Bien cordialement,P. Bastard.
-----Message d'origine-----Bonjour à tous.Mon classeur comporte 5 onglets fixes, plus 1 par jour du mois.Dim StrArray(1 To 28) As String '******************1 to 28 si 28jours, mais le nombre peut changer entre 28 et 31Dim Sh As WorksheetDim i As Bytei = 1For Each Sh In ThisWorkbook.Sheets.......Pour n'agir que sur les onglets des jours, j'ai essayé :Dim Sc As ByteSc = Sheets.Count - 5Dim StrArray(1 To Sc) As StringMais j'ai un message d'erreur car SC doit être une constante.Après maintes recherches, fier d'avoir trouvé la déclaration d'uneconstante, j'ai laborieusement pondu :Sub selectionne()Const Sc As Byte = Sheets.Count - 5Dim StrArray(1 To Sc) As StringMais pas mieux...Sheets;count-5 étant une variable n'est pas acceptéJe tourne en rond.:-(Un p'tit coup d'pouce, siouplait ?Merci d'avance.--Bien cordialement,P. Bastard.
Bonjour, En admettant que seuls les onglets coorespondant aux jours du mois soient numériques : For each f in ActiveWorkbook.Sheets If Isnumeric(f.name) Then ... End If Next Camille -----Message d'origine----- Bonjour à tous. Mon classeur comporte 5 onglets fixes, plus 1 par jour du mois. Dim StrArray(1 To 28) As String '******************1 to 28 si 28 jours, mais le nombre peut changer entre 28 et 31 Dim Sh As Worksheet Dim i As Byte i = 1 For Each Sh In ThisWorkbook.Sheets ....... Pour n'agir que sur les onglets des jours, j'ai essayé : Dim Sc As Byte Sc = Sheets.Count - 5 Dim StrArray(1 To Sc) As String Mais j'ai un message d'erreur car SC doit être une constante. Après maintes recherches, fier d'avoir trouvé la déclaration d'une constante, j'ai laborieusement pondu : Sub selectionne() Const Sc As Byte = Sheets.Count - 5 Dim StrArray(1 To Sc) As String Mais pas mieux... Sheets;count-5 étant une variable n'est pas accepté Je tourne en rond. :-( Un p'tit coup d'pouce, siouplait ? Merci d'avance. -- Bien cordialement, P. Bastard .
-----Message d'origine----- Bonjour à tous. Mon classeur comporte 5 onglets fixes, plus 1 par jour du mois. Dim StrArray(1 To 28) As String '******************1 to 28 si 28 jours, mais le nombre peut changer entre 28 et 31 Dim Sh As Worksheet Dim i As Byte i = 1 For Each Sh In ThisWorkbook.Sheets ....... Pour n'agir que sur les onglets des jours, j'ai essayé : Dim Sc As Byte Sc = Sheets.Count - 5 Dim StrArray(1 To Sc) As String Mais j'ai un message d'erreur car SC doit être une constante. Après maintes recherches, fier d'avoir trouvé la déclaration d'une constante, j'ai laborieusement pondu : Sub selectionne() Const Sc As Byte = Sheets.Count - 5 Dim StrArray(1 To Sc) As String Mais pas mieux... Sheets;count-5 étant une variable n'est pas accepté Je tourne en rond. :-( Un p'tit coup d'pouce, siouplait ? Merci d'avance. -- Bien cordialement, P. Bastard .
