J'utilise actuellement la fonction suivante pour mettre en majuscule après
avoir enlevé les espaces supperflus le contenue d'une feuille de calcul :
=MAJUSCULE(SUPPRESPACE(D26))
ce qui m'oblige à copier cette formule dans autant de cellule que j'ai de
cellule à traiter.
Voici ma question :
Existe-t-il une façon de faire en VBA par exemple qui me permettrait de
traiter directement toutes les cellules de la feuille sans passer par ma
bidouille ?
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
Caetera
"Gouap" a écrit dans le message de news:
J'utilise actuellement la fonction suivante pour mettre en majuscule après avoir enlevé les espaces supperflus le contenue d'une feuille de calcul : =MAJUSCULE(SUPPRESPACE(D26)) ce qui m'oblige à copier cette formule dans autant de cellule que j'ai de cellule à traiter. Existe-t-il une façon de faire en VBA par exemple qui me permettrait de traiter directement toutes les cellules de la feuille sans passer par ma bidouille ?
***************************
Selectionner puis exécuter la macro :
Sub test() For Each cel In Selection cel.Value = UCase(Trim(cel)) Next End Sub
Etc
"Gouap" <Gouap@free.fr> a écrit dans le message de news:
uu6QemLdKHA.2160@TK2MSFTNGP02.phx.gbl...
J'utilise actuellement la fonction suivante pour mettre en majuscule après
avoir enlevé les espaces supperflus le contenue d'une feuille de calcul :
=MAJUSCULE(SUPPRESPACE(D26))
ce qui m'oblige à copier cette formule dans autant de cellule que j'ai de
cellule à traiter.
Existe-t-il une façon de faire en VBA par exemple qui me permettrait de
traiter directement toutes les cellules de la feuille sans passer par ma
bidouille ?
***************************
Selectionner puis exécuter la macro :
Sub test()
For Each cel In Selection
cel.Value = UCase(Trim(cel))
Next
End Sub
J'utilise actuellement la fonction suivante pour mettre en majuscule après avoir enlevé les espaces supperflus le contenue d'une feuille de calcul : =MAJUSCULE(SUPPRESPACE(D26)) ce qui m'oblige à copier cette formule dans autant de cellule que j'ai de cellule à traiter. Existe-t-il une façon de faire en VBA par exemple qui me permettrait de traiter directement toutes les cellules de la feuille sans passer par ma bidouille ?
***************************
Selectionner puis exécuter la macro :
Sub test() For Each cel In Selection cel.Value = UCase(Trim(cel)) Next End Sub
Etc
FFO
Salut à toi
Aprés avoir sélectionné tes cellules Ces quelques lignes devraient faire :
For Each c In Selection c.Value = UCase(Replace(c, " ", "")) Next
Dis moi !!!!!
Salut à toi
Aprés avoir sélectionné tes cellules
Ces quelques lignes devraient faire :
For Each c In Selection
c.Value = UCase(Replace(c, " ", ""))
Next
Aprés avoir sélectionné tes cellules Ces quelques lignes devraient faire :
For Each c In Selection c.Value = UCase(Replace(c, " ", "")) Next
Dis moi !!!!!
Gouap
Comme pour la recherche des CHR(10) vos propositions sont pertinantes et efficaces donc encore une fois merci Caetera et FFO.
@+ Philippe
"Gouap" a écrit dans le message de news:
Bonjour à tous,
J'utilise actuellement la fonction suivante pour mettre en majuscule après avoir enlevé les espaces supperflus le contenue d'une feuille de calcul : =MAJUSCULE(SUPPRESPACE(D26))
ce qui m'oblige à copier cette formule dans autant de cellule que j'ai de cellule à traiter.
Voici ma question : Existe-t-il une façon de faire en VBA par exemple qui me permettrait de traiter directement toutes les cellules de la feuille sans passer par ma bidouille ?
Merci de vos suggestions et idées ! @+
Comme pour la recherche des CHR(10) vos propositions sont pertinantes et
efficaces donc encore une fois merci Caetera et FFO.
@+
Philippe
"Gouap" <Gouap@free.fr> a écrit dans le message de news:
uu6QemLdKHA.2160@TK2MSFTNGP02.phx.gbl...
Bonjour à tous,
J'utilise actuellement la fonction suivante pour mettre en majuscule après
avoir enlevé les espaces supperflus le contenue d'une feuille de calcul :
=MAJUSCULE(SUPPRESPACE(D26))
ce qui m'oblige à copier cette formule dans autant de cellule que j'ai de
cellule à traiter.
Voici ma question :
Existe-t-il une façon de faire en VBA par exemple qui me permettrait de
traiter directement toutes les cellules de la feuille sans passer par ma
bidouille ?
Comme pour la recherche des CHR(10) vos propositions sont pertinantes et efficaces donc encore une fois merci Caetera et FFO.
@+ Philippe
"Gouap" a écrit dans le message de news:
Bonjour à tous,
J'utilise actuellement la fonction suivante pour mettre en majuscule après avoir enlevé les espaces supperflus le contenue d'une feuille de calcul : =MAJUSCULE(SUPPRESPACE(D26))
ce qui m'oblige à copier cette formule dans autant de cellule que j'ai de cellule à traiter.
Voici ma question : Existe-t-il une façon de faire en VBA par exemple qui me permettrait de traiter directement toutes les cellules de la feuille sans passer par ma bidouille ?