Macro sur Excel/Boucle sur les lettres

Bonsoir
J'ai fait une boucle simple sur les cellules mais en se déplaçant sur les numeros et ça a très bien marché :

Code:

---

1 2 3 4 5 6 7

Dim i i = 1 While i <> 8 ActiveSheet.Range("F" & CStr(i)).Value = InputBox("le numero est jusqu'à 7", "ENTRER LA VALEUR DE N" & i) i = i + 1 Wend

---

Citation:

---

Je veux faire une simple boucle sur les cellules mais en se déplaçant sur les lettres

---

C'est à dire en se déplaçant FàL !(F ,G,H,I,J,K,L).
Par exemple :

Code:

---

1 2 3 4 5 6 7 8 9

Dim i dim a i = F While i<> M ActiveSheet.Range(F"5"Value = InputBox("le lettre est jusqu'à L", "ENTRER LA VALEUR DE N" &a) i = i + 1 a = a+1 Wend

---

Ce code est totalement FAUX sur les syntaxes.Mais vous avez au moin compris ce que je voulais dire.

Alors quel est le bon code :?:
Merci. :merci:

Le plus simple, c'est de remplacer tes "Range" par des Cells, qui marchent en coordonnées.

Code:

---

1 2	Cells (2,4) = Range("D2")

---

Attention, c'est Cells(ligne,colonne)

Et tu peux aussi penser à la technique qui permet de passer d'une cellule à une autre avec Offset(ligne, colonne):

Code:

---

1 2 3 4 5 6 7

Dim MaCellule As Range Set MaCellule = Cells(2,6) 'qui est égal à Range("F2") While MaCellule.Column <=12 'je fais ce que je veux sur ma cellule Set MaCellule = MaCellule.Offset(0,1) 'je me déplace de 1 vers la droite Wend

---

Bonsoir Megaxel
J'ai fais un petit code très simple à Base de tes exemples :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Dim MaCellule As Range Dim i As Integer Dim a As Integer i=3 a=2 Set MaCellule = Cells(2,i) 'qui est égal à Range("C2") While MaCellule.Column <=5 MaCellule = a i=i+1 a=a+2 Wend

---

Résultat : La Machine s'est plantée
Je voulas faire ,automatiquement sur excel il y a affichage des resultats
des incrémentations par 2 c'est à dire :

C2=2 D2=4 E2=6

Quel est Bon Code
Merci.

ta condition de test

Code:

---

While MaCellule.Column <=5

---

est as revoir ... Puisque maCellule ... n'est pas modifié dans la boucle ( et le 5 non plus..) donc tu est devant une boucle infinie...

tu peu re-écrire :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Dim MaCellule As Range Dim i As Integer Dim a As Integer i=3 a=2   While i <=5 Set MaCellule = Cells(2,i) 'qui est égal à Range("C2") MaCellule = a i=i+1 a=a+2 Wend

---

:roll: :wink:

Mais si tu as un peu mélangé mes deux propositions...
Essaie comme ça:

Code:

---

1 2 3 4 5 6 7 8 9 10

Dim MaCellule As Range Dim MonContenu As Integer Set MaCellule = Cells(2,6) 'qui est égal à Range("F2") MonContenu = 2 While MaCellule.Column <=12 MaCellule.Value = MonContenu Set MaCellule = MaCellule.Offset(0,2) 'je me déplace de 2 vers la droite MonContenu = MonContenu + 1 Wend

---

A chaque tour de boucle (tant que tu n'as pas atteint la colonne 12), le OffSet te déplace de 2 cellule vers la droite, et de 0 cellule vers le bas, et le contenu que tu affectes aux cellules augmente de 1.
J'ai inversé les variations de 2 et de 1 pour que tu vois la différence avec le code de bbil, qui illustre l'autre méthode.

Bonjour bbil et Megaxel
Merci :merci: pour vos réponses claires et précises .............

J'ai testé les code de bbil :
ça a marché très bien ; Je trouve ce code très simple et très éfficace.C'est un très beau code.
Merci bbil

J'ai testé les code de Megaxel :
ça a marché très bien aussi ; J'ai beaucoup aimer le côté très riche et très instructifs .... en utilisant des termes comme MaCellule.Column ,MaCellule.Value ,MaCellule.Offset(0,2),.....
Ces termes me permet de comprendre de plus en plus le VBA/Macro parce que Moi je suis plûtôt de formation C/C++.
En voyant ces termes on immagine bien des objets et des méthodes(fonctions membres).
Merci Megaxel...

Est-ce que, de là où vous êtes, vous pouvez m'entendre ronronner de plaisir? :D
Allez, un petit click sur le bouton "Résolu", en bas à gauche, et tout le monde sera ravi.

Ah Oui!! Mais Bien sûre !
Merci...