OVH Cloud OVH Cloud

Boucle sur plusieurs cellules

4 réponses
Avatar
DanC
Bonjour à tous!

Je cherche à passer chacune des cellules (a1 à axx) dans une sub VBA, dont
voici un extrait de code.
...
Range("A1").Select
Selection.Copy
Sheets("Feuil2").Select
Range("B1").Select
ActiveSheet.Paste
TriLettres
....
Après avoir passé A1, je voudrais y passer a2 et les suivantes
Comment faire?

Merci d'avance!

Danielle


--
(___) Danielle
(oo) "... A quoi bon la charrue
\/-------\ et la voile, la terre et
|| || \ la vie sans la liberté?"
||---W|| * - Ralph Waldo Emerson
^^ ^^

4 réponses

Avatar
michdenis
Bonjour DanC,

IL manque un peu de détail. Si tu veux copier une seulle fois, les données en colonne A:A dans une autre feuille dans la
lignes 1:1, tu peux utiliser copier / collage spécial avec option transposé. Et tu appliques le tri désiré.

Si c'est autre chose que tu désires, tu devrais préciser un peu plus. Donne quelques informations sur ce qu'est la procédure
de Tri(TriLettres) que tu appliques.


Salutations!



"DanC" a écrit dans le message de news:
Bonjour à tous!

Je cherche à passer chacune des cellules (a1 à axx) dans une sub VBA, dont
voici un extrait de code.
...
Range("A1").Select
Selection.Copy
Sheets("Feuil2").Select
Range("B1").Select
ActiveSheet.Paste
TriLettres
....
Après avoir passé A1, je voudrais y passer a2 et les suivantes
Comment faire?

Merci d'avance!

Danielle


--
(___) Danielle
(oo) "... A quoi bon la charrue
/------- et la voile, la terre et
|| || la vie sans la liberté?"
||---W|| * - Ralph Waldo Emerson
^^ ^^
Avatar
DanC
Bonjour
J,ai des mots dans une colonne, que je défais (comme en épelant), et je trie
la nouvelle séquence. PAr exemple, j'ai le mot MAIN, je le défais: M A I N,
je trie ces lettres en ordre alpha inverse, ce qui donne N M I A, et je
refais un mot avec cela: NMIA

C'est ce que fait ma sub TriLettres

Je veux maintenant passer tous les mots de ma colonne dans cette sub... et
je sais que le range n'est pas toujours A1.

Alors, docteur?

Danielle

"michdenis" a écrit dans le message de
news:
Bonjour DanC,

IL manque un peu de détail. Si tu veux copier une seulle fois, les données
en colonne A:A dans une autre feuille dans la

lignes 1:1, tu peux utiliser copier / collage spécial avec option
transposé. Et tu appliques le tri désiré.


Si c'est autre chose que tu désires, tu devrais préciser un peu plus.
Donne quelques informations sur ce qu'est la procédure

de Tri(TriLettres) que tu appliques.


Salutations!



"DanC" a écrit dans le message de
news:

Bonjour à tous!

Je cherche à passer chacune des cellules (a1 à axx) dans une sub VBA, dont
voici un extrait de code.
...
Range("A1").Select
Selection.Copy
Sheets("Feuil2").Select
Range("B1").Select
ActiveSheet.Paste
TriLettres
....
Après avoir passé A1, je voudrais y passer a2 et les suivantes
Comment faire?

Merci d'avance!

Danielle


--
(___) Danielle
(oo) "... A quoi bon la charrue
/------- et la voile, la terre et
|| || la vie sans la liberté?"
||---W|| * - Ralph Waldo Emerson
^^ ^^





Avatar
Daniel.j
Bonsoir,
plein d'exemples ici:
http://dj.joss.free.fr/boucle.htm


--
Daniel
FAQ du Forum Microsoft Public Fr Excel
http://dj.joss.free.fr/faq.htm

"DanC" a écrit dans le message de news:
| Bonjour à tous!
|
| Je cherche à passer chacune des cellules (a1 à axx) dans une sub VBA, dont
| voici un extrait de code.
| ...
| Range("A1").Select
| Selection.Copy
| Sheets("Feuil2").Select
| Range("B1").Select
| ActiveSheet.Paste
| TriLettres
| ....
| Après avoir passé A1, je voudrais y passer a2 et les suivantes
| Comment faire?
|
| Merci d'avance!
|
| Danielle
|
|
| --
| (___) Danielle
| (oo) "... A quoi bon la charrue
| /------- et la voile, la terre et
| || || la vie sans la liberté?"
| ||---W|| * - Ralph Waldo Emerson
| ^^ ^^
|
|
Avatar
DanC
Oh wow!
Merci beaucoup
Je me penche là-dessus!

Bonne fin de journée!
Danielle
"Daniel.j" a écrit dans le message de
news:%
Bonsoir,
plein d'exemples ici:
http://dj.joss.free.fr/boucle.htm


--
Daniel
FAQ du Forum Microsoft Public Fr Excel
http://dj.joss.free.fr/faq.htm

"DanC" a écrit dans le message de news:


| Bonjour à tous!
|
| Je cherche à passer chacune des cellules (a1 à axx) dans une sub VBA,
dont

| voici un extrait de code.
| ...
| Range("A1").Select
| Selection.Copy
| Sheets("Feuil2").Select
| Range("B1").Select
| ActiveSheet.Paste
| TriLettres
| ....
| Après avoir passé A1, je voudrais y passer a2 et les suivantes
| Comment faire?
|
| Merci d'avance!
|
| Danielle
|
|
| --
| (___) Danielle
| (oo) "... A quoi bon la charrue
| /------- et la voile, la terre et
| || || la vie sans la liberté?"
| ||---W|| * - Ralph Waldo Emerson
| ^^ ^^
|
|