Discussion :

[Liunpeu]

Bonjour à tous,

Je suis vraiment en train de tourner en rond avec ma macro et j'ai besoin d'un coup de main pour y arriver

Dans l'exemple joint, je souhaite programmer une macro qui, sans modifier l'onglet 1, fait varier la cellule A5 entre toutes les valeurs de la colonne A de l'onglet 2; et qui me copie (en valeur) les cellules B5/C6/D7/E8 et F9 de l'onglet 1 pour chacune des valeurs de la variable.
J'espère que c'est suffisamment clair.


si vous avez des conseils ou des solutions...
merci pour votre aide

[gFZT82]

Bonjour,

Voici une solution

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
Option Explicit
Sub Test()
Dim Ws1 As Worksheet
Dim Ws2 As Worksheet
Dim DerLig2 As Long, i As Long
Dim MaPlage As Range, Cel As Range
    Set Ws1 = Worksheets("Sheet1")
    Set Ws2 = Worksheets("Sheet2")
    i = 3
    With Ws2
        DerLig2 = .Range("A" & .Rows.Count).End(xlUp).Row
        Set MaPlage = .Range("A3:A" & DerLig2)
        For Each Cel In MaPlage
            Ws1.Range("A5") = Cel.Value
            .Range("B" & i) = Ws1.Range("B5")
            .Range("C" & i) = Ws1.Range("C6")
            .Range("D" & i) = Ws1.Range("D7")
            .Range("E" & i) = Ws1.Range("E8")
            .Range("F" & i) = Ws1.Range("F9")
            i = i + 1
        Next Cel
    End With
    Set Ws1 = Nothing
    Set Ws2 = Nothing
    Set MaPlage = Nothing
End Sub

Cordialement.

[Liunpeu]

Merci beaucoup!!