Bonjour à tous,

Dans le cadre d'une petite macro, je sèche sur la manip suivante :
Je souhaiterai remplacer une ligne identifiée par 2 critères, par une autre issue d'une plage nommée.

A noter que ma plage nommée contient 7 lignes, et la msgbox demande à l'utilisateur s'il souhaite copier la première ligne ou toutes.

La macro plante sur la ligne
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Sheets("mafeuille2").Row(i) = myRange.Cells(1)
En vous remerciant !

Voici mon 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
18
19
20
21
22
23
24
25
26
27
 
Private Sub ma_macro()
 
Dim myRange As Range
Dim num_version As Integer
Dim yesno As Integer
 
Set myRange = ThisWorkbook.Sheets(mafeuille).Range(mazonenommée)
 
num_version = InputBox("Numéro de la version à exporter")
yesno = MsgBox("Exporter seulement un run (Yes) ou tous les runs (No) ?", vbYesNo)
 
If yesno = vbYes Then
Workbooks.Open ("mon_fichier.xls")
derlig = Sheets("mafeuille2").Range("A65536").End(xlUp).Row
 
    For i = 1 To derlig
        If Sheets("mafeuille2").Range("F" & i).Value = num_version Then
            If Sheets("mafeuille2").Range("E" & i).Value = 1 Then
                Sheets("mafeuille2").Row(i) = myRange.Cells(1)
            End If
        End If
    Next i
 
End If
 
End Sub