Bonjour à tous,
Je possède un code qui me permet de récupérer depuis l'onglet 'Notes' des chiffres et les noms que je place en colonne B et C (à partir de la 9è ligne). J'aimerais tout simplement dupliquer la macro et faire exactement pareil mais en plaçant en D et E au lieu de B & C et en modifiant la boucle "For i = 11 To 1000 Step 8" en "For i = 14 To 1000 Step 8".
Je souhaite que les "2" macros s’exécutent en même temps (ne pas remplacer la macro présente).
Merci!
Je possède un code qui me permet de récupérer depuis l'onglet 'Notes' des chiffres et les noms que je place en colonne B et C (à partir de la 9è ligne). J'aimerais tout simplement dupliquer la macro et faire exactement pareil mais en plaçant en D et E au lieu de B & C et en modifiant la boucle "For i = 11 To 1000 Step 8" en "For i = 14 To 1000 Step 8".
Je souhaite que les "2" macros s’exécutent en même temps (ne pas remplacer la macro présente).
Merci!
VB:
Private Sub Worksheet_Change(ByVal Target As Range)
lastline_name2 = Feuil8.Range("B" & Rows.Count).End(xlUp).Row
If Not Intersect(Target, Feuil8.Range("C5")) Is Nothing Then
If lastline_name2 > 9 Then
Range(Cells(9, 2), Cells(lastline_name2, 3)).ClearContents
End If
For i = 11 To 1000 Step 8
If Range("C5") = Sheets("Notes").Cells(15, i) Then
lastline_notes2 = Sheets("Notes").Range("A" & Rows.Count).End(xlUp).Row
For j = 19 To lastline_notes2
If IsNumeric(Sheets("Notes").Cells(j, i)) = True Then
If Sheets("Notes").Cells(j, i) >= Feuil8.Range("C3").Value Then
lastline_name2 = Range("B" & Rows.Count).End(xlUp).Row
Cells(lastline_name2 + 1, 2) = Sheets("Notes").Cells(j, 2)
Cells(lastline_name2 + 1, 3) = Sheets("Notes").Cells(j, i)
End If
End If
Next j
End If
Next i
End If
End Sub