Discussion :

[hollye]

Bonjour j'ai une macro à effectuer mais je suis bloquée dans le code .

Il faut créer une macro qui permet d'ajouter une feuille:

- la renommer en " macro4"
-cette macro devra copier les lignes relatives aux produits dont le prix est supérieur à 10 d'une feuille qui s'apelle "produit "
( dans la feuille produit , les prix sont en colonne E) vers cette feuille.

cette macro devra s'arrêter du fait d'une boucle conditionnelle

J'avais commencé comme ça mais ça ne fonctionne pas (erreur d'application) . Je suis bloquée au niveau du copier coller d'une ligne à chaque fois :

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
Sub macro7()
 
Dim dernligne As Long
Dim cel As Range
Dim maplage As Range
Dim i As Long
 
 
Sheets.Add
ActiveSheet.Name = "macro3"
Sheets("produit").Select
 
dernligne = Range("E1048576").End(xlUp).Row
Set maplage = Range("E2:E" & dernligne)
 
  With Sheets("produit")
 
  For Each cel In maplage
  cel = prix
  If prix > 10 Then maplage.Rows(cel).Select
Sheets("macro3").Insert Shift:=xlDown
 
Next
  End With
 
End Sub

Merci de votre aide .

[casefayere]

Bonjour,

non testé, essayes

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
Sub macro7()
 
Dim dernligne As Range
Dim cel As Range
Dim maplage As Range
 
Sheets.Add
ActiveSheet.Name = "macro4"
With Sheets("produit")
  Set dernligne = .Range("E" & .Rows.Count).End(xlUp)
  Set maplage = .Range("E2", dernligne)
  For Each cel In maplage
    If cel > 10 Then Rows(cel.Row).Copy Range("A" & Rows.Count).End(xlUp)(2, 1)
  Next cel
End With
End Sub