J'ai du texte dans quelques cellules.
Après les avoir sélectionner, j'aimerais les convertir en majuscules avec
VBA mais je ne sais pas comment faire référence à chaque cellule
sélectionnée ??
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
Garette
Bonsoir,
Sub test() For Each X In Selection X.Value = UCase(X) Next End Sub
Selection correspond aux cellules selectionnées au moment de l'execution de la macro. Il peut également etre remplacer par Range("A1:A10") par exemple.
Bonsoir,
Sub test()
For Each X In Selection
X.Value = UCase(X)
Next
End Sub
Selection correspond aux cellules selectionnées au moment de l'execution de
la macro.
Il peut également etre remplacer par Range("A1:A10") par exemple.
Sub test() For Each X In Selection X.Value = UCase(X) Next End Sub
Selection correspond aux cellules selectionnées au moment de l'execution de la macro. Il peut également etre remplacer par Range("A1:A10") par exemple.
Jacky
Bonsoir,
...j'aimerais les convertir en majuscules avec VBA... '---------
Sub jj() For Each c In Selection c.Value = UCase(c.Value) Next End Sub '-----------
-- Salutations JJ
"JM Charrier" a écrit dans le message de news:
Bonjour,
J'ai du texte dans quelques cellules. Après les avoir sélectionner, j'aimerais les convertir en majuscules avec VBA mais je ne sais pas comment faire référence à chaque cellule sélectionnée ??
Merci pour votre aide, Pirlouit
Bonsoir,
...j'aimerais les convertir en majuscules avec VBA...
'---------
Sub jj()
For Each c In Selection
c.Value = UCase(c.Value)
Next
End Sub
'-----------
--
Salutations
JJ
"JM Charrier" <charrier.jeanmarc@neuf.fr> a écrit dans le message de news:
O5X4VxwPHHA.2340@TK2MSFTNGP05.phx.gbl...
Bonjour,
J'ai du texte dans quelques cellules.
Après les avoir sélectionner, j'aimerais les convertir en majuscules avec
VBA mais je ne sais pas comment faire référence à chaque cellule
sélectionnée ??
...j'aimerais les convertir en majuscules avec VBA... '---------
Sub jj() For Each c In Selection c.Value = UCase(c.Value) Next End Sub '-----------
-- Salutations JJ
"JM Charrier" a écrit dans le message de news:
Bonjour,
J'ai du texte dans quelques cellules. Après les avoir sélectionner, j'aimerais les convertir en majuscules avec VBA mais je ne sais pas comment faire référence à chaque cellule sélectionnée ??
Merci pour votre aide, Pirlouit
JM Charrier
Merci beaucoup !
Il faut simplement déclarer X comme variant ? car le type Cell n'existe pas ??
Merci encore "Garette" a écrit dans le message de news: %
Bonsoir,
Sub test() For Each X In Selection X.Value = UCase(X) Next End Sub
Selection correspond aux cellules selectionnées au moment de l'execution de la macro. Il peut également etre remplacer par Range("A1:A10") par exemple.
Merci beaucoup !
Il faut simplement déclarer X comme variant ? car le type Cell n'existe pas
??
Merci encore
"Garette" <nospam.Garette@hotmail.com> a écrit dans le message de news:
%23yrzFExPHHA.4376@TK2MSFTNGP02.phx.gbl...
Bonsoir,
Sub test()
For Each X In Selection
X.Value = UCase(X)
Next
End Sub
Selection correspond aux cellules selectionnées au moment de l'execution
de la macro.
Il peut également etre remplacer par Range("A1:A10") par exemple.
Il faut simplement déclarer X comme variant ? car le type Cell n'existe pas ??
Merci encore "Garette" a écrit dans le message de news: %
Bonsoir,
Sub test() For Each X In Selection X.Value = UCase(X) Next End Sub
Selection correspond aux cellules selectionnées au moment de l'execution de la macro. Il peut également etre remplacer par Range("A1:A10") par exemple.
JM Charrier
Merci beaucoup !
Il faut simplement déclarer X comme variant ? car le type Cell n'existe pas ??
Merci encore "Jacky" a écrit dans le message de news:
Bonsoir,
...j'aimerais les convertir en majuscules avec VBA... '---------
Sub jj() For Each c In Selection c.Value = UCase(c.Value) Next End Sub '-----------
-- Salutations JJ
"JM Charrier" a écrit dans le message de news:
Bonjour,
J'ai du texte dans quelques cellules. Après les avoir sélectionner, j'aimerais les convertir en majuscules avec VBA mais je ne sais pas comment faire référence à chaque cellule sélectionnée ??
Merci pour votre aide, Pirlouit
Merci beaucoup !
Il faut simplement déclarer X comme variant ? car le type Cell n'existe pas
??
Merci encore
"Jacky" <nospams@not> a écrit dans le message de news:
O02ArExPHHA.4672@TK2MSFTNGP06.phx.gbl...
Bonsoir,
...j'aimerais les convertir en majuscules avec VBA...
'---------
Sub jj()
For Each c In Selection
c.Value = UCase(c.Value)
Next
End Sub
'-----------
--
Salutations
JJ
"JM Charrier" <charrier.jeanmarc@neuf.fr> a écrit dans le message de news:
O5X4VxwPHHA.2340@TK2MSFTNGP05.phx.gbl...
Bonjour,
J'ai du texte dans quelques cellules.
Après les avoir sélectionner, j'aimerais les convertir en majuscules avec
VBA mais je ne sais pas comment faire référence à chaque cellule
sélectionnée ??
Il faut simplement déclarer X comme variant ? car le type Cell n'existe pas ??
Merci encore "Jacky" a écrit dans le message de news:
Bonsoir,
...j'aimerais les convertir en majuscules avec VBA... '---------
Sub jj() For Each c In Selection c.Value = UCase(c.Value) Next End Sub '-----------
-- Salutations JJ
"JM Charrier" a écrit dans le message de news:
Bonjour,
J'ai du texte dans quelques cellules. Après les avoir sélectionner, j'aimerais les convertir en majuscules avec VBA mais je ne sais pas comment faire référence à chaque cellule sélectionnée ??
Merci pour votre aide, Pirlouit
Jacky
Re...
Il faut simplement déclarer X comme variant ? car le type Cell n'existe pas
Y pas de cell ni de sel d'ailleurs dans ce code
Sauf erreur, les variables sont déclarées "Variant" par défaut.
-- Salutations JJ
"JM Charrier" a écrit dans le message de news: eWbg$
Merci beaucoup !
Il faut simplement déclarer X comme variant ? car le type Cell n'existe pas ??
Merci encore "Jacky" a écrit dans le message de news:
Bonsoir,
...j'aimerais les convertir en majuscules avec VBA... '---------
Sub jj() For Each c In Selection c.Value = UCase(c.Value) Next End Sub '-----------
-- Salutations JJ
"JM Charrier" a écrit dans le message de news:
Bonjour,
J'ai du texte dans quelques cellules. Après les avoir sélectionner, j'aimerais les convertir en majuscules avec VBA mais je ne sais pas comment faire référence à chaque cellule sélectionnée ??
Merci pour votre aide, Pirlouit
Re...
Il faut simplement déclarer X comme variant ? car le type Cell n'existe
pas
Y pas de cell ni de sel d'ailleurs dans ce code
Sauf erreur, les variables sont déclarées "Variant" par défaut.
--
Salutations
JJ
"JM Charrier" <charrier.jeanmarc@neuf.fr> a écrit dans le message de news:
eWbg$WyPHHA.4672@TK2MSFTNGP06.phx.gbl...
Merci beaucoup !
Il faut simplement déclarer X comme variant ? car le type Cell n'existe
pas ??
Merci encore
"Jacky" <nospams@not> a écrit dans le message de news:
O02ArExPHHA.4672@TK2MSFTNGP06.phx.gbl...
Bonsoir,
...j'aimerais les convertir en majuscules avec VBA...
'---------
Sub jj()
For Each c In Selection
c.Value = UCase(c.Value)
Next
End Sub
'-----------
--
Salutations
JJ
"JM Charrier" <charrier.jeanmarc@neuf.fr> a écrit dans le message de
news: O5X4VxwPHHA.2340@TK2MSFTNGP05.phx.gbl...
Bonjour,
J'ai du texte dans quelques cellules.
Après les avoir sélectionner, j'aimerais les convertir en majuscules
avec VBA mais je ne sais pas comment faire référence à chaque cellule
sélectionnée ??
Il faut simplement déclarer X comme variant ? car le type Cell n'existe pas
Y pas de cell ni de sel d'ailleurs dans ce code
Sauf erreur, les variables sont déclarées "Variant" par défaut.
-- Salutations JJ
"JM Charrier" a écrit dans le message de news: eWbg$
Merci beaucoup !
Il faut simplement déclarer X comme variant ? car le type Cell n'existe pas ??
Merci encore "Jacky" a écrit dans le message de news:
Bonsoir,
...j'aimerais les convertir en majuscules avec VBA... '---------
Sub jj() For Each c In Selection c.Value = UCase(c.Value) Next End Sub '-----------
-- Salutations JJ
"JM Charrier" a écrit dans le message de news:
Bonjour,
J'ai du texte dans quelques cellules. Après les avoir sélectionner, j'aimerais les convertir en majuscules avec VBA mais je ne sais pas comment faire référence à chaque cellule sélectionnée ??
Merci pour votre aide, Pirlouit
Ange Ounis
Il faut simplement déclarer X comme variant ? car le type Cell n'existe pas ??
En effet, le type Cell n'existe pas ! Si tu veux déclarer et typer tes variables (excellente habitude qui n'est malheureusement pas encouragée par la tolérance - excessive selon moi - du langage VBA qui type automatiquement en Variant tout ce qui n'est pas explicitement déclaré), tu peux utiliser le type Range pour une cellule ou une plage de cellules :
Sub test() Dim X As Range For Each X In Selection X.Value = UCase(X.Value) Next End Sub
---------- Ange Ounis ----------
Merci beaucoup !
Il faut simplement déclarer X comme variant ? car le type Cell n'existe pas ??
Merci encore "Garette" a écrit dans le message de news: %
Bonsoir,
Sub test() For Each X In Selection X.Value = UCase(X) Next End Sub
Selection correspond aux cellules selectionnées au moment de l'execution de la macro. Il peut également etre remplacer par Range("A1:A10") par exemple.
Il faut simplement déclarer X comme variant ? car le type Cell n'existe pas
??
En effet, le type Cell n'existe pas ! Si tu veux déclarer et typer tes variables
(excellente habitude qui n'est malheureusement pas encouragée par la tolérance -
excessive selon moi - du langage VBA qui type automatiquement en Variant tout ce
qui n'est pas explicitement déclaré), tu peux utiliser le type Range pour une
cellule ou une plage de cellules :
Sub test()
Dim X As Range
For Each X In Selection
X.Value = UCase(X.Value)
Next
End Sub
----------
Ange Ounis
----------
Merci beaucoup !
Il faut simplement déclarer X comme variant ? car le type Cell n'existe pas
??
Merci encore
"Garette" <nospam.Garette@hotmail.com> a écrit dans le message de news:
%23yrzFExPHHA.4376@TK2MSFTNGP02.phx.gbl...
Bonsoir,
Sub test()
For Each X In Selection
X.Value = UCase(X)
Next
End Sub
Selection correspond aux cellules selectionnées au moment de l'execution
de la macro.
Il peut également etre remplacer par Range("A1:A10") par exemple.
Il faut simplement déclarer X comme variant ? car le type Cell n'existe pas ??
En effet, le type Cell n'existe pas ! Si tu veux déclarer et typer tes variables (excellente habitude qui n'est malheureusement pas encouragée par la tolérance - excessive selon moi - du langage VBA qui type automatiquement en Variant tout ce qui n'est pas explicitement déclaré), tu peux utiliser le type Range pour une cellule ou une plage de cellules :
Sub test() Dim X As Range For Each X In Selection X.Value = UCase(X.Value) Next End Sub
---------- Ange Ounis ----------
Merci beaucoup !
Il faut simplement déclarer X comme variant ? car le type Cell n'existe pas ??
Merci encore "Garette" a écrit dans le message de news: %
Bonsoir,
Sub test() For Each X In Selection X.Value = UCase(X) Next End Sub
Selection correspond aux cellules selectionnées au moment de l'execution de la macro. Il peut également etre remplacer par Range("A1:A10") par exemple.