Discussion :

[julio44]

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

[Marc-L]

Bonjour, bonjour !

Manque un « s » à Row ‼

Ne pas confondre la propriété Row et la collection Rows …


__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[julio44]

Merci Marc-L ça ne plante plus !

En revanche, avec mon "Cells(1)", je voulais sélectionner tout la ligne et non pas la première cellule de la première ligne (car l'argument colonne est facultatif). Tu peux m'éclairer sur ce point ?

[Marc-L]

Cells() est cellule tandis que Rows() est une ligne …


Ne pas oublier l'ami du débutant : le Générateur de documents livrant une base de code sur un plateau !

[julio44]

Ça ne marche pas.
En faisant ça j'obtiens des lignes vides :

Code :

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

Sheets("mafeuille2").Rows(i) = myRange.Rows(1)

alors qu'en faisant ça (et donc mes 7 lignes d'un coup, ce que je ne veux pas) j'ai bien ce que je veux mais * 7

Code :

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

[myRange].Copy Destination:=Sheets("mafeuille2").Range("A" & i)

Je n'ai pas compris ta deuxième partie de message

Ne pas oublier l'ami du débutant : le Générateur de documents livrant une base de code sur un plateau !

[Marc-L]

L'objet sans sa propriété c'est comme une voiture sans volant !

Sheets("mafeuille2").Rows(i).Value = MyRange.Rows(1).Value

[julio44]

cool tout est ok

Merci, je passe la discussion en résolu.