Bonjour,

J'ai fait la petite macro suivante, j'ai un petit soucis, je souhaiterai utiliser toujours la meme constante ("a" par exemple) car j'utilse ce meme code pour plusieurs données et a la fin j'arrive a avoir comme constante "aw".
De plus je demande dans cette macro d'aller copier une valeur dans une cellule, est il possible d'inscrire directement une valeur dans la cellule cible. Ce qui m'eviterai d'avoir un tableau intermediaire avec mes valeurs a copier.

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
Dim a As Integer
        a = 2
        While Len(Sheets("liste_es").Cells(a, 11).Value) > 0
              If Sheets("liste_es").Cells(a, 11) = "LE108A-3" Then
                If Sheets("liste_es").Cells(a, 9) = 0 Then
                 Sheets("datas").Range(Sheets("datas").Cells(1, 3), Sheets("datas").Cells(1, 3)).Copy
                 Sheets("liste_es").Cells(a, 14).Select
                 ActiveSheet.Paste
                End If
              End If
              a = a + 1
        Wend
 
    ......
 
Dim aw As Integer
        aw = 2
        While Len(Sheets("liste_es").Cells(aw, 11).Value) > 0
              If Sheets("liste_es").Cells(aw, 11) = "AS111-2" Then
                If Sheets("liste_es").Cells(aw, 9) = 0 Then
                 Sheets("datas").Range(Sheets("datas").Cells(48, 3), Sheets("datas").Cells(48, 3)).Copy
                 Sheets("liste_es").Cells(aw, 14).Select
                 ActiveSheet.Paste
                End If
              End If
              aw = aw + 1
        Wend