Discussion :

[life is magic]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Megaxel]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Attention, c'est Cells(ligne,colonne)

[Megaxel]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[life is magic]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[SfJ5Rpw8]

ta condition de test

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Megaxel]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[life is magic]

Bonjour bbil et Megaxel
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...

[Megaxel]

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

[life is magic]

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