Bonjour à tous et à toutes,
Un fichier Excel 2000 avec une colonne contenant noms et numéros de
département.
Des milliers de cellules !
PAUL TALBOT 3456
LISE LATRIMOUILLE 3455
ALAIN GIROUX 2366
Je souhaite supprimer le numéro de département et les espaces après le
nom.
Merci beaucoup de votre aide,
Céline
Bonjour à tous et à toutes,
Un fichier Excel 2000 avec une colonne contenant noms et numéros de
département.
Des milliers de cellules !
PAUL TALBOT 3456
LISE LATRIMOUILLE 3455
ALAIN GIROUX 2366
Je souhaite supprimer le numéro de département et les espaces après le
nom.
Merci beaucoup de votre aide,
Céline
Bonjour à tous et à toutes,
Un fichier Excel 2000 avec une colonne contenant noms et numéros de
département.
Des milliers de cellules !
PAUL TALBOT 3456
LISE LATRIMOUILLE 3455
ALAIN GIROUX 2366
Je souhaite supprimer le numéro de département et les espaces après le
nom.
Merci beaucoup de votre aide,
Céline
Bonjour Céline,
Sur la plage de cellules sélectionnée...
Sub extracTxt()
Dim c As Range, txT As String, i As Integer
Application.ScreenUpdating = False
For Each c In Selection
txT = ""
For i = 1 To Len(c)
If Not IsNumeric(Mid(c, i, 1)) = True Then _
txT = txT & Mid(c, i, 1)
Next i
c.Value = Application.Trim(txT)
Next c
End Sub
ChrisV
"Céline Brien" a écrit dans le message
de
news:Bonjour à tous et à toutes,
Un fichier Excel 2000 avec une colonne contenant noms et numéros de
département.
Des milliers de cellules !
PAUL TALBOT 3456
LISE LATRIMOUILLE 3455
ALAIN GIROUX 2366
Je souhaite supprimer le numéro de département et les espaces après
le
nom.
Merci beaucoup de votre aide,
Céline
Bonjour Céline,
Sur la plage de cellules sélectionnée...
Sub extracTxt()
Dim c As Range, txT As String, i As Integer
Application.ScreenUpdating = False
For Each c In Selection
txT = ""
For i = 1 To Len(c)
If Not IsNumeric(Mid(c, i, 1)) = True Then _
txT = txT & Mid(c, i, 1)
Next i
c.Value = Application.Trim(txT)
Next c
End Sub
ChrisV
"Céline Brien" <celinebrien@laurentides.qc.ca> a écrit dans le message
de
news: uK3mUFd7DHA.2168@TK2MSFTNGP12.phx.gbl...
Bonjour à tous et à toutes,
Un fichier Excel 2000 avec une colonne contenant noms et numéros de
département.
Des milliers de cellules !
PAUL TALBOT 3456
LISE LATRIMOUILLE 3455
ALAIN GIROUX 2366
Je souhaite supprimer le numéro de département et les espaces après
le
nom.
Merci beaucoup de votre aide,
Céline
Bonjour Céline,
Sur la plage de cellules sélectionnée...
Sub extracTxt()
Dim c As Range, txT As String, i As Integer
Application.ScreenUpdating = False
For Each c In Selection
txT = ""
For i = 1 To Len(c)
If Not IsNumeric(Mid(c, i, 1)) = True Then _
txT = txT & Mid(c, i, 1)
Next i
c.Value = Application.Trim(txT)
Next c
End Sub
ChrisV
"Céline Brien" a écrit dans le message
de
news:Bonjour à tous et à toutes,
Un fichier Excel 2000 avec une colonne contenant noms et numéros de
département.
Des milliers de cellules !
PAUL TALBOT 3456
LISE LATRIMOUILLE 3455
ALAIN GIROUX 2366
Je souhaite supprimer le numéro de département et les espaces après
le
nom.
Merci beaucoup de votre aide,
Céline
Bonjour Chris,
Super ! Exactement ce qu'il me fallait ! De la vraie magie !
Assez rapide aussi. Environ 12 secondes pour plus de 7 000 cellules.
Il me reste à étudier les codes pour les comprendre.
Merci beaucoup,
Céline
"ChrisV" a écrit dans le message de
news:Bonjour Céline,
Sur la plage de cellules sélectionnée...
Sub extracTxt()
Dim c As Range, txT As String, i As Integer
Application.ScreenUpdating = False
For Each c In Selection
txT = ""
For i = 1 To Len(c)
If Not IsNumeric(Mid(c, i, 1)) = True Then _
txT = txT & Mid(c, i, 1)
Next i
c.Value = Application.Trim(txT)
Next c
End Sub
ChrisV
"Céline Brien" a écrit dans le message
denews:Bonjour à tous et à toutes,
Un fichier Excel 2000 avec une colonne contenant noms et numéros de
département.
Des milliers de cellules !
PAUL TALBOT 3456
LISE LATRIMOUILLE 3455
ALAIN GIROUX 2366
Je souhaite supprimer le numéro de département et les espaces après
lenom.
Merci beaucoup de votre aide,
Céline
Bonjour Chris,
Super ! Exactement ce qu'il me fallait ! De la vraie magie !
Assez rapide aussi. Environ 12 secondes pour plus de 7 000 cellules.
Il me reste à étudier les codes pour les comprendre.
Merci beaucoup,
Céline
"ChrisV" <chrisve@wanadoo.fr> a écrit dans le message de
news:exJCOOd7DHA.2628@TK2MSFTNGP10.phx.gbl...
Bonjour Céline,
Sur la plage de cellules sélectionnée...
Sub extracTxt()
Dim c As Range, txT As String, i As Integer
Application.ScreenUpdating = False
For Each c In Selection
txT = ""
For i = 1 To Len(c)
If Not IsNumeric(Mid(c, i, 1)) = True Then _
txT = txT & Mid(c, i, 1)
Next i
c.Value = Application.Trim(txT)
Next c
End Sub
ChrisV
"Céline Brien" <celinebrien@laurentides.qc.ca> a écrit dans le message
de
news: uK3mUFd7DHA.2168@TK2MSFTNGP12.phx.gbl...
Bonjour à tous et à toutes,
Un fichier Excel 2000 avec une colonne contenant noms et numéros de
département.
Des milliers de cellules !
PAUL TALBOT 3456
LISE LATRIMOUILLE 3455
ALAIN GIROUX 2366
Je souhaite supprimer le numéro de département et les espaces après
le
nom.
Merci beaucoup de votre aide,
Céline
Bonjour Chris,
Super ! Exactement ce qu'il me fallait ! De la vraie magie !
Assez rapide aussi. Environ 12 secondes pour plus de 7 000 cellules.
Il me reste à étudier les codes pour les comprendre.
Merci beaucoup,
Céline
"ChrisV" a écrit dans le message de
news:Bonjour Céline,
Sur la plage de cellules sélectionnée...
Sub extracTxt()
Dim c As Range, txT As String, i As Integer
Application.ScreenUpdating = False
For Each c In Selection
txT = ""
For i = 1 To Len(c)
If Not IsNumeric(Mid(c, i, 1)) = True Then _
txT = txT & Mid(c, i, 1)
Next i
c.Value = Application.Trim(txT)
Next c
End Sub
ChrisV
"Céline Brien" a écrit dans le message
denews:Bonjour à tous et à toutes,
Un fichier Excel 2000 avec une colonne contenant noms et numéros de
département.
Des milliers de cellules !
PAUL TALBOT 3456
LISE LATRIMOUILLE 3455
ALAIN GIROUX 2366
Je souhaite supprimer le numéro de département et les espaces après
lenom.
Merci beaucoup de votre aide,
Céline
Bonjour Chris,
Super ! Exactement ce qu'il me fallait ! De la vraie magie !
Assez rapide aussi. Environ 12 secondes pour plus de 7 000 cellules.
Il me reste à étudier les codes pour les comprendre.
Merci beaucoup,
Céline
"ChrisV" a écrit dans le message de
news:Bonjour Céline,
Sur la plage de cellules sélectionnée...
Sub extracTxt()
Dim c As Range, txT As String, i As Integer
Application.ScreenUpdating = False
For Each c In Selection
txT = ""
For i = 1 To Len(c)
If Not IsNumeric(Mid(c, i, 1)) = True Then _
txT = txT & Mid(c, i, 1)
Next i
c.Value = Application.Trim(txT)
Next c
End Sub
ChrisV
"Céline Brien" a écrit dans le message
denews:Bonjour à tous et à toutes,
Un fichier Excel 2000 avec une colonne contenant noms et numéros de
département.
Des milliers de cellules !
PAUL TALBOT 3456
LISE LATRIMOUILLE 3455
ALAIN GIROUX 2366
Je souhaite supprimer le numéro de département et les espaces après
lenom.
Merci beaucoup de votre aide,
Céline
Bonjour Chris,
Super ! Exactement ce qu'il me fallait ! De la vraie magie !
Assez rapide aussi. Environ 12 secondes pour plus de 7 000 cellules.
Il me reste à étudier les codes pour les comprendre.
Merci beaucoup,
Céline
"ChrisV" <chrisve@wanadoo.fr> a écrit dans le message de
news:exJCOOd7DHA.2628@TK2MSFTNGP10.phx.gbl...
Bonjour Céline,
Sur la plage de cellules sélectionnée...
Sub extracTxt()
Dim c As Range, txT As String, i As Integer
Application.ScreenUpdating = False
For Each c In Selection
txT = ""
For i = 1 To Len(c)
If Not IsNumeric(Mid(c, i, 1)) = True Then _
txT = txT & Mid(c, i, 1)
Next i
c.Value = Application.Trim(txT)
Next c
End Sub
ChrisV
"Céline Brien" <celinebrien@laurentides.qc.ca> a écrit dans le message
de
news: uK3mUFd7DHA.2168@TK2MSFTNGP12.phx.gbl...
Bonjour à tous et à toutes,
Un fichier Excel 2000 avec une colonne contenant noms et numéros de
département.
Des milliers de cellules !
PAUL TALBOT 3456
LISE LATRIMOUILLE 3455
ALAIN GIROUX 2366
Je souhaite supprimer le numéro de département et les espaces après
le
nom.
Merci beaucoup de votre aide,
Céline
Bonjour Chris,
Super ! Exactement ce qu'il me fallait ! De la vraie magie !
Assez rapide aussi. Environ 12 secondes pour plus de 7 000 cellules.
Il me reste à étudier les codes pour les comprendre.
Merci beaucoup,
Céline
"ChrisV" a écrit dans le message de
news:Bonjour Céline,
Sur la plage de cellules sélectionnée...
Sub extracTxt()
Dim c As Range, txT As String, i As Integer
Application.ScreenUpdating = False
For Each c In Selection
txT = ""
For i = 1 To Len(c)
If Not IsNumeric(Mid(c, i, 1)) = True Then _
txT = txT & Mid(c, i, 1)
Next i
c.Value = Application.Trim(txT)
Next c
End Sub
ChrisV
"Céline Brien" a écrit dans le message
denews:Bonjour à tous et à toutes,
Un fichier Excel 2000 avec une colonne contenant noms et numéros de
département.
Des milliers de cellules !
PAUL TALBOT 3456
LISE LATRIMOUILLE 3455
ALAIN GIROUX 2366
Je souhaite supprimer le numéro de département et les espaces après
lenom.
Merci beaucoup de votre aide,
Céline
Bonjour Chris,
Il me reste à étudier les codes pour les comprendre.
Bonjour Chris,
Il me reste à étudier les codes pour les comprendre.
Bonjour Chris,
Il me reste à étudier les codes pour les comprendre.
la procédure de Chris est d'un usage + général
Bonjour Céline,
Voici une variante qui devrait être encore + rapide.
Sub Nettoie()
Dim c As Range
For Each c In Selection
c.Value = Trim(Left(c.Value, Len(c) - 5))
Next c
End Sub
La raisin de la plus grande rapidité est que contrairement
à la procédure de Chris, tous les caractères ne sont pas testés :
pour cette raison, ma procédure est basée sur ton exemple
(des espaces et 4 chiffres). Elle ne fonctionne que s'il y a au
moins 5 caractères à supprimer en fin de chaîne (espaces
et choffres), et pas + de 5 chiffres.
En résumé, la procédure de Chris est d'un usage + général,
et celle-ci devrait être + rapide.Bonjour Chris,
Super ! Exactement ce qu'il me fallait ! De la vraie magie !
Assez rapide aussi. Environ 12 secondes pour plus de 7 000 cellules.
Il me reste à étudier les codes pour les comprendre.
Merci beaucoup,
Céline
"ChrisV" a écrit dans le message de
news:Bonjour Céline,
Sur la plage de cellules sélectionnée...
Sub extracTxt()
Dim c As Range, txT As String, i As Integer
Application.ScreenUpdating = False
For Each c In Selection
txT = ""
For i = 1 To Len(c)
If Not IsNumeric(Mid(c, i, 1)) = True Then _
txT = txT & Mid(c, i, 1)
Next i
c.Value = Application.Trim(txT)
Next c
End Sub
ChrisV
"Céline Brien" a écrit dans le message
denews:Bonjour à tous et à toutes,
Un fichier Excel 2000 avec une colonne contenant noms et numéros de
département.
Des milliers de cellules !
PAUL TALBOT 3456
LISE LATRIMOUILLE 3455
ALAIN GIROUX 2366
Je souhaite supprimer le numéro de département et les espaces après
lenom.
Merci beaucoup de votre aide,
Céline
--
Cordialement,
Michel Gaboly
http://www.gaboly.com
la procédure de Chris est d'un usage + général
Bonjour Céline,
Voici une variante qui devrait être encore + rapide.
Sub Nettoie()
Dim c As Range
For Each c In Selection
c.Value = Trim(Left(c.Value, Len(c) - 5))
Next c
End Sub
La raisin de la plus grande rapidité est que contrairement
à la procédure de Chris, tous les caractères ne sont pas testés :
pour cette raison, ma procédure est basée sur ton exemple
(des espaces et 4 chiffres). Elle ne fonctionne que s'il y a au
moins 5 caractères à supprimer en fin de chaîne (espaces
et choffres), et pas + de 5 chiffres.
En résumé, la procédure de Chris est d'un usage + général,
et celle-ci devrait être + rapide.
Bonjour Chris,
Super ! Exactement ce qu'il me fallait ! De la vraie magie !
Assez rapide aussi. Environ 12 secondes pour plus de 7 000 cellules.
Il me reste à étudier les codes pour les comprendre.
Merci beaucoup,
Céline
"ChrisV" <chrisve@wanadoo.fr> a écrit dans le message de
news:exJCOOd7DHA.2628@TK2MSFTNGP10.phx.gbl...
Bonjour Céline,
Sur la plage de cellules sélectionnée...
Sub extracTxt()
Dim c As Range, txT As String, i As Integer
Application.ScreenUpdating = False
For Each c In Selection
txT = ""
For i = 1 To Len(c)
If Not IsNumeric(Mid(c, i, 1)) = True Then _
txT = txT & Mid(c, i, 1)
Next i
c.Value = Application.Trim(txT)
Next c
End Sub
ChrisV
"Céline Brien" <celinebrien@laurentides.qc.ca> a écrit dans le message
de
news: uK3mUFd7DHA.2168@TK2MSFTNGP12.phx.gbl...
Bonjour à tous et à toutes,
Un fichier Excel 2000 avec une colonne contenant noms et numéros de
département.
Des milliers de cellules !
PAUL TALBOT 3456
LISE LATRIMOUILLE 3455
ALAIN GIROUX 2366
Je souhaite supprimer le numéro de département et les espaces après
le
nom.
Merci beaucoup de votre aide,
Céline
--
Cordialement,
Michel Gaboly
http://www.gaboly.com
la procédure de Chris est d'un usage + général
Bonjour Céline,
Voici une variante qui devrait être encore + rapide.
Sub Nettoie()
Dim c As Range
For Each c In Selection
c.Value = Trim(Left(c.Value, Len(c) - 5))
Next c
End Sub
La raisin de la plus grande rapidité est que contrairement
à la procédure de Chris, tous les caractères ne sont pas testés :
pour cette raison, ma procédure est basée sur ton exemple
(des espaces et 4 chiffres). Elle ne fonctionne que s'il y a au
moins 5 caractères à supprimer en fin de chaîne (espaces
et choffres), et pas + de 5 chiffres.
En résumé, la procédure de Chris est d'un usage + général,
et celle-ci devrait être + rapide.Bonjour Chris,
Super ! Exactement ce qu'il me fallait ! De la vraie magie !
Assez rapide aussi. Environ 12 secondes pour plus de 7 000 cellules.
Il me reste à étudier les codes pour les comprendre.
Merci beaucoup,
Céline
"ChrisV" a écrit dans le message de
news:Bonjour Céline,
Sur la plage de cellules sélectionnée...
Sub extracTxt()
Dim c As Range, txT As String, i As Integer
Application.ScreenUpdating = False
For Each c In Selection
txT = ""
For i = 1 To Len(c)
If Not IsNumeric(Mid(c, i, 1)) = True Then _
txT = txT & Mid(c, i, 1)
Next i
c.Value = Application.Trim(txT)
Next c
End Sub
ChrisV
"Céline Brien" a écrit dans le message
denews:Bonjour à tous et à toutes,
Un fichier Excel 2000 avec une colonne contenant noms et numéros de
département.
Des milliers de cellules !
PAUL TALBOT 3456
LISE LATRIMOUILLE 3455
ALAIN GIROUX 2366
Je souhaite supprimer le numéro de département et les espaces après
lenom.
Merci beaucoup de votre aide,
Céline
--
Cordialement,
Michel Gaboly
http://www.gaboly.com
Bonjour Michel,la procédure de Chris est d'un usage + général
C'est effectivement dans cette direction que je m'étais orienté, au cas
ou...
(attention toutefois si la chaîne de caractères comporte des chiffres
"intermédiaires"...)
ChrisV
"Michel Gaboly" a écrit dans le message de news:Bonjour Céline,
Voici une variante qui devrait être encore + rapide.
Sub Nettoie()
Dim c As Range
For Each c In Selection
c.Value = Trim(Left(c.Value, Len(c) - 5))
Next c
End Sub
La raisin de la plus grande rapidité est que contrairement
à la procédure de Chris, tous les caractères ne sont pas testés :
pour cette raison, ma procédure est basée sur ton exemple
(des espaces et 4 chiffres). Elle ne fonctionne que s'il y a au
moins 5 caractères à supprimer en fin de chaîne (espaces
et choffres), et pas + de 5 chiffres.
En résumé, la procédure de Chris est d'un usage + général,
et celle-ci devrait être + rapide.Bonjour Chris,
Super ! Exactement ce qu'il me fallait ! De la vraie magie !
Assez rapide aussi. Environ 12 secondes pour plus de 7 000 cellules.
Il me reste à étudier les codes pour les comprendre.
Merci beaucoup,
Céline
"ChrisV" a écrit dans le message de
news:Bonjour Céline,
Sur la plage de cellules sélectionnée...
Sub extracTxt()
Dim c As Range, txT As String, i As Integer
Application.ScreenUpdating = False
For Each c In Selection
txT = ""
For i = 1 To Len(c)
If Not IsNumeric(Mid(c, i, 1)) = True Then _
txT = txT & Mid(c, i, 1)
Next i
c.Value = Application.Trim(txT)
Next c
End Sub
ChrisV
"Céline Brien" a écrit dans le message
denews:Bonjour à tous et à toutes,
Un fichier Excel 2000 avec une colonne contenant noms et numéros de
département.
Des milliers de cellules !
PAUL TALBOT 3456
LISE LATRIMOUILLE 3455
ALAIN GIROUX 2366
Je souhaite supprimer le numéro de département et les espaces après
lenom.
Merci beaucoup de votre aide,
Céline
--
Cordialement,
Michel Gaboly
http://www.gaboly.com
Bonjour Michel,
la procédure de Chris est d'un usage + général
C'est effectivement dans cette direction que je m'étais orienté, au cas
ou...
(attention toutefois si la chaîne de caractères comporte des chiffres
"intermédiaires"...)
ChrisV
"Michel Gaboly" <michel@Suppgaboly.com> a écrit dans le message de news:
4025F686.15249329@Suppgaboly.com...
Bonjour Céline,
Voici une variante qui devrait être encore + rapide.
Sub Nettoie()
Dim c As Range
For Each c In Selection
c.Value = Trim(Left(c.Value, Len(c) - 5))
Next c
End Sub
La raisin de la plus grande rapidité est que contrairement
à la procédure de Chris, tous les caractères ne sont pas testés :
pour cette raison, ma procédure est basée sur ton exemple
(des espaces et 4 chiffres). Elle ne fonctionne que s'il y a au
moins 5 caractères à supprimer en fin de chaîne (espaces
et choffres), et pas + de 5 chiffres.
En résumé, la procédure de Chris est d'un usage + général,
et celle-ci devrait être + rapide.
Bonjour Chris,
Super ! Exactement ce qu'il me fallait ! De la vraie magie !
Assez rapide aussi. Environ 12 secondes pour plus de 7 000 cellules.
Il me reste à étudier les codes pour les comprendre.
Merci beaucoup,
Céline
"ChrisV" <chrisve@wanadoo.fr> a écrit dans le message de
news:exJCOOd7DHA.2628@TK2MSFTNGP10.phx.gbl...
Bonjour Céline,
Sur la plage de cellules sélectionnée...
Sub extracTxt()
Dim c As Range, txT As String, i As Integer
Application.ScreenUpdating = False
For Each c In Selection
txT = ""
For i = 1 To Len(c)
If Not IsNumeric(Mid(c, i, 1)) = True Then _
txT = txT & Mid(c, i, 1)
Next i
c.Value = Application.Trim(txT)
Next c
End Sub
ChrisV
"Céline Brien" <celinebrien@laurentides.qc.ca> a écrit dans le message
de
news: uK3mUFd7DHA.2168@TK2MSFTNGP12.phx.gbl...
Bonjour à tous et à toutes,
Un fichier Excel 2000 avec une colonne contenant noms et numéros de
département.
Des milliers de cellules !
PAUL TALBOT 3456
LISE LATRIMOUILLE 3455
ALAIN GIROUX 2366
Je souhaite supprimer le numéro de département et les espaces après
le
nom.
Merci beaucoup de votre aide,
Céline
--
Cordialement,
Michel Gaboly
http://www.gaboly.com
Bonjour Michel,la procédure de Chris est d'un usage + général
C'est effectivement dans cette direction que je m'étais orienté, au cas
ou...
(attention toutefois si la chaîne de caractères comporte des chiffres
"intermédiaires"...)
ChrisV
"Michel Gaboly" a écrit dans le message de news:Bonjour Céline,
Voici une variante qui devrait être encore + rapide.
Sub Nettoie()
Dim c As Range
For Each c In Selection
c.Value = Trim(Left(c.Value, Len(c) - 5))
Next c
End Sub
La raisin de la plus grande rapidité est que contrairement
à la procédure de Chris, tous les caractères ne sont pas testés :
pour cette raison, ma procédure est basée sur ton exemple
(des espaces et 4 chiffres). Elle ne fonctionne que s'il y a au
moins 5 caractères à supprimer en fin de chaîne (espaces
et choffres), et pas + de 5 chiffres.
En résumé, la procédure de Chris est d'un usage + général,
et celle-ci devrait être + rapide.Bonjour Chris,
Super ! Exactement ce qu'il me fallait ! De la vraie magie !
Assez rapide aussi. Environ 12 secondes pour plus de 7 000 cellules.
Il me reste à étudier les codes pour les comprendre.
Merci beaucoup,
Céline
"ChrisV" a écrit dans le message de
news:Bonjour Céline,
Sur la plage de cellules sélectionnée...
Sub extracTxt()
Dim c As Range, txT As String, i As Integer
Application.ScreenUpdating = False
For Each c In Selection
txT = ""
For i = 1 To Len(c)
If Not IsNumeric(Mid(c, i, 1)) = True Then _
txT = txT & Mid(c, i, 1)
Next i
c.Value = Application.Trim(txT)
Next c
End Sub
ChrisV
"Céline Brien" a écrit dans le message
denews:Bonjour à tous et à toutes,
Un fichier Excel 2000 avec une colonne contenant noms et numéros de
département.
Des milliers de cellules !
PAUL TALBOT 3456
LISE LATRIMOUILLE 3455
ALAIN GIROUX 2366
Je souhaite supprimer le numéro de département et les espaces après
lenom.
Merci beaucoup de votre aide,
Céline
--
Cordialement,
Michel Gaboly
http://www.gaboly.com
Bonjour Céline,
Voici une variante qui devrait être encore + rapide.
Sub Nettoie()
Dim c As Range
For Each c In Selection
c.Value = Trim(Left(c.Value, Len(c) - 5))
Next c
End Sub
La raisin de la plus grande rapidité est que contrairement
à la procédure de Chris, tous les caractères ne sont pas testés :
pour cette raison, ma procédure est basée sur ton exemple
(des espaces et 4 chiffres). Elle ne fonctionne que s'il y a au
moins 5 caractères à supprimer en fin de chaîne (espaces
et choffres), et pas + de 5 chiffres.
En résumé, la procédure de Chris est d'un usage + général,
et celle-ci devrait être + rapide.Bonjour Chris,
Super ! Exactement ce qu'il me fallait ! De la vraie magie !
Assez rapide aussi. Environ 12 secondes pour plus de 7 000 cellules.
Il me reste à étudier les codes pour les comprendre.
Merci beaucoup,
Céline
"ChrisV" a écrit dans le message de
news:Bonjour Céline,
Sur la plage de cellules sélectionnée...
Sub extracTxt()
Dim c As Range, txT As String, i As Integer
Application.ScreenUpdating = False
For Each c In Selection
txT = ""
For i = 1 To Len(c)
If Not IsNumeric(Mid(c, i, 1)) = True Then _
txT = txT & Mid(c, i, 1)
Next i
c.Value = Application.Trim(txT)
Next c
End Sub
ChrisV
"Céline Brien" a écrit dans le
message
denews:Bonjour à tous et à toutes,
Un fichier Excel 2000 avec une colonne contenant noms et numéros
de
département.
Des milliers de cellules !
PAUL TALBOT 3456
LISE LATRIMOUILLE 3455
ALAIN GIROUX 2366
Je souhaite supprimer le numéro de département et les espaces
après
lenom.
Merci beaucoup de votre aide,
Céline
--
Cordialement,
Michel Gaboly
http://www.gaboly.com
Bonjour Céline,
Voici une variante qui devrait être encore + rapide.
Sub Nettoie()
Dim c As Range
For Each c In Selection
c.Value = Trim(Left(c.Value, Len(c) - 5))
Next c
End Sub
La raisin de la plus grande rapidité est que contrairement
à la procédure de Chris, tous les caractères ne sont pas testés :
pour cette raison, ma procédure est basée sur ton exemple
(des espaces et 4 chiffres). Elle ne fonctionne que s'il y a au
moins 5 caractères à supprimer en fin de chaîne (espaces
et choffres), et pas + de 5 chiffres.
En résumé, la procédure de Chris est d'un usage + général,
et celle-ci devrait être + rapide.
Bonjour Chris,
Super ! Exactement ce qu'il me fallait ! De la vraie magie !
Assez rapide aussi. Environ 12 secondes pour plus de 7 000 cellules.
Il me reste à étudier les codes pour les comprendre.
Merci beaucoup,
Céline
"ChrisV" <chrisve@wanadoo.fr> a écrit dans le message de
news:exJCOOd7DHA.2628@TK2MSFTNGP10.phx.gbl...
Bonjour Céline,
Sur la plage de cellules sélectionnée...
Sub extracTxt()
Dim c As Range, txT As String, i As Integer
Application.ScreenUpdating = False
For Each c In Selection
txT = ""
For i = 1 To Len(c)
If Not IsNumeric(Mid(c, i, 1)) = True Then _
txT = txT & Mid(c, i, 1)
Next i
c.Value = Application.Trim(txT)
Next c
End Sub
ChrisV
"Céline Brien" <celinebrien@laurentides.qc.ca> a écrit dans le
message
de
news: uK3mUFd7DHA.2168@TK2MSFTNGP12.phx.gbl...
Bonjour à tous et à toutes,
Un fichier Excel 2000 avec une colonne contenant noms et numéros
de
département.
Des milliers de cellules !
PAUL TALBOT 3456
LISE LATRIMOUILLE 3455
ALAIN GIROUX 2366
Je souhaite supprimer le numéro de département et les espaces
après
le
nom.
Merci beaucoup de votre aide,
Céline
--
Cordialement,
Michel Gaboly
http://www.gaboly.com
Bonjour Céline,
Voici une variante qui devrait être encore + rapide.
Sub Nettoie()
Dim c As Range
For Each c In Selection
c.Value = Trim(Left(c.Value, Len(c) - 5))
Next c
End Sub
La raisin de la plus grande rapidité est que contrairement
à la procédure de Chris, tous les caractères ne sont pas testés :
pour cette raison, ma procédure est basée sur ton exemple
(des espaces et 4 chiffres). Elle ne fonctionne que s'il y a au
moins 5 caractères à supprimer en fin de chaîne (espaces
et choffres), et pas + de 5 chiffres.
En résumé, la procédure de Chris est d'un usage + général,
et celle-ci devrait être + rapide.Bonjour Chris,
Super ! Exactement ce qu'il me fallait ! De la vraie magie !
Assez rapide aussi. Environ 12 secondes pour plus de 7 000 cellules.
Il me reste à étudier les codes pour les comprendre.
Merci beaucoup,
Céline
"ChrisV" a écrit dans le message de
news:Bonjour Céline,
Sur la plage de cellules sélectionnée...
Sub extracTxt()
Dim c As Range, txT As String, i As Integer
Application.ScreenUpdating = False
For Each c In Selection
txT = ""
For i = 1 To Len(c)
If Not IsNumeric(Mid(c, i, 1)) = True Then _
txT = txT & Mid(c, i, 1)
Next i
c.Value = Application.Trim(txT)
Next c
End Sub
ChrisV
"Céline Brien" a écrit dans le
message
denews:Bonjour à tous et à toutes,
Un fichier Excel 2000 avec une colonne contenant noms et numéros
de
département.
Des milliers de cellules !
PAUL TALBOT 3456
LISE LATRIMOUILLE 3455
ALAIN GIROUX 2366
Je souhaite supprimer le numéro de département et les espaces
après
lenom.
Merci beaucoup de votre aide,
Céline
--
Cordialement,
Michel Gaboly
http://www.gaboly.com
pour cela, céline, mieux vaut t'adresser à quelqu'un d'autre car chez
les MVP, tout ceci est tellement inné qu'ils ont bien du mal à
expliquer
le pourquoi du comment...
jps (toujours prêt, comme les scouts)
Céline Brien a écrit:Bonjour Chris,
Il me reste à étudier les codes pour les comprendre.
pour cela, céline, mieux vaut t'adresser à quelqu'un d'autre car chez
les MVP, tout ceci est tellement inné qu'ils ont bien du mal à
expliquer
le pourquoi du comment...
jps (toujours prêt, comme les scouts)
Céline Brien a écrit:
Bonjour Chris,
Il me reste à étudier les codes pour les comprendre.
pour cela, céline, mieux vaut t'adresser à quelqu'un d'autre car chez
les MVP, tout ceci est tellement inné qu'ils ont bien du mal à
expliquer
le pourquoi du comment...
jps (toujours prêt, comme les scouts)
Céline Brien a écrit:Bonjour Chris,
Il me reste à étudier les codes pour les comprendre.