Boucle sur données indexées

Version imprimable

22/04/2015, 16h09
bozitouni

Boucle sur données indexées

Bonjour,

Je débute en VBA mais je bloque sur un truc :
J'ai des données du type A1, A2, ...., A10.
Ces valeurs doivent être recopiées dans des cellules sur une ligne (de D11 à M11).
Comment pourrai-je le faire avec une boucle du type For i = 1 to 10.
Merci d'avance.

Bonjour,

Tu peux tester ce code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Sub test()
 
Dim i As Integer
Dim j As Integer
 
For i = 1 To 10
 
        Cells(11, j + 4) = Range("A" & i)
        j = j + 1
Next i
 
End Sub

22/04/2015, 16h17
joe.levrai
Bonjour,

il faut simplement retenir qu'une cellule possède 2 coordonnées : Ligne et Colonne
On peut, en VBA, faire référence à une cellule ainsi : Worksheets("Nom de la feuille").Cells(N° Ligne, N°Colonne)

dans ton exemple, les cellules en A ont leur ligne qui change à chaque fois
les cellules de destinations sont sur la même ligne, ce sont les colonnes qui changent

on va donc utiliser la boucle i = 1 to 10 pour affecter à chaque changement de ligne (en A), un changement de colonne (dans la plage de destination)

voici un exemple à adapter
Code:

1 2 3 4 5 6 7 8 9 10 11 Sub Exemple() Dim i As Long With ThisWorkbook.Worksheets("Feuil1") For i = 1 To 10 .Cells(11, i + 3) = .Cells(i, 1) Next i End With End Sub
22/04/2015, 16h29
bozitouni

Merci mais ça ne marche pas. Il me sort une erreur d'exécution '1004' (La méthode 'Range' de l'objet '_global' a échoué).
C'est du chinois pour moi

Merci joe.levrai, mais elles sont où mes valeurs A1, A2, A3, ...., A10 (qui peuvent être aussi (DIAMETRE1, DIAMETRE2, ..., DIAMETRE10).
Cdlt

j'ai annoté le code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub Exemple()
 
Dim i As Long
 
' on fait référence à la feuille avec un With
' ce qui évite de répéter cette référence jusqu'au End With
With ThisWorkbook.Worksheets("Feuil1")
 
    ' on fait varier i de 1 à 10
    For i = 1 To 10
        ' ici ce sont les cellules de destination (de D11 à M11)
        .Cells(11, i + 3) = .Cells(i, 1)
                            ' ici ce sont les cellules sources (de A1 à A10)
    Next i
End With
 
End Sub

22/04/2015, 16h42
bozitouni

joe,levrai

je n'ai pas de cellules sources.
Les valeurs A1, A2, ... sont des valeurs que j'introduis dans une saisie à partir d'une userform. Elles sont indexées de 1 à 10.
Je voudrai que ces valeurs soient recopiées dans des cellules de la ligne 11 (D11 à M11).
Voilà.
Merci
22/04/2015, 17h10
joe.levrai

Tes données A1 ... A10 sont inscrites où exactement ?

ta question initiale laissait à entendre que tu parlais de Cellules A1 à A10
22/04/2015, 17h16
bozitouni

Non joe.levrai
EN fait, j'avais pris comme exemple A1, A2, ...
Mais ce sont des valeurs que j'introduis dans des TextBox qui sont nommées HBA1, HBA2, HBA3, ....
Après saisies, je voudrai que ces valeurs soient recopiées dans des cellules d'une même ligne.
Au final, je veux éviter ça :

[D11] = HBA1
[E11] = HBA2
[F11] = HBA3
[G11] = HBA4
[H11] = HBA5
[I11] = HBA6
[J11] = HBA7
[K11] = HBA8
[L11] = HBA9

Cdlt
22/04/2015, 17h32
joe.levrai
Les Textbox sont dans un Userform je présume ?

Partons du principe que la macro doit se déclencher quand on clic sur un Bouton Appelé "Validation"
Le code est à placer dans le Userform directement

Et si c'est pas ça encore une fois, soit plus précis dans tes descriptions, nous n'avons pas le classeur sous les yeux et on peut pas tout deviner ;)
Code:

1 2 3 4 5 6 7 8 9 Private Sub Validation_Click() Dim i As Long For i = 1 To 10 ThisWorkbook.Worksheets("Feuil1").Cells(11, i + 3) = Me.Controls("HBA" & i) Next i End Sub
22/04/2015, 17h43
bozitouni

C'est exactement ça, ça marche nickel.
Merci beaucoup joe. Je ne connaissais pas le ME.Controls !

Merci