Bonjour à tous.
Je reviens vers vous pour quelques modifications de macro...
On m'a posté il ya deux jours une macro qui correspondait parfaitement à mes besoins, mais après utilisation je me suis aperçu que si je changé une donnée dans ma feuille minute, la mise à jour des données renvoyé en feuille DQE ne se faisait pas. y aurait-il un moyen pour qu'un changement dans ma feuille minute se répercute automatiquement dans le DQE sans que j'ai à retaper le code en colonne A de la feuille DQE.
ci-dessous la macro utilisée et je vous joint le fichier complet.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim myCell As Range, derLig As Long, c As Long, myRange As Range, Lrow As Long
If Target.Count > 1 Then Exit Sub
Lrow = Range("A" & Rows.Count).End(xlUp).Row
Set myRange = Range("A10")
For a = 11 To Lrow
If Cells(a, 1).Interior.Color = 15921906 Then
Set myRange = Application.Union(Cells(a, 1), myRange)
End If
Next a
If Not Intersect(Target, myRange) Is Nothing And Not IsEmpty(Target) Then
If Target = "1,1,000" Then Target.Offset(, 5).ClearContents: Exit Sub
With Sheets("Minute")
derLig = .Range("A" & Rows.Count).End(xlUp).Row
Set myCell = .Columns(1).Find(Target, , xlValues, xlWhole)
If Not myCell Is Nothing Then
c = myCell.Row
Do Until (.Cells(c, "M").Font.Color = vbRed Or c = derLig) And .Cells(c, "M") > 0
c = c + 1
Loop
Target.Offset(, 5) = .Cells(c, "M")
Else
MsgBox "Couillon!!! le n° n'existe pas !"
Target.Offset(, 5).ClearContents
End If
End With
ElseIf Not Intersect(Target, myRange) Is Nothing And IsEmpty(Target) Then
Target.Offset(, 5).ClearContents
End If
End Sub
merci pour les futurs réponses