Discussion :

[bozitouni]

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.

[j0joo]

Bonjour,

Tu peux tester ce code :

Code :

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

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

[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 :

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

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

[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

[joe.levrai]

j'ai annoté le code

Code :

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

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

[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

[joe.levrai]

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

ta question initiale laissait à entendre que tu parlais de Cellules A1 à A10