Bonjour à tous,
Je dois saisir dans un classeur Excel une liste (assez importante) d'adresse
Email. Il s'avère que les terminaisons @provider se répêtent souvent
La liste qui n'est pas en fait si longue est du genre: @wanadoo.fr @orange.fr
@hotmail.com @hotmail.fr etc...
L'idée serait de faire un clic droit et de choisir dans une liste les
différents provider ou d'avoir une liste flottante ou une combinaison de
touche (du genre crtl1=@wanadoo.fr ctrl2=@orange.fr etc..) qui auto
alimenterait la fin de la cellule saisie en gardant le début déjà saisie.
Est ce que quelqu'un a déjà été confronté a cette problématique ou a souvenir
d'un lien qui me donnerait la solution ?
D'avance merci et bon week-end.
Bonjour à tous,
Je dois saisir dans un classeur Excel une liste (assez importante) d'adresse
Email. Il s'avère que les terminaisons @provider se répêtent souvent
La liste qui n'est pas en fait si longue est du genre: @wanadoo.fr @orange.fr
@hotmail.com @hotmail.fr etc...
L'idée serait de faire un clic droit et de choisir dans une liste les
différents provider ou d'avoir une liste flottante ou une combinaison de
touche (du genre crtl1=@wanadoo.fr ctrl2=@orange.fr etc..) qui auto
alimenterait la fin de la cellule saisie en gardant le début déjà saisie.
Est ce que quelqu'un a déjà été confronté a cette problématique ou a souvenir
d'un lien qui me donnerait la solution ?
D'avance merci et bon week-end.
Bonjour à tous,
Je dois saisir dans un classeur Excel une liste (assez importante) d'adresse
Email. Il s'avère que les terminaisons @provider se répêtent souvent
La liste qui n'est pas en fait si longue est du genre: @wanadoo.fr @orange.fr
@hotmail.com @hotmail.fr etc...
L'idée serait de faire un clic droit et de choisir dans une liste les
différents provider ou d'avoir une liste flottante ou une combinaison de
touche (du genre crtl1=@wanadoo.fr ctrl2=@orange.fr etc..) qui auto
alimenterait la fin de la cellule saisie en gardant le début déjà saisie.
Est ce que quelqu'un a déjà été confronté a cette problématique ou a souvenir
d'un lien qui me donnerait la solution ?
D'avance merci et bon week-end.
Bonjour à tous,
Je dois saisir dans un classeur Excel une liste (assez importante)
d'adresse Email. Il s'avère que les terminaisons @provider se répêtent
souvent
La liste qui n'est pas en fait si longue est du genre: @wanadoo.fr
@orange.fr @hotmail.com @hotmail.fr etc...
L'idée serait de faire un clic droit et de choisir dans une liste les
différents provider ou d'avoir une liste flottante ou une combinaison de
touche (du genre crtl1=@wanadoo.fr ctrl2=@orange.fr etc..) qui auto
alimenterait la fin de la cellule saisie en gardant le début déjà saisie.
Est ce que quelqu'un a déjà été confronté a cette problématique ou a
souvenir d'un lien qui me donnerait la solution ?
D'avance merci et bon week-end.
Bonjour à tous,
Je dois saisir dans un classeur Excel une liste (assez importante)
d'adresse Email. Il s'avère que les terminaisons @provider se répêtent
souvent
La liste qui n'est pas en fait si longue est du genre: @wanadoo.fr
@orange.fr @hotmail.com @hotmail.fr etc...
L'idée serait de faire un clic droit et de choisir dans une liste les
différents provider ou d'avoir une liste flottante ou une combinaison de
touche (du genre crtl1=@wanadoo.fr ctrl2=@orange.fr etc..) qui auto
alimenterait la fin de la cellule saisie en gardant le début déjà saisie.
Est ce que quelqu'un a déjà été confronté a cette problématique ou a
souvenir d'un lien qui me donnerait la solution ?
D'avance merci et bon week-end.
Bonjour à tous,
Je dois saisir dans un classeur Excel une liste (assez importante)
d'adresse Email. Il s'avère que les terminaisons @provider se répêtent
souvent
La liste qui n'est pas en fait si longue est du genre: @wanadoo.fr
@orange.fr @hotmail.com @hotmail.fr etc...
L'idée serait de faire un clic droit et de choisir dans une liste les
différents provider ou d'avoir une liste flottante ou une combinaison de
touche (du genre crtl1=@wanadoo.fr ctrl2=@orange.fr etc..) qui auto
alimenterait la fin de la cellule saisie en gardant le début déjà saisie.
Est ce que quelqu'un a déjà été confronté a cette problématique ou a
souvenir d'un lien qui me donnerait la solution ?
D'avance merci et bon week-end.
Bonjour
Je te propose ceci dans ci joint:
http://cjoint.com/?dnp0hsXmaa
un clic droit sur la cellule à modifier
HasTrouBal
"---DGI972---" <gilles.dermigny@*NO SPAM*laposte.net> a écrit dans le message
de news:Bonjour à tous,
Je dois saisir dans un classeur Excel une liste (assez importante)
d'adresse Email. Il s'avère que les terminaisons @provider se répêtent
souvent
La liste qui n'est pas en fait si longue est du genre: @wanadoo.fr
@orange.fr @hotmail.com @hotmail.fr etc...
L'idée serait de faire un clic droit et de choisir dans une liste les
différents provider ou d'avoir une liste flottante ou une combinaison de
touche (du genre crtl1=@wanadoo.fr ctrl2=@orange.fr etc..) qui auto
alimenterait la fin de la cellule saisie en gardant le début déjà saisie.
Est ce que quelqu'un a déjà été confronté a cette problématique ou a
souvenir d'un lien qui me donnerait la solution ?
D'avance merci et bon week-end.
Bonjour
Je te propose ceci dans ci joint:
http://cjoint.com/?dnp0hsXmaa
un clic droit sur la cellule à modifier
HasTrouBal
"---DGI972---" <gilles.dermigny@*NO SPAM*laposte.net> a écrit dans le message
de news:mn.6a3b7da33d658173.55474@NOSPAMlaposte.net...
Bonjour à tous,
Je dois saisir dans un classeur Excel une liste (assez importante)
d'adresse Email. Il s'avère que les terminaisons @provider se répêtent
souvent
La liste qui n'est pas en fait si longue est du genre: @wanadoo.fr
@orange.fr @hotmail.com @hotmail.fr etc...
L'idée serait de faire un clic droit et de choisir dans une liste les
différents provider ou d'avoir une liste flottante ou une combinaison de
touche (du genre crtl1=@wanadoo.fr ctrl2=@orange.fr etc..) qui auto
alimenterait la fin de la cellule saisie en gardant le début déjà saisie.
Est ce que quelqu'un a déjà été confronté a cette problématique ou a
souvenir d'un lien qui me donnerait la solution ?
D'avance merci et bon week-end.
Bonjour
Je te propose ceci dans ci joint:
http://cjoint.com/?dnp0hsXmaa
un clic droit sur la cellule à modifier
HasTrouBal
"---DGI972---" <gilles.dermigny@*NO SPAM*laposte.net> a écrit dans le message
de news:Bonjour à tous,
Je dois saisir dans un classeur Excel une liste (assez importante)
d'adresse Email. Il s'avère que les terminaisons @provider se répêtent
souvent
La liste qui n'est pas en fait si longue est du genre: @wanadoo.fr
@orange.fr @hotmail.com @hotmail.fr etc...
L'idée serait de faire un clic droit et de choisir dans une liste les
différents provider ou d'avoir une liste flottante ou une combinaison de
touche (du genre crtl1=@wanadoo.fr ctrl2=@orange.fr etc..) qui auto
alimenterait la fin de la cellule saisie en gardant le début déjà saisie.
Est ce que quelqu'un a déjà été confronté a cette problématique ou a
souvenir d'un lien qui me donnerait la solution ?
D'avance merci et bon week-end.
HasTrouBal avait énoncé :Bonjour
Je te propose ceci dans ci joint:
http://cjoint.com/?dnp0hsXmaa
un clic droit sur la cellule à modifier
HasTrouBal
"---DGI972---" <gilles.dermigny@*NO SPAM*laposte.net> a écrit dans le
message de news:Bonjour à tous,
Je dois saisir dans un classeur Excel une liste (assez importante)
d'adresse Email. Il s'avère que les terminaisons @provider se répêtent
souvent
La liste qui n'est pas en fait si longue est du genre: @wanadoo.fr
@orange.fr @hotmail.com @hotmail.fr etc...
L'idée serait de faire un clic droit et de choisir dans une liste les
différents provider ou d'avoir une liste flottante ou une combinaison de
touche (du genre crtl1=@wanadoo.fr ctrl2=@orange.fr etc..) qui auto
alimenterait la fin de la cellule saisie en gardant le début déjà
saisie.
Est ce que quelqu'un a déjà été confronté a cette problématique ou a
souvenir d'un lien qui me donnerait la solution ?
D'avance merci et bon week-end.
merci cela correspond à ma demande.
HasTrouBal avait énoncé :
Bonjour
Je te propose ceci dans ci joint:
http://cjoint.com/?dnp0hsXmaa
un clic droit sur la cellule à modifier
HasTrouBal
"---DGI972---" <gilles.dermigny@*NO SPAM*laposte.net> a écrit dans le
message de news:mn.6a3b7da33d658173.55474@NOSPAMlaposte.net...
Bonjour à tous,
Je dois saisir dans un classeur Excel une liste (assez importante)
d'adresse Email. Il s'avère que les terminaisons @provider se répêtent
souvent
La liste qui n'est pas en fait si longue est du genre: @wanadoo.fr
@orange.fr @hotmail.com @hotmail.fr etc...
L'idée serait de faire un clic droit et de choisir dans une liste les
différents provider ou d'avoir une liste flottante ou une combinaison de
touche (du genre crtl1=@wanadoo.fr ctrl2=@orange.fr etc..) qui auto
alimenterait la fin de la cellule saisie en gardant le début déjà
saisie.
Est ce que quelqu'un a déjà été confronté a cette problématique ou a
souvenir d'un lien qui me donnerait la solution ?
D'avance merci et bon week-end.
merci cela correspond à ma demande.
HasTrouBal avait énoncé :Bonjour
Je te propose ceci dans ci joint:
http://cjoint.com/?dnp0hsXmaa
un clic droit sur la cellule à modifier
HasTrouBal
"---DGI972---" <gilles.dermigny@*NO SPAM*laposte.net> a écrit dans le
message de news:Bonjour à tous,
Je dois saisir dans un classeur Excel une liste (assez importante)
d'adresse Email. Il s'avère que les terminaisons @provider se répêtent
souvent
La liste qui n'est pas en fait si longue est du genre: @wanadoo.fr
@orange.fr @hotmail.com @hotmail.fr etc...
L'idée serait de faire un clic droit et de choisir dans une liste les
différents provider ou d'avoir une liste flottante ou une combinaison de
touche (du genre crtl1=@wanadoo.fr ctrl2=@orange.fr etc..) qui auto
alimenterait la fin de la cellule saisie en gardant le début déjà
saisie.
Est ce que quelqu'un a déjà été confronté a cette problématique ou a
souvenir d'un lien qui me donnerait la solution ?
D'avance merci et bon week-end.
merci cela correspond à ma demande.
En cas d'erreur de choix il vaut mieux changer
Private Sub ListBox1_Click()
Dim YaAt
If Not IsEmpty(ActiveCell) Then
YaAt = InStr(ActiveCell, "@") - 1
If YaAt = 0 Then YaAt = Len(ActiveCell)
ActiveCell = Left(ActiveCell, YaAt) & ListBox1
End If
UserForm1.Hide
End Sub
HasTrouBal
"---DGI972---" <gilles.dermigny@*NO SPAM*laposte.net> a écrit dans le
message de news:HasTrouBal avait énoncé :Bonjour
Je te propose ceci dans ci joint:
http://cjoint.com/?dnp0hsXmaa
un clic droit sur la cellule à modifier
HasTrouBal
"---DGI972---" <gilles.dermigny@*NO SPAM*laposte.net> a écrit dans le
message de news:Bonjour à tous,
Je dois saisir dans un classeur Excel une liste (assez importante)
d'adresse Email. Il s'avère que les terminaisons @provider se répêtent
souvent
La liste qui n'est pas en fait si longue est du genre: @wanadoo.fr
@orange.fr @hotmail.com @hotmail.fr etc...
L'idée serait de faire un clic droit et de choisir dans une liste les
différents provider ou d'avoir une liste flottante ou une combinaison
de touche (du genre crtl1=@wanadoo.fr ctrl2=@orange.fr etc..) qui auto
alimenterait la fin de la cellule saisie en gardant le début déjà
saisie.
Est ce que quelqu'un a déjà été confronté a cette problématique ou a
souvenir d'un lien qui me donnerait la solution ?
D'avance merci et bon week-end.
merci cela correspond à ma demande.
En cas d'erreur de choix il vaut mieux changer
Private Sub ListBox1_Click()
Dim YaAt
If Not IsEmpty(ActiveCell) Then
YaAt = InStr(ActiveCell, "@") - 1
If YaAt = 0 Then YaAt = Len(ActiveCell)
ActiveCell = Left(ActiveCell, YaAt) & ListBox1
End If
UserForm1.Hide
End Sub
HasTrouBal
"---DGI972---" <gilles.dermigny@*NO SPAM*laposte.net> a écrit dans le
message de news:mn.6aa37da3a6b34a46.55474@NOSPAMlaposte.net...
HasTrouBal avait énoncé :
Bonjour
Je te propose ceci dans ci joint:
http://cjoint.com/?dnp0hsXmaa
un clic droit sur la cellule à modifier
HasTrouBal
"---DGI972---" <gilles.dermigny@*NO SPAM*laposte.net> a écrit dans le
message de news:mn.6a3b7da33d658173.55474@NOSPAMlaposte.net...
Bonjour à tous,
Je dois saisir dans un classeur Excel une liste (assez importante)
d'adresse Email. Il s'avère que les terminaisons @provider se répêtent
souvent
La liste qui n'est pas en fait si longue est du genre: @wanadoo.fr
@orange.fr @hotmail.com @hotmail.fr etc...
L'idée serait de faire un clic droit et de choisir dans une liste les
différents provider ou d'avoir une liste flottante ou une combinaison
de touche (du genre crtl1=@wanadoo.fr ctrl2=@orange.fr etc..) qui auto
alimenterait la fin de la cellule saisie en gardant le début déjà
saisie.
Est ce que quelqu'un a déjà été confronté a cette problématique ou a
souvenir d'un lien qui me donnerait la solution ?
D'avance merci et bon week-end.
merci cela correspond à ma demande.
En cas d'erreur de choix il vaut mieux changer
Private Sub ListBox1_Click()
Dim YaAt
If Not IsEmpty(ActiveCell) Then
YaAt = InStr(ActiveCell, "@") - 1
If YaAt = 0 Then YaAt = Len(ActiveCell)
ActiveCell = Left(ActiveCell, YaAt) & ListBox1
End If
UserForm1.Hide
End Sub
HasTrouBal
"---DGI972---" <gilles.dermigny@*NO SPAM*laposte.net> a écrit dans le
message de news:HasTrouBal avait énoncé :Bonjour
Je te propose ceci dans ci joint:
http://cjoint.com/?dnp0hsXmaa
un clic droit sur la cellule à modifier
HasTrouBal
"---DGI972---" <gilles.dermigny@*NO SPAM*laposte.net> a écrit dans le
message de news:Bonjour à tous,
Je dois saisir dans un classeur Excel une liste (assez importante)
d'adresse Email. Il s'avère que les terminaisons @provider se répêtent
souvent
La liste qui n'est pas en fait si longue est du genre: @wanadoo.fr
@orange.fr @hotmail.com @hotmail.fr etc...
L'idée serait de faire un clic droit et de choisir dans une liste les
différents provider ou d'avoir une liste flottante ou une combinaison
de touche (du genre crtl1=@wanadoo.fr ctrl2=@orange.fr etc..) qui auto
alimenterait la fin de la cellule saisie en gardant le début déjà
saisie.
Est ce que quelqu'un a déjà été confronté a cette problématique ou a
souvenir d'un lien qui me donnerait la solution ?
D'avance merci et bon week-end.
merci cela correspond à ma demande.
Aïe!!!!!!!!!
Errare hum!! anom est
YaAt = InStr(ActiveCell , "@") - 1
à remplacer par:
YaAt = InStr(ActiveCell & "@", "@") - 1
HasTrouBal
"HasTrouBal" a écrit dans le message de
news:En cas d'erreur de choix il vaut mieux changer
Private Sub ListBox1_Click()
Dim YaAt
If Not IsEmpty(ActiveCell) Then
YaAt = InStr(ActiveCell, "@") - 1
If YaAt = 0 Then YaAt = Len(ActiveCell)
ActiveCell = Left(ActiveCell, YaAt) & ListBox1
End If
UserForm1.Hide
End Sub
HasTrouBal
"---DGI972---" <gilles.dermigny@*NO SPAM*laposte.net> a écrit dans le
message de news:HasTrouBal avait énoncé :Bonjour
Je te propose ceci dans ci joint:
http://cjoint.com/?dnp0hsXmaa
un clic droit sur la cellule à modifier
HasTrouBal
"---DGI972---" <gilles.dermigny@*NO SPAM*laposte.net> a écrit dans le
message de news:Bonjour à tous,
Je dois saisir dans un classeur Excel une liste (assez importante)
d'adresse Email. Il s'avère que les terminaisons @provider se répêtent
souvent
La liste qui n'est pas en fait si longue est du genre: @wanadoo.fr
@orange.fr @hotmail.com @hotmail.fr etc...
L'idée serait de faire un clic droit et de choisir dans une liste les
différents provider ou d'avoir une liste flottante ou une combinaison de
touche (du genre crtl1=@wanadoo.fr ctrl2=@orange.fr etc..) qui auto
alimenterait la fin de la cellule saisie en gardant le début déjà
saisie.
Est ce que quelqu'un a déjà été confronté a cette problématique ou a
souvenir d'un lien qui me donnerait la solution ?
D'avance merci et bon week-end.
merci cela correspond à ma demande.
Aïe!!!!!!!!!
Errare hum!! anom est
YaAt = InStr(ActiveCell , "@") - 1
à remplacer par:
YaAt = InStr(ActiveCell & "@", "@") - 1
HasTrouBal
"HasTrouBal" <AnswRToIdfiot@free.fr> a écrit dans le message de
news:O0BkAHswKHA.404@TK2MSFTNGP02.phx.gbl...
En cas d'erreur de choix il vaut mieux changer
Private Sub ListBox1_Click()
Dim YaAt
If Not IsEmpty(ActiveCell) Then
YaAt = InStr(ActiveCell, "@") - 1
If YaAt = 0 Then YaAt = Len(ActiveCell)
ActiveCell = Left(ActiveCell, YaAt) & ListBox1
End If
UserForm1.Hide
End Sub
HasTrouBal
"---DGI972---" <gilles.dermigny@*NO SPAM*laposte.net> a écrit dans le
message de news:mn.6aa37da3a6b34a46.55474@NOSPAMlaposte.net...
HasTrouBal avait énoncé :
Bonjour
Je te propose ceci dans ci joint:
http://cjoint.com/?dnp0hsXmaa
un clic droit sur la cellule à modifier
HasTrouBal
"---DGI972---" <gilles.dermigny@*NO SPAM*laposte.net> a écrit dans le
message de news:mn.6a3b7da33d658173.55474@NOSPAMlaposte.net...
Bonjour à tous,
Je dois saisir dans un classeur Excel une liste (assez importante)
d'adresse Email. Il s'avère que les terminaisons @provider se répêtent
souvent
La liste qui n'est pas en fait si longue est du genre: @wanadoo.fr
@orange.fr @hotmail.com @hotmail.fr etc...
L'idée serait de faire un clic droit et de choisir dans une liste les
différents provider ou d'avoir une liste flottante ou une combinaison de
touche (du genre crtl1=@wanadoo.fr ctrl2=@orange.fr etc..) qui auto
alimenterait la fin de la cellule saisie en gardant le début déjà
saisie.
Est ce que quelqu'un a déjà été confronté a cette problématique ou a
souvenir d'un lien qui me donnerait la solution ?
D'avance merci et bon week-end.
merci cela correspond à ma demande.
Aïe!!!!!!!!!
Errare hum!! anom est
YaAt = InStr(ActiveCell , "@") - 1
à remplacer par:
YaAt = InStr(ActiveCell & "@", "@") - 1
HasTrouBal
"HasTrouBal" a écrit dans le message de
news:En cas d'erreur de choix il vaut mieux changer
Private Sub ListBox1_Click()
Dim YaAt
If Not IsEmpty(ActiveCell) Then
YaAt = InStr(ActiveCell, "@") - 1
If YaAt = 0 Then YaAt = Len(ActiveCell)
ActiveCell = Left(ActiveCell, YaAt) & ListBox1
End If
UserForm1.Hide
End Sub
HasTrouBal
"---DGI972---" <gilles.dermigny@*NO SPAM*laposte.net> a écrit dans le
message de news:HasTrouBal avait énoncé :Bonjour
Je te propose ceci dans ci joint:
http://cjoint.com/?dnp0hsXmaa
un clic droit sur la cellule à modifier
HasTrouBal
"---DGI972---" <gilles.dermigny@*NO SPAM*laposte.net> a écrit dans le
message de news:Bonjour à tous,
Je dois saisir dans un classeur Excel une liste (assez importante)
d'adresse Email. Il s'avère que les terminaisons @provider se répêtent
souvent
La liste qui n'est pas en fait si longue est du genre: @wanadoo.fr
@orange.fr @hotmail.com @hotmail.fr etc...
L'idée serait de faire un clic droit et de choisir dans une liste les
différents provider ou d'avoir une liste flottante ou une combinaison de
touche (du genre crtl1=@wanadoo.fr ctrl2=@orange.fr etc..) qui auto
alimenterait la fin de la cellule saisie en gardant le début déjà
saisie.
Est ce que quelqu'un a déjà été confronté a cette problématique ou a
souvenir d'un lien qui me donnerait la solution ?
D'avance merci et bon week-end.
merci cela correspond à ma demande.
Le 13/03/2010, HasTrouBal a supposé :Aïe!!!!!!!!!
Errare hum!! anom est
YaAt = InStr(ActiveCell , "@") - 1
à remplacer par:
YaAt = InStr(ActiveCell & "@", "@") - 1
HasTrouBal
"HasTrouBal" a écrit dans le message de
news:En cas d'erreur de choix il vaut mieux changer
Private Sub ListBox1_Click()
Dim YaAt
If Not IsEmpty(ActiveCell) Then
YaAt = InStr(ActiveCell, "@") - 1
If YaAt = 0 Then YaAt = Len(ActiveCell)
ActiveCell = Left(ActiveCell, YaAt) & ListBox1
End If
UserForm1.Hide
End Sub
HasTrouBal
"---DGI972---" <gilles.dermigny@*NO SPAM*laposte.net> a écrit dans le
message de news:HasTrouBal avait énoncé :Bonjour
Je te propose ceci dans ci joint:
http://cjoint.com/?dnp0hsXmaa
un clic droit sur la cellule à modifier
HasTrouBal
"---DGI972---" <gilles.dermigny@*NO SPAM*laposte.net> a écrit dans le
message de news:Bonjour à tous,
Je dois saisir dans un classeur Excel une liste (assez importante)
d'adresse Email. Il s'avère que les terminaisons @provider se répêtent
souvent
La liste qui n'est pas en fait si longue est du genre: @wanadoo.fr
@orange.fr @hotmail.com @hotmail.fr etc...
L'idée serait de faire un clic droit et de choisir dans une liste les
différents provider ou d'avoir une liste flottante ou une combinaison
de touche (du genre crtl1=@wanadoo.fr ctrl2=@orange.fr etc..) qui auto
alimenterait la fin de la cellule saisie en gardant le début déjà
saisie.
Est ce que quelqu'un a déjà été confronté a cette problématique ou a
souvenir d'un lien qui me donnerait la solution ?
D'avance merci et bon week-end.
merci cela correspond à ma demande.
J'essaye tous cela.
J'adapte votre userform1 a ma feuille existante (j'ai des notion en vbs mais
pas en vba) et je vous fait un feedback.
Merci encore.
Le 13/03/2010, HasTrouBal a supposé :
Aïe!!!!!!!!!
Errare hum!! anom est
YaAt = InStr(ActiveCell , "@") - 1
à remplacer par:
YaAt = InStr(ActiveCell & "@", "@") - 1
HasTrouBal
"HasTrouBal" <AnswRToIdfiot@free.fr> a écrit dans le message de
news:O0BkAHswKHA.404@TK2MSFTNGP02.phx.gbl...
En cas d'erreur de choix il vaut mieux changer
Private Sub ListBox1_Click()
Dim YaAt
If Not IsEmpty(ActiveCell) Then
YaAt = InStr(ActiveCell, "@") - 1
If YaAt = 0 Then YaAt = Len(ActiveCell)
ActiveCell = Left(ActiveCell, YaAt) & ListBox1
End If
UserForm1.Hide
End Sub
HasTrouBal
"---DGI972---" <gilles.dermigny@*NO SPAM*laposte.net> a écrit dans le
message de news:mn.6aa37da3a6b34a46.55474@NOSPAMlaposte.net...
HasTrouBal avait énoncé :
Bonjour
Je te propose ceci dans ci joint:
http://cjoint.com/?dnp0hsXmaa
un clic droit sur la cellule à modifier
HasTrouBal
"---DGI972---" <gilles.dermigny@*NO SPAM*laposte.net> a écrit dans le
message de news:mn.6a3b7da33d658173.55474@NOSPAMlaposte.net...
Bonjour à tous,
Je dois saisir dans un classeur Excel une liste (assez importante)
d'adresse Email. Il s'avère que les terminaisons @provider se répêtent
souvent
La liste qui n'est pas en fait si longue est du genre: @wanadoo.fr
@orange.fr @hotmail.com @hotmail.fr etc...
L'idée serait de faire un clic droit et de choisir dans une liste les
différents provider ou d'avoir une liste flottante ou une combinaison
de touche (du genre crtl1=@wanadoo.fr ctrl2=@orange.fr etc..) qui auto
alimenterait la fin de la cellule saisie en gardant le début déjà
saisie.
Est ce que quelqu'un a déjà été confronté a cette problématique ou a
souvenir d'un lien qui me donnerait la solution ?
D'avance merci et bon week-end.
merci cela correspond à ma demande.
J'essaye tous cela.
J'adapte votre userform1 a ma feuille existante (j'ai des notion en vbs mais
pas en vba) et je vous fait un feedback.
Merci encore.
Le 13/03/2010, HasTrouBal a supposé :Aïe!!!!!!!!!
Errare hum!! anom est
YaAt = InStr(ActiveCell , "@") - 1
à remplacer par:
YaAt = InStr(ActiveCell & "@", "@") - 1
HasTrouBal
"HasTrouBal" a écrit dans le message de
news:En cas d'erreur de choix il vaut mieux changer
Private Sub ListBox1_Click()
Dim YaAt
If Not IsEmpty(ActiveCell) Then
YaAt = InStr(ActiveCell, "@") - 1
If YaAt = 0 Then YaAt = Len(ActiveCell)
ActiveCell = Left(ActiveCell, YaAt) & ListBox1
End If
UserForm1.Hide
End Sub
HasTrouBal
"---DGI972---" <gilles.dermigny@*NO SPAM*laposte.net> a écrit dans le
message de news:HasTrouBal avait énoncé :Bonjour
Je te propose ceci dans ci joint:
http://cjoint.com/?dnp0hsXmaa
un clic droit sur la cellule à modifier
HasTrouBal
"---DGI972---" <gilles.dermigny@*NO SPAM*laposte.net> a écrit dans le
message de news:Bonjour à tous,
Je dois saisir dans un classeur Excel une liste (assez importante)
d'adresse Email. Il s'avère que les terminaisons @provider se répêtent
souvent
La liste qui n'est pas en fait si longue est du genre: @wanadoo.fr
@orange.fr @hotmail.com @hotmail.fr etc...
L'idée serait de faire un clic droit et de choisir dans une liste les
différents provider ou d'avoir une liste flottante ou une combinaison
de touche (du genre crtl1=@wanadoo.fr ctrl2=@orange.fr etc..) qui auto
alimenterait la fin de la cellule saisie en gardant le début déjà
saisie.
Est ce que quelqu'un a déjà été confronté a cette problématique ou a
souvenir d'un lien qui me donnerait la solution ?
D'avance merci et bon week-end.
merci cela correspond à ma demande.
J'essaye tous cela.
J'adapte votre userform1 a ma feuille existante (j'ai des notion en vbs mais
pas en vba) et je vous fait un feedback.
Merci encore.