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
"LANIMAL" a écrit dans le message de news:
J'ai une sélection discontinue (en principe sur une seule colonne). Ex: A4:A9,A11:A13,A18,A25 Je voudrais appliquer à chaque cellule sélectionnée une procédure, par ex. : Selection = LCase(Selection) Est-ce possible ? Comment ?
PS. pour une sélection continue, je sais faire (avec une boucle).
Ben c'est pareil !
Etc
"LANIMAL" <noreply@xxx.yy> a écrit dans le message de news:
O15CRbnTKHA.1280@TK2MSFTNGP04.phx.gbl...
J'ai une sélection discontinue (en principe sur une seule colonne).
Ex: A4:A9,A11:A13,A18,A25
Je voudrais appliquer à chaque cellule sélectionnée une procédure,
par ex. : Selection = LCase(Selection)
Est-ce possible ? Comment ?
PS. pour une sélection continue, je sais faire (avec une boucle).
J'ai une sélection discontinue (en principe sur une seule colonne). Ex: A4:A9,A11:A13,A18,A25 Je voudrais appliquer à chaque cellule sélectionnée une procédure, par ex. : Selection = LCase(Selection) Est-ce possible ? Comment ?
PS. pour une sélection continue, je sais faire (avec une boucle).
Ben c'est pareil !
Etc
isabelle
bonjour,
faire la sélection au préalable et exécuter cette macro,
Sub Macro1() For Each c In Selection Range(c.Address) = LCase(c) Next End Sub
isabelle
LANIMAL a écrit :
Bonjour J'ai une sélection discontinue (en principe sur une seule colonne).
Ex: A4:A9,A11:A13,A18,A25
Je voudrais appliquer à chaque cellule sélectionnée une procédure, par ex. : Selection = LCase(Selection)
Est-ce possible ? Comment ?
Merci
PS. pour une sélection continue, je sais faire (avec une boucle).
bonjour,
faire la sélection au préalable et exécuter cette macro,
Sub Macro1()
For Each c In Selection
Range(c.Address) = LCase(c)
Next
End Sub
isabelle
LANIMAL a écrit :
Bonjour
J'ai une sélection discontinue (en principe sur une seule colonne).
Ex: A4:A9,A11:A13,A18,A25
Je voudrais appliquer à chaque cellule sélectionnée une procédure,
par ex. : Selection = LCase(Selection)
Est-ce possible ? Comment ?
Merci
PS. pour une sélection continue, je sais faire (avec une boucle).
faire la sélection au préalable et exécuter cette macro,
Sub Macro1() For Each c In Selection Range(c.Address) = LCase(c) Next End Sub
isabelle
LANIMAL a écrit :
Bonjour J'ai une sélection discontinue (en principe sur une seule colonne).
Ex: A4:A9,A11:A13,A18,A25
Je voudrais appliquer à chaque cellule sélectionnée une procédure, par ex. : Selection = LCase(Selection)
Est-ce possible ? Comment ?
Merci
PS. pour une sélection continue, je sais faire (avec une boucle).
LANIMAL
Ben oui, Caetera, mais dans la boucle, comment sauter les cellules non sélectionnées ? (dans mon exemple : A10 - A14:A17 et A19:A24) Merci
Caetera a écrit :
"LANIMAL" a écrit dans le message de news:
J'ai une sélection discontinue (en principe sur une seule colonne). Ex: A4:A9,A11:A13,A18,A25 Je voudrais appliquer à chaque cellule sélectionnée une procédure, par ex. : Selection = LCase(Selection) Est-ce possible ? Comment ?
PS. pour une sélection continue, je sais faire (avec une boucle).
Ben c'est pareil !
Etc
Ben oui, Caetera, mais dans la boucle, comment sauter les cellules non
sélectionnées ? (dans mon exemple : A10 - A14:A17 et A19:A24)
Merci
Caetera a écrit :
"LANIMAL" <noreply@xxx.yy> a écrit dans le message de news:
O15CRbnTKHA.1280@TK2MSFTNGP04.phx.gbl...
J'ai une sélection discontinue (en principe sur une seule colonne).
Ex: A4:A9,A11:A13,A18,A25
Je voudrais appliquer à chaque cellule sélectionnée une procédure,
par ex. : Selection = LCase(Selection)
Est-ce possible ? Comment ?
PS. pour une sélection continue, je sais faire (avec une boucle).
Ben oui, Caetera, mais dans la boucle, comment sauter les cellules non sélectionnées ? (dans mon exemple : A10 - A14:A17 et A19:A24) Merci
Caetera a écrit :
"LANIMAL" a écrit dans le message de news:
J'ai une sélection discontinue (en principe sur une seule colonne). Ex: A4:A9,A11:A13,A18,A25 Je voudrais appliquer à chaque cellule sélectionnée une procédure, par ex. : Selection = LCase(Selection) Est-ce possible ? Comment ?
PS. pour une sélection continue, je sais faire (avec une boucle).
Ben c'est pareil !
Etc
Caetera
LANIMAL" a écrit dans le message de news:
Ben oui, Caetera, mais dans la boucle, comment sauter les cellules non sélectionnées ? (dans mon exemple : A10 - A14:A17 et A19:A24)
For Each c In Selection
Etc
LANIMAL" <noreply@xxx.yy> a écrit dans le message de news:
O5TwLmnTKHA.4484@TK2MSFTNGP02.phx.gbl...
Ben oui, Caetera, mais dans la boucle, comment sauter les cellules non
sélectionnées ? (dans mon exemple : A10 - A14:A17 et A19:A24)
Merci Isabelle, Il me semblait bien que la solution simple m'échappait, Comme tu le vois, j'ai des grosses, très grosses lacunes. Bonne soirée
isabelle a écrit :
bonjour,
faire la sélection au préalable et exécuter cette macro,
Sub Macro1() For Each c In Selection Range(c.Address) = LCase(c) Next End Sub
isabelle
LANIMAL a écrit :
Bonjour J'ai une sélection discontinue (en principe sur une seule colonne).
Ex: A4:A9,A11:A13,A18,A25
Je voudrais appliquer à chaque cellule sélectionnée une procédure, par ex. : Selection = LCase(Selection)
Est-ce possible ? Comment ?
Merci
PS. pour une sélection continue, je sais faire (avec une boucle).
Jacky
Bonsoir,
Si la selection est connue, sans avoir à le faire à la mimine '--------------- Sub Macro1() Dim c As Range For Each c In Range("A4:A9,A11:A13,A18,A25") c = LCase(c) Next End Sub -- Salutations JJ
"LANIMAL" a écrit dans le message de news:
Bonjour J'ai une sélection discontinue (en principe sur une seule colonne).
Ex: A4:A9,A11:A13,A18,A25
Je voudrais appliquer à chaque cellule sélectionnée une procédure, par ex. : Selection = LCase(Selection)
Est-ce possible ? Comment ?
Merci
PS. pour une sélection continue, je sais faire (avec une boucle).
Bonsoir,
Si la selection est connue,
sans avoir à le faire à la mimine
'---------------
Sub Macro1()
Dim c As Range
For Each c In Range("A4:A9,A11:A13,A18,A25")
c = LCase(c)
Next
End Sub
--
Salutations
JJ
"LANIMAL" <noreply@xxx.yy> a écrit dans le message de news:
O15CRbnTKHA.1280@TK2MSFTNGP04.phx.gbl...
Bonjour
J'ai une sélection discontinue (en principe sur une seule colonne).
Ex: A4:A9,A11:A13,A18,A25
Je voudrais appliquer à chaque cellule sélectionnée une procédure,
par ex. : Selection = LCase(Selection)
Est-ce possible ? Comment ?
Merci
PS. pour une sélection continue, je sais faire (avec une boucle).
Si la selection est connue, sans avoir à le faire à la mimine '--------------- Sub Macro1() Dim c As Range For Each c In Range("A4:A9,A11:A13,A18,A25") c = LCase(c) Next End Sub -- Salutations JJ
"LANIMAL" a écrit dans le message de news:
Bonjour J'ai une sélection discontinue (en principe sur une seule colonne).
Ex: A4:A9,A11:A13,A18,A25
Je voudrais appliquer à chaque cellule sélectionnée une procédure, par ex. : Selection = LCase(Selection)
Est-ce possible ? Comment ?
Merci
PS. pour une sélection continue, je sais faire (avec une boucle).