Discussion :

[Manu3100]

Bonjour à tous,

Je suis bloqué sur une loop en VBA. Le code ci dessous va chercher si dans la colonne A il y le meme code que dans la colonne K. Si oui alors les information correspondante dans les colonnes L:N vont être copier est coller dans les colonnes B de la ligne correspondante.

Mon problème est que je n'arrive pas a faire un loop pour faire passer de la ligne 1 à 10.

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
18
19
20
21
22
23
24
25
26
27
28
29
Sub manu()
 
Dim MDMcode As Integer
Dim celluletrouvee As Range
Dim ligne As Integer
Dim col As Integer
Dim i As Integer
 
 
For i = 1 To 10
 
MDMcode = Cells(1, 11)
 
Set celluletrouvee = Range("A1:A11").Find(MDMcode, lookat:=xlWhole)
 
    If celluletrouvee Is Nothing Then
 
        Else
 
    Sheets("Sheet1").Range("L1:N1").Select
 
        Selection.Copy            Cells(celluletrouvee.Row, celluletrouvee.Column + 1).Select
                ActiveSheet.Paste
 
End If
 
Next i
 
End Sub

Merci de votre aide!!!Loop VBA.xlsm

[Nako_lito]

salut,

tu veux faire une boucle sur les 10 lignes ou tu veux faire une boucle qui saute de 10 en 10 ?