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

[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

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

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

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

[bozitouni]

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

Merci