Bonjour,
j'ai cette proc qui fonctionne très bien sous Excel 2000, mais la fonction
split ne fonctionne pas sous Excel 97
Comment dois-je faire.
Une partie de la proc
Merci pour vos réponses
Michel
Voici une partie de la proc
Liste = Application.InputBox("Enumérez la position du type à effacer," _
& vbNewLine & "puis cliquez sur OK", _
"Effacement d'un type ?")
If Liste = "Faux" Then Exit Sub
If Liste = "" Then Exit Sub
LeTexte = Me.TextBox11
C = Split(LeTexte, ";")
ReDim G(1 To UBound(C) + 1)
For A = 0 To UBound(C)
G(A + 1) = C(A)
Next
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,
Va voir là, il y a des liens vers plusieurs Split() "Home made":
http://frederic.sigonneau.free.fr/Fonctions.htm
"Michel" a écrit dans le message de news:
Bonjour, j'ai cette proc qui fonctionne très bien sous Excel 2000, mais la fonction
split ne fonctionne pas sous Excel 97 Comment dois-je faire. Une partie de la proc Merci pour vos réponses Michel
Voici une partie de la proc
Liste = Application.InputBox("Enumérez la position du type à effacer," _
& vbNewLine & "puis cliquez sur OK", _ "Effacement d'un type ?") If Liste = "Faux" Then Exit Sub If Liste = "" Then Exit Sub LeTexte = Me.TextBox11 C = Split(LeTexte, ";") ReDim G(1 To UBound(C) + 1) For A = 0 To UBound(C) G(A + 1) = C(A) Next
Bonjour,
Va voir là, il y a des liens vers plusieurs Split() "Home made":
http://frederic.sigonneau.free.fr/Fonctions.htm
"Michel" <michel.giara@lavieestbelle.fr> a écrit dans le message de
news:eJ5ZBWo8EHA.2112@TK2MSFTNGP14.phx.gbl...
Bonjour,
j'ai cette proc qui fonctionne très bien sous Excel 2000, mais la
fonction
split ne fonctionne pas sous Excel 97
Comment dois-je faire.
Une partie de la proc
Merci pour vos réponses
Michel
Voici une partie de la proc
Liste = Application.InputBox("Enumérez la position du type à
effacer," _
& vbNewLine & "puis cliquez sur OK", _
"Effacement d'un type ?")
If Liste = "Faux" Then Exit Sub
If Liste = "" Then Exit Sub
LeTexte = Me.TextBox11
C = Split(LeTexte, ";")
ReDim G(1 To UBound(C) + 1)
For A = 0 To UBound(C)
G(A + 1) = C(A)
Next
Va voir là, il y a des liens vers plusieurs Split() "Home made":
http://frederic.sigonneau.free.fr/Fonctions.htm
"Michel" a écrit dans le message de news:
Bonjour, j'ai cette proc qui fonctionne très bien sous Excel 2000, mais la fonction
split ne fonctionne pas sous Excel 97 Comment dois-je faire. Une partie de la proc Merci pour vos réponses Michel
Voici une partie de la proc
Liste = Application.InputBox("Enumérez la position du type à effacer," _
& vbNewLine & "puis cliquez sur OK", _ "Effacement d'un type ?") If Liste = "Faux" Then Exit Sub If Liste = "" Then Exit Sub LeTexte = Me.TextBox11 C = Split(LeTexte, ";") ReDim G(1 To UBound(C) + 1) For A = 0 To UBound(C) G(A + 1) = C(A) Next
Michel
Bonsoir Clément, à vrai dire, je ne comprends pas grand-chose Michel
"Clément Marcotte" a écrit dans le message de news:
Bonjour,
Va voir là, il y a des liens vers plusieurs Split() "Home made":
http://frederic.sigonneau.free.fr/Fonctions.htm
"Michel" a écrit dans le message de news:
Bonjour, j'ai cette proc qui fonctionne très bien sous Excel 2000, mais la fonction
split ne fonctionne pas sous Excel 97 Comment dois-je faire. Une partie de la proc Merci pour vos réponses Michel
Voici une partie de la proc
Liste = Application.InputBox("Enumérez la position du type à effacer," _
& vbNewLine & "puis cliquez sur OK", _ "Effacement d'un type ?") If Liste = "Faux" Then Exit Sub If Liste = "" Then Exit Sub LeTexte = Me.TextBox11 C = Split(LeTexte, ";") ReDim G(1 To UBound(C) + 1) For A = 0 To UBound(C) G(A + 1) = C(A) Next
Bonsoir Clément, à vrai dire, je ne comprends pas grand-chose
Michel
"Clément Marcotte" <clement.marcotte@sympatico.ca> a écrit dans le message
de news: O4xXsuo8EHA.4004@tk2msftngp13.phx.gbl...
Bonjour,
Va voir là, il y a des liens vers plusieurs Split() "Home made":
http://frederic.sigonneau.free.fr/Fonctions.htm
"Michel" <michel.giara@lavieestbelle.fr> a écrit dans le message de
news:eJ5ZBWo8EHA.2112@TK2MSFTNGP14.phx.gbl...
Bonjour,
j'ai cette proc qui fonctionne très bien sous Excel 2000, mais la
fonction
split ne fonctionne pas sous Excel 97
Comment dois-je faire.
Une partie de la proc
Merci pour vos réponses
Michel
Voici une partie de la proc
Liste = Application.InputBox("Enumérez la position du type à
effacer," _
& vbNewLine & "puis cliquez sur OK", _
"Effacement d'un type ?")
If Liste = "Faux" Then Exit Sub
If Liste = "" Then Exit Sub
LeTexte = Me.TextBox11
C = Split(LeTexte, ";")
ReDim G(1 To UBound(C) + 1)
For A = 0 To UBound(C)
G(A + 1) = C(A)
Next
Bonsoir Clément, à vrai dire, je ne comprends pas grand-chose Michel
"Clément Marcotte" a écrit dans le message de news:
Bonjour,
Va voir là, il y a des liens vers plusieurs Split() "Home made":
http://frederic.sigonneau.free.fr/Fonctions.htm
"Michel" a écrit dans le message de news:
Bonjour, j'ai cette proc qui fonctionne très bien sous Excel 2000, mais la fonction
split ne fonctionne pas sous Excel 97 Comment dois-je faire. Une partie de la proc Merci pour vos réponses Michel
Voici une partie de la proc
Liste = Application.InputBox("Enumérez la position du type à effacer," _
& vbNewLine & "puis cliquez sur OK", _ "Effacement d'un type ?") If Liste = "Faux" Then Exit Sub If Liste = "" Then Exit Sub LeTexte = Me.TextBox11 C = Split(LeTexte, ";") ReDim G(1 To UBound(C) + 1) For A = 0 To UBound(C) G(A + 1) = C(A) Next
Clément Marcotte
Bonjour,
Je vais regarder un peu plus tard ce soir chez nous.
"Michel" a écrit dans le message de news:
Bonsoir Clément, à vrai dire, je ne comprends pas grand-chose Michel
"Clément Marcotte" a écrit dans le message
de news:
Bonjour,
Va voir là, il y a des liens vers plusieurs Split() "Home made":
http://frederic.sigonneau.free.fr/Fonctions.htm
"Michel" a écrit dans le message de
news:
Bonjour, j'ai cette proc qui fonctionne très bien sous Excel 2000, mais la fonction
split ne fonctionne pas sous Excel 97 Comment dois-je faire. Une partie de la proc Merci pour vos réponses Michel
Voici une partie de la proc
Liste = Application.InputBox("Enumérez la position du type à effacer," _
& vbNewLine & "puis cliquez sur OK", _ "Effacement d'un type ?") If Liste = "Faux" Then Exit Sub If Liste = "" Then Exit Sub LeTexte = Me.TextBox11 C = Split(LeTexte, ";") ReDim G(1 To UBound(C) + 1) For A = 0 To UBound(C) G(A + 1) = C(A) Next
Bonjour,
Je vais regarder un peu plus tard ce soir chez nous.
"Michel" <michel.giara@lavieestbelle.fr> a écrit dans le message de
news:Olgsqap8EHA.3640@tk2msftngp13.phx.gbl...
Bonsoir Clément, à vrai dire, je ne comprends pas grand-chose
Michel
"Clément Marcotte" <clement.marcotte@sympatico.ca> a écrit dans le
message
de news: O4xXsuo8EHA.4004@tk2msftngp13.phx.gbl...
Bonjour,
Va voir là, il y a des liens vers plusieurs Split() "Home made":
http://frederic.sigonneau.free.fr/Fonctions.htm
"Michel" <michel.giara@lavieestbelle.fr> a écrit dans le message
de
news:eJ5ZBWo8EHA.2112@TK2MSFTNGP14.phx.gbl...
Bonjour,
j'ai cette proc qui fonctionne très bien sous Excel 2000, mais la
fonction
split ne fonctionne pas sous Excel 97
Comment dois-je faire.
Une partie de la proc
Merci pour vos réponses
Michel
Voici une partie de la proc
Liste = Application.InputBox("Enumérez la position du type à
effacer," _
& vbNewLine & "puis cliquez sur OK", _
"Effacement d'un type ?")
If Liste = "Faux" Then Exit Sub
If Liste = "" Then Exit Sub
LeTexte = Me.TextBox11
C = Split(LeTexte, ";")
ReDim G(1 To UBound(C) + 1)
For A = 0 To UBound(C)
G(A + 1) = C(A)
Next
Je vais regarder un peu plus tard ce soir chez nous.
"Michel" a écrit dans le message de news:
Bonsoir Clément, à vrai dire, je ne comprends pas grand-chose Michel
"Clément Marcotte" a écrit dans le message
de news:
Bonjour,
Va voir là, il y a des liens vers plusieurs Split() "Home made":
http://frederic.sigonneau.free.fr/Fonctions.htm
"Michel" a écrit dans le message de
news:
Bonjour, j'ai cette proc qui fonctionne très bien sous Excel 2000, mais la fonction
split ne fonctionne pas sous Excel 97 Comment dois-je faire. Une partie de la proc Merci pour vos réponses Michel
Voici une partie de la proc
Liste = Application.InputBox("Enumérez la position du type à effacer," _
& vbNewLine & "puis cliquez sur OK", _ "Effacement d'un type ?") If Liste = "Faux" Then Exit Sub If Liste = "" Then Exit Sub LeTexte = Me.TextBox11 C = Split(LeTexte, ";") ReDim G(1 To UBound(C) + 1) For A = 0 To UBound(C) G(A + 1) = C(A) Next
Clément Marcotte
Bonjour,
Je suis parti de ton bout de code de la question originale. Tu peux récupérer le classeur avec la macro commentée dans ce coin-là:
http://cjoint.com/?bfenkZthVr
"Michel" a écrit dans le message de news:
Bonsoir Clément, à vrai dire, je ne comprends pas grand-chose Michel
"Clément Marcotte" a écrit dans le message
de news:
Bonjour,
Va voir là, il y a des liens vers plusieurs Split() "Home made":
http://frederic.sigonneau.free.fr/Fonctions.htm
"Michel" a écrit dans le message de
news:
Bonjour, j'ai cette proc qui fonctionne très bien sous Excel 2000, mais la fonction
split ne fonctionne pas sous Excel 97 Comment dois-je faire. Une partie de la proc Merci pour vos réponses Michel
Voici une partie de la proc
Liste = Application.InputBox("Enumérez la position du type à effacer," _
& vbNewLine & "puis cliquez sur OK", _ "Effacement d'un type ?") If Liste = "Faux" Then Exit Sub If Liste = "" Then Exit Sub LeTexte = Me.TextBox11 C = Split(LeTexte, ";") ReDim G(1 To UBound(C) + 1) For A = 0 To UBound(C) G(A + 1) = C(A) Next
Bonjour,
Je suis parti de ton bout de code de la question originale. Tu peux
récupérer le classeur avec la macro commentée dans ce coin-là:
http://cjoint.com/?bfenkZthVr
"Michel" <michel.giara@lavieestbelle.fr> a écrit dans le message de
news:Olgsqap8EHA.3640@tk2msftngp13.phx.gbl...
Bonsoir Clément, à vrai dire, je ne comprends pas grand-chose
Michel
"Clément Marcotte" <clement.marcotte@sympatico.ca> a écrit dans le
message
de news: O4xXsuo8EHA.4004@tk2msftngp13.phx.gbl...
Bonjour,
Va voir là, il y a des liens vers plusieurs Split() "Home made":
http://frederic.sigonneau.free.fr/Fonctions.htm
"Michel" <michel.giara@lavieestbelle.fr> a écrit dans le message
de
news:eJ5ZBWo8EHA.2112@TK2MSFTNGP14.phx.gbl...
Bonjour,
j'ai cette proc qui fonctionne très bien sous Excel 2000, mais la
fonction
split ne fonctionne pas sous Excel 97
Comment dois-je faire.
Une partie de la proc
Merci pour vos réponses
Michel
Voici une partie de la proc
Liste = Application.InputBox("Enumérez la position du type à
effacer," _
& vbNewLine & "puis cliquez sur OK", _
"Effacement d'un type ?")
If Liste = "Faux" Then Exit Sub
If Liste = "" Then Exit Sub
LeTexte = Me.TextBox11
C = Split(LeTexte, ";")
ReDim G(1 To UBound(C) + 1)
For A = 0 To UBound(C)
G(A + 1) = C(A)
Next
Je suis parti de ton bout de code de la question originale. Tu peux récupérer le classeur avec la macro commentée dans ce coin-là:
http://cjoint.com/?bfenkZthVr
"Michel" a écrit dans le message de news:
Bonsoir Clément, à vrai dire, je ne comprends pas grand-chose Michel
"Clément Marcotte" a écrit dans le message
de news:
Bonjour,
Va voir là, il y a des liens vers plusieurs Split() "Home made":
http://frederic.sigonneau.free.fr/Fonctions.htm
"Michel" a écrit dans le message de
news:
Bonjour, j'ai cette proc qui fonctionne très bien sous Excel 2000, mais la fonction
split ne fonctionne pas sous Excel 97 Comment dois-je faire. Une partie de la proc Merci pour vos réponses Michel
Voici une partie de la proc
Liste = Application.InputBox("Enumérez la position du type à effacer," _
& vbNewLine & "puis cliquez sur OK", _ "Effacement d'un type ?") If Liste = "Faux" Then Exit Sub If Liste = "" Then Exit Sub LeTexte = Me.TextBox11 C = Split(LeTexte, ";") ReDim G(1 To UBound(C) + 1) For A = 0 To UBound(C) G(A + 1) = C(A) Next
Michel
Bonsoir Clément Merci beaucoup, je teste demain au boulot, et je te recontacte. Michel
"Clément Marcotte" a écrit dans le message de news: %
Bonjour,
Je suis parti de ton bout de code de la question originale. Tu peux récupérer le classeur avec la macro commentée dans ce coin-là:
http://cjoint.com/?bfenkZthVr
"Michel" a écrit dans le message de news:
Bonsoir Clément, à vrai dire, je ne comprends pas grand-chose Michel
"Clément Marcotte" a écrit dans le message
de news:
Bonjour,
Va voir là, il y a des liens vers plusieurs Split() "Home made":
http://frederic.sigonneau.free.fr/Fonctions.htm
"Michel" a écrit dans le message de
news:
Bonjour, j'ai cette proc qui fonctionne très bien sous Excel 2000, mais la fonction
split ne fonctionne pas sous Excel 97 Comment dois-je faire. Une partie de la proc Merci pour vos réponses Michel
Voici une partie de la proc
Liste = Application.InputBox("Enumérez la position du type à effacer," _
& vbNewLine & "puis cliquez sur OK", _ "Effacement d'un type ?") If Liste = "Faux" Then Exit Sub If Liste = "" Then Exit Sub LeTexte = Me.TextBox11 C = Split(LeTexte, ";") ReDim G(1 To UBound(C) + 1) For A = 0 To UBound(C) G(A + 1) = C(A) Next
Bonsoir Clément
Merci beaucoup, je teste demain au boulot, et je te recontacte.
Michel
"Clément Marcotte" <clement.marcotte@sympatico.ca> a écrit dans le message
de news: %230VqAMt8EHA.3708@TK2MSFTNGP14.phx.gbl...
Bonjour,
Je suis parti de ton bout de code de la question originale. Tu peux
récupérer le classeur avec la macro commentée dans ce coin-là:
http://cjoint.com/?bfenkZthVr
"Michel" <michel.giara@lavieestbelle.fr> a écrit dans le message de
news:Olgsqap8EHA.3640@tk2msftngp13.phx.gbl...
Bonsoir Clément, à vrai dire, je ne comprends pas grand-chose
Michel
"Clément Marcotte" <clement.marcotte@sympatico.ca> a écrit dans le
message
de news: O4xXsuo8EHA.4004@tk2msftngp13.phx.gbl...
Bonjour,
Va voir là, il y a des liens vers plusieurs Split() "Home made":
http://frederic.sigonneau.free.fr/Fonctions.htm
"Michel" <michel.giara@lavieestbelle.fr> a écrit dans le message
de
news:eJ5ZBWo8EHA.2112@TK2MSFTNGP14.phx.gbl...
Bonjour,
j'ai cette proc qui fonctionne très bien sous Excel 2000, mais la
fonction
split ne fonctionne pas sous Excel 97
Comment dois-je faire.
Une partie de la proc
Merci pour vos réponses
Michel
Voici une partie de la proc
Liste = Application.InputBox("Enumérez la position du type à
effacer," _
& vbNewLine & "puis cliquez sur OK", _
"Effacement d'un type ?")
If Liste = "Faux" Then Exit Sub
If Liste = "" Then Exit Sub
LeTexte = Me.TextBox11
C = Split(LeTexte, ";")
ReDim G(1 To UBound(C) + 1)
For A = 0 To UBound(C)
G(A + 1) = C(A)
Next
Bonsoir Clément Merci beaucoup, je teste demain au boulot, et je te recontacte. Michel
"Clément Marcotte" a écrit dans le message de news: %
Bonjour,
Je suis parti de ton bout de code de la question originale. Tu peux récupérer le classeur avec la macro commentée dans ce coin-là:
http://cjoint.com/?bfenkZthVr
"Michel" a écrit dans le message de news:
Bonsoir Clément, à vrai dire, je ne comprends pas grand-chose Michel
"Clément Marcotte" a écrit dans le message
de news:
Bonjour,
Va voir là, il y a des liens vers plusieurs Split() "Home made":
http://frederic.sigonneau.free.fr/Fonctions.htm
"Michel" a écrit dans le message de
news:
Bonjour, j'ai cette proc qui fonctionne très bien sous Excel 2000, mais la fonction
split ne fonctionne pas sous Excel 97 Comment dois-je faire. Une partie de la proc Merci pour vos réponses Michel
Voici une partie de la proc
Liste = Application.InputBox("Enumérez la position du type à effacer," _
& vbNewLine & "puis cliquez sur OK", _ "Effacement d'un type ?") If Liste = "Faux" Then Exit Sub If Liste = "" Then Exit Sub LeTexte = Me.TextBox11 C = Split(LeTexte, ";") ReDim G(1 To UBound(C) + 1) For A = 0 To UBound(C) G(A + 1) = C(A) Next
