XL 2019 Macro vba dupliquer ligne selon conditions

nikki · 5 Mai 2020

Bonjour à tous,

Je souhaiterais créer une macro (je ne m'y connais quasiment pas) me permettant de dupliquer des lignes de mon tableau selon certaines conditions.
Je vous mets un exemple, ce sera largement plus parlant.
J'espère que l'un d'entre vous pourra m'aider.
J'ai deux onglets me permettant de créer le 3ème qui lui sera mon tableau de résultat.
Merci à tous et bonne soirée.

GALOUGALOU · 6 Mai 2020

bonjour nikki
cette macro fait ce que vous souhaitez.
un bouton dans la 1er feuille déclenche la macro
pour un test effacer la feuille résultat, déclencher la macro.

VB:

Sub ventilation()
Dim F1 As String
Dim F2 As String
Dim f3 As String
F1 = Sheets("Données").Name
F2 = Sheets("Critères").Name
f3 = Sheets("Résultat").Name
Sheets(f3).Range("A2:C20").ClearContents 'adapter la plage de cellules

Sheets(F2).Select
li_1 = Sheets(F1).Cells(36000, 1).End(xlUp).Row
li_2 = Sheets(F2).Cells(36000, 1).End(xlUp).Row
ligne = Sheets(f3).Cells(36000, 1).End(xlUp).Row + 1

For i_2 = 2 To li_2
For i_1 = 2 To li_1

  If Sheets(F2).Range("A" & i_2) = Sheets(F1).Range("A" & i_1) Then

   Sheets(f3).Cells(ligne, 1) = Sheets(F2).Cells(i_2, 2)...

GALOUGALOU · 6 Mai 2020

bonjour nikki
cette macro fait ce que vous souhaitez.
un bouton dans la 1er feuille déclenche la macro
pour un test effacer la feuille résultat, déclencher la macro.

VB:

Sub ventilation()
Dim F1 As String
Dim F2 As String
Dim f3 As String
F1 = Sheets("Données").Name
F2 = Sheets("Critères").Name
f3 = Sheets("Résultat").Name
Sheets(f3).Range("A2:C20").ClearContents 'adapter la plage de cellules

Sheets(F2).Select
li_1 = Sheets(F1).Cells(36000, 1).End(xlUp).Row
li_2 = Sheets(F2).Cells(36000, 1).End(xlUp).Row
ligne = Sheets(f3).Cells(36000, 1).End(xlUp).Row + 1

For i_2 = 2 To li_2
For i_1 = 2 To li_1

  If Sheets(F2).Range("A" & i_2) = Sheets(F1).Range("A" & i_1) Then

   Sheets(f3).Cells(ligne, 1) = Sheets(F2).Cells(i_2, 2)
    Sheets(f3).Cells(ligne, 2) = Sheets(F1).Cells(i_1, 2)
   Sheets(f3).Cells(ligne, 3) = Sheets(F1).Cells(i_1, 3)
 
ligne = ligne + 1
End If
Next
Next
MsgBox ("modifications effectuées")
Sheets(f3).Select
Range("A1").Select

End Sub

cordialement
galougalou

nikki · 6 Mai 2020

Bonjour GALOUGALOU, ton code fonctionne très bien. Encore un grand merci pour m'avoir répondu aussi rapidement.
Je te souhaite une excellente journée.
Encore merci

XL 2019 Macro vba dupliquer ligne selon conditions

nikki

XLDnaute Nouveau

Pièces jointes

GALOUGALOU

GALOUGALOU

XLDnaute Accro

Pièces jointes

nikki

XLDnaute Nouveau

Discussions similaires