Bonjour,
j'ai cette procédure qui fonctionne très bien sur Excel 2000
mais qui plante au niveu du "Split" sur Excel 97
Merci de votre aide
Didier
Function MFC(Rg As Range) As Boolean
Dim Var, I&
Var = Split(Rg.Resize(1, 1), " = ")
For I = 0& To UBound(Var)
If Var(I) < frm_pourcentage_score.Cmb_score Then: MFC = True: Exit
Function
Next I
End Function
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
Clément Marcotte
Bonjour,
Split() est apparu avec Office 2000. Il y a quelques alternatives chez Frédéric:
http://frederic.sigonneau.free.fr
"Didier" a écrit dans le message de news:
Bonjour, j'ai cette procédure qui fonctionne très bien sur Excel 2000 mais qui plante au niveu du "Split" sur Excel 97 Merci de votre aide Didier
Function MFC(Rg As Range) As Boolean Dim Var, I& Var = Split(Rg.Resize(1, 1), " = ") For I = 0& To UBound(Var) If Var(I) < frm_pourcentage_score.Cmb_score Then: MFC True: Exit Function Next I End Function
Bonjour,
Split() est apparu avec Office 2000. Il y a quelques alternatives chez
Frédéric:
http://frederic.sigonneau.free.fr
"Didier" <didi@wanadoo.fr> a écrit dans le message de
news:eQgQsIV3EHA.1260@TK2MSFTNGP12.phx.gbl...
Bonjour,
j'ai cette procédure qui fonctionne très bien sur Excel 2000
mais qui plante au niveu du "Split" sur Excel 97
Merci de votre aide
Didier
Function MFC(Rg As Range) As Boolean
Dim Var, I&
Var = Split(Rg.Resize(1, 1), " = ")
For I = 0& To UBound(Var)
If Var(I) < frm_pourcentage_score.Cmb_score Then: MFC True: Exit
Function
Next I
End Function
Split() est apparu avec Office 2000. Il y a quelques alternatives chez Frédéric:
http://frederic.sigonneau.free.fr
"Didier" a écrit dans le message de news:
Bonjour, j'ai cette procédure qui fonctionne très bien sur Excel 2000 mais qui plante au niveu du "Split" sur Excel 97 Merci de votre aide Didier
Function MFC(Rg As Range) As Boolean Dim Var, I& Var = Split(Rg.Resize(1, 1), " = ") For I = 0& To UBound(Var) If Var(I) < frm_pourcentage_score.Cmb_score Then: MFC True: Exit Function Next I End Function
Didier
Merci
Didier
"Clément Marcotte" a écrit dans le message de news: O%
Bonjour,
Split() est apparu avec Office 2000. Il y a quelques alternatives chez Frédéric:
http://frederic.sigonneau.free.fr
"Didier" a écrit dans le message de news:
Bonjour, j'ai cette procédure qui fonctionne très bien sur Excel 2000 mais qui plante au niveu du "Split" sur Excel 97 Merci de votre aide Didier
Function MFC(Rg As Range) As Boolean Dim Var, I& Var = Split(Rg.Resize(1, 1), " = ") For I = 0& To UBound(Var) If Var(I) < frm_pourcentage_score.Cmb_score Then: MFC > True: Exit Function Next I End Function
Merci
Didier
"Clément Marcotte" <clement.marcotte@sympatico.ca> a écrit dans le message
de news: O%23ywJMV3EHA.1404@TK2MSFTNGP11.phx.gbl...
Bonjour,
Split() est apparu avec Office 2000. Il y a quelques alternatives chez
Frédéric:
http://frederic.sigonneau.free.fr
"Didier" <didi@wanadoo.fr> a écrit dans le message de
news:eQgQsIV3EHA.1260@TK2MSFTNGP12.phx.gbl...
Bonjour,
j'ai cette procédure qui fonctionne très bien sur Excel 2000
mais qui plante au niveu du "Split" sur Excel 97
Merci de votre aide
Didier
Function MFC(Rg As Range) As Boolean
Dim Var, I&
Var = Split(Rg.Resize(1, 1), " = ")
For I = 0& To UBound(Var)
If Var(I) < frm_pourcentage_score.Cmb_score Then: MFC > True: Exit
Function
Next I
End Function
"Clément Marcotte" a écrit dans le message de news: O%
Bonjour,
Split() est apparu avec Office 2000. Il y a quelques alternatives chez Frédéric:
http://frederic.sigonneau.free.fr
"Didier" a écrit dans le message de news:
Bonjour, j'ai cette procédure qui fonctionne très bien sur Excel 2000 mais qui plante au niveu du "Split" sur Excel 97 Merci de votre aide Didier
Function MFC(Rg As Range) As Boolean Dim Var, I& Var = Split(Rg.Resize(1, 1), " = ") For I = 0& To UBound(Var) If Var(I) < frm_pourcentage_score.Cmb_score Then: MFC > True: Exit Function Next I End Function
Starwing
Bonjour ,
La fonction Split a été introduit avec Excel 2000. Il n'y existe pas de fonction Split sur Excel 97.
Mais essaie ce code de Tom Ogilvy pour voir ci cela peut te servir ( Dépendamment de ce que tu essaies de faire )
Public Function Split(ByVal sIn As String, _ Optional ByVal sDelim As String = ",") As Variant 'By Tom Ogilvy, MS Excel MVP Split = Evaluate("{""" & _ Application.Substitute(sIn, sDelim, """,""") & """}") End Function
-- Au plaisir de vous revoir ... Visitez >> http://www.excelabo.net Le merveilleux site de Misange Starwing
-- "Didier" a écrit dans le message de news:
Bonjour, j'ai cette procédure qui fonctionne très bien sur Excel 2000 mais qui plante au niveu du "Split" sur Excel 97 Merci de votre aide Didier
Function MFC(Rg As Range) As Boolean Dim Var, I& Var = Split(Rg.Resize(1, 1), " = ") For I = 0& To UBound(Var) If Var(I) < frm_pourcentage_score.Cmb_score Then: MFC = True: Exit Function Next I End Function
Bonjour ,
La fonction Split a été introduit avec Excel 2000.
Il n'y existe pas de fonction Split sur Excel 97.
Mais essaie ce code de Tom Ogilvy pour voir ci cela peut te servir
( Dépendamment de ce que tu essaies de faire )
Public Function Split(ByVal sIn As String, _
Optional ByVal sDelim As String = ",") As Variant
'By Tom Ogilvy, MS Excel MVP
Split = Evaluate("{""" & _
Application.Substitute(sIn, sDelim, """,""") & """}")
End Function
--
Au plaisir de vous revoir ...
Visitez >> http://www.excelabo.net
Le merveilleux site de Misange
Starwing
brault-lavoieNOSPAM@sympatico.ca
--
"Didier" <didi@wanadoo.fr> a écrit dans le message de
news:eQgQsIV3EHA.1260@TK2MSFTNGP12.phx.gbl...
Bonjour,
j'ai cette procédure qui fonctionne très bien sur Excel 2000
mais qui plante au niveu du "Split" sur Excel 97
Merci de votre aide
Didier
Function MFC(Rg As Range) As Boolean
Dim Var, I&
Var = Split(Rg.Resize(1, 1), " = ")
For I = 0& To UBound(Var)
If Var(I) < frm_pourcentage_score.Cmb_score Then: MFC = True: Exit
Function
Next I
End Function
La fonction Split a été introduit avec Excel 2000. Il n'y existe pas de fonction Split sur Excel 97.
Mais essaie ce code de Tom Ogilvy pour voir ci cela peut te servir ( Dépendamment de ce que tu essaies de faire )
Public Function Split(ByVal sIn As String, _ Optional ByVal sDelim As String = ",") As Variant 'By Tom Ogilvy, MS Excel MVP Split = Evaluate("{""" & _ Application.Substitute(sIn, sDelim, """,""") & """}") End Function
-- Au plaisir de vous revoir ... Visitez >> http://www.excelabo.net Le merveilleux site de Misange Starwing
-- "Didier" a écrit dans le message de news:
Bonjour, j'ai cette procédure qui fonctionne très bien sur Excel 2000 mais qui plante au niveu du "Split" sur Excel 97 Merci de votre aide Didier
Function MFC(Rg As Range) As Boolean Dim Var, I& Var = Split(Rg.Resize(1, 1), " = ") For I = 0& To UBound(Var) If Var(I) < frm_pourcentage_score.Cmb_score Then: MFC = True: Exit Function Next I End Function
Didier
Bonsoir Starwing je te remercie beaucoup pour ta réponse Je vais tester demain (au boulot) et te répond (dans le même fil);-) Bonne soirée A demain Didier
"Starwing" a écrit dans le message de news:
Bonjour ,
La fonction Split a été introduit avec Excel 2000. Il n'y existe pas de fonction Split sur Excel 97.
Mais essaie ce code de Tom Ogilvy pour voir ci cela peut te servir ( Dépendamment de ce que tu essaies de faire )
Public Function Split(ByVal sIn As String, _ Optional ByVal sDelim As String = ",") As Variant 'By Tom Ogilvy, MS Excel MVP Split = Evaluate("{""" & _ Application.Substitute(sIn, sDelim, """,""") & """}") End Function
-- Au plaisir de vous revoir ... Visitez >> http://www.excelabo.net Le merveilleux site de Misange Starwing
-- "Didier" a écrit dans le message de news:
Bonjour, j'ai cette procédure qui fonctionne très bien sur Excel 2000 mais qui plante au niveu du "Split" sur Excel 97 Merci de votre aide Didier
Function MFC(Rg As Range) As Boolean Dim Var, I& Var = Split(Rg.Resize(1, 1), " = ") For I = 0& To UBound(Var) If Var(I) < frm_pourcentage_score.Cmb_score Then: MFC = True: Exit Function Next I End Function
Bonsoir Starwing
je te remercie beaucoup pour ta réponse
Je vais tester demain (au boulot)
et te répond (dans le même fil);-)
Bonne soirée
A demain
Didier
"Starwing" <NoMail@NoMail.Niet> a écrit dans le message de news:
uPhEPOV3EHA.1260@TK2MSFTNGP12.phx.gbl...
Bonjour ,
La fonction Split a été introduit avec Excel 2000.
Il n'y existe pas de fonction Split sur Excel 97.
Mais essaie ce code de Tom Ogilvy pour voir ci cela peut te servir
( Dépendamment de ce que tu essaies de faire )
Public Function Split(ByVal sIn As String, _
Optional ByVal sDelim As String = ",") As Variant
'By Tom Ogilvy, MS Excel MVP
Split = Evaluate("{""" & _
Application.Substitute(sIn, sDelim, """,""") & """}")
End Function
--
Au plaisir de vous revoir ...
Visitez >> http://www.excelabo.net
Le merveilleux site de Misange
Starwing
brault-lavoieNOSPAM@sympatico.ca
--
"Didier" <didi@wanadoo.fr> a écrit dans le message de
news:eQgQsIV3EHA.1260@TK2MSFTNGP12.phx.gbl...
Bonjour,
j'ai cette procédure qui fonctionne très bien sur Excel 2000
mais qui plante au niveu du "Split" sur Excel 97
Merci de votre aide
Didier
Function MFC(Rg As Range) As Boolean
Dim Var, I&
Var = Split(Rg.Resize(1, 1), " = ")
For I = 0& To UBound(Var)
If Var(I) < frm_pourcentage_score.Cmb_score Then: MFC = True:
Exit
Function
Next I
End Function
Bonsoir Starwing je te remercie beaucoup pour ta réponse Je vais tester demain (au boulot) et te répond (dans le même fil);-) Bonne soirée A demain Didier
"Starwing" a écrit dans le message de news:
Bonjour ,
La fonction Split a été introduit avec Excel 2000. Il n'y existe pas de fonction Split sur Excel 97.
Mais essaie ce code de Tom Ogilvy pour voir ci cela peut te servir ( Dépendamment de ce que tu essaies de faire )
Public Function Split(ByVal sIn As String, _ Optional ByVal sDelim As String = ",") As Variant 'By Tom Ogilvy, MS Excel MVP Split = Evaluate("{""" & _ Application.Substitute(sIn, sDelim, """,""") & """}") End Function
-- Au plaisir de vous revoir ... Visitez >> http://www.excelabo.net Le merveilleux site de Misange Starwing
-- "Didier" a écrit dans le message de news:
Bonjour, j'ai cette procédure qui fonctionne très bien sur Excel 2000 mais qui plante au niveu du "Split" sur Excel 97 Merci de votre aide Didier
Function MFC(Rg As Range) As Boolean Dim Var, I& Var = Split(Rg.Resize(1, 1), " = ") For I = 0& To UBound(Var) If Var(I) < frm_pourcentage_score.Cmb_score Then: MFC = True: Exit Function Next I End Function
Didier
Bonsoir Starwing, cela ne fonctionne pas Je cherche Bonne soirée Didier
"Starwing" a écrit dans le message de news:
Bonjour ,
La fonction Split a été introduit avec Excel 2000. Il n'y existe pas de fonction Split sur Excel 97.
Mais essaie ce code de Tom Ogilvy pour voir ci cela peut te servir ( Dépendamment de ce que tu essaies de faire )
Public Function Split(ByVal sIn As String, _ Optional ByVal sDelim As String = ",") As Variant 'By Tom Ogilvy, MS Excel MVP Split = Evaluate("{""" & _ Application.Substitute(sIn, sDelim, """,""") & """}") End Function
-- Au plaisir de vous revoir ... Visitez >> http://www.excelabo.net Le merveilleux site de Misange Starwing
-- "Didier" a écrit dans le message de news:
Bonjour, j'ai cette procédure qui fonctionne très bien sur Excel 2000 mais qui plante au niveu du "Split" sur Excel 97 Merci de votre aide Didier
Function MFC(Rg As Range) As Boolean Dim Var, I& Var = Split(Rg.Resize(1, 1), " = ") For I = 0& To UBound(Var) If Var(I) < frm_pourcentage_score.Cmb_score Then: MFC = True: Exit Function Next I End Function
Bonsoir Starwing, cela ne fonctionne pas
Je cherche
Bonne soirée
Didier
"Starwing" <NoMail@NoMail.Niet> a écrit dans le message de news:
uPhEPOV3EHA.1260@TK2MSFTNGP12.phx.gbl...
Bonjour ,
La fonction Split a été introduit avec Excel 2000.
Il n'y existe pas de fonction Split sur Excel 97.
Mais essaie ce code de Tom Ogilvy pour voir ci cela peut te servir
( Dépendamment de ce que tu essaies de faire )
Public Function Split(ByVal sIn As String, _
Optional ByVal sDelim As String = ",") As Variant
'By Tom Ogilvy, MS Excel MVP
Split = Evaluate("{""" & _
Application.Substitute(sIn, sDelim, """,""") & """}")
End Function
--
Au plaisir de vous revoir ...
Visitez >> http://www.excelabo.net
Le merveilleux site de Misange
Starwing
brault-lavoieNOSPAM@sympatico.ca
--
"Didier" <didi@wanadoo.fr> a écrit dans le message de
news:eQgQsIV3EHA.1260@TK2MSFTNGP12.phx.gbl...
Bonjour,
j'ai cette procédure qui fonctionne très bien sur Excel 2000
mais qui plante au niveu du "Split" sur Excel 97
Merci de votre aide
Didier
Function MFC(Rg As Range) As Boolean
Dim Var, I&
Var = Split(Rg.Resize(1, 1), " = ")
For I = 0& To UBound(Var)
If Var(I) < frm_pourcentage_score.Cmb_score Then: MFC = True:
Exit
Function
Next I
End Function
Bonsoir Starwing, cela ne fonctionne pas Je cherche Bonne soirée Didier
"Starwing" a écrit dans le message de news:
Bonjour ,
La fonction Split a été introduit avec Excel 2000. Il n'y existe pas de fonction Split sur Excel 97.
Mais essaie ce code de Tom Ogilvy pour voir ci cela peut te servir ( Dépendamment de ce que tu essaies de faire )
Public Function Split(ByVal sIn As String, _ Optional ByVal sDelim As String = ",") As Variant 'By Tom Ogilvy, MS Excel MVP Split = Evaluate("{""" & _ Application.Substitute(sIn, sDelim, """,""") & """}") End Function
-- Au plaisir de vous revoir ... Visitez >> http://www.excelabo.net Le merveilleux site de Misange Starwing
-- "Didier" a écrit dans le message de news:
Bonjour, j'ai cette procédure qui fonctionne très bien sur Excel 2000 mais qui plante au niveu du "Split" sur Excel 97 Merci de votre aide Didier
Function MFC(Rg As Range) As Boolean Dim Var, I& Var = Split(Rg.Resize(1, 1), " = ") For I = 0& To UBound(Var) If Var(I) < frm_pourcentage_score.Cmb_score Then: MFC = True: Exit Function Next I End Function
