Microsoft 365 Notifications excel dans une feuille récapitulative

[Zifox]

Bonjour, à tous,
Je cherche à créer un système de notification sur une feuille par rapport à des dates et numéros de machines contenus dans deux autres feuilles.

Je voudrais que les dates à moins de 21 j dans la feuille 2 colonne k et le numéro de parc qui va avec colonne d soit reporté dans la feuille 1, pour la colonne k de la feuille 2 dans la colonne h de la feuille 1, et la colonne d de la feuille 2 dans la colonne j de la feuille 1 et pour "les données de la feuille 2" que cela soit marqué ("MINES") dans la feuille 1 colonne k. Et il faut faire de même pour la feuille 3 c'est à dire si on est à moins de 21 j de la date de la colonne I, reporter cette date dans la feuille 1 dans la colonne h avec le numéro de parc de la feuille 3 colonne d dans la feuille 1 avec ici la notification en colonne I de la feuille 1 (VGP).

Je joins un fichier vierge avec j'ai essayé en code vba et en formule mais rien ne fonctionne.

J'ai essayé une macro qui est présente dans la feuil1

Pas besoin de me donner toute la réponse je veux juste comprendre comment faire.

Merci d'avance

 

[Zifox]

D'accord merci pour cette solution !

 

[Zifox]

en évitant de lancer la macro à chaque activation
juste avec un bouton
et cette macro doit d'abord effacer le tableau

Dim i As Long
On Error GoTo Fin
If InputBox("Veuillez saisir votre mot de passe") <> "0000" Then
        MsgBox ("Le Mot de passe est faux")
        Exit Sub
End If

With Sheets("feuille2")
ActiveSheet.Unprotect ("0000")
Range("D" & ComboBox1.ListIndex + 9).Select
LastLine = Range("H" & Rows.Count).End(xlUp).Row

 

Range("A" & LastLine & ":M" & LastLine).Select
 
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorDark2
        .TintAndShade = -0.249977111117893
        .PatternTintAndShade = 0
    End With
 
Range("M" & LastLine) = Format(Now(), "DD-MM-YYYY")

 For i = 9 To 50000 ' => pour lister les numero de parc
            ComboBox1.AddItem Cells(i, 4)
        Next

Verrouiller_la_feuille

ComboBox1 = ""
End With
Exit Sub
Fin:
MsgBox ("ERREUR : Veuillez Recommencer")
end sub

J'ai essayé ce code (ci-dessous) pour mettre une ligne en gris avec une date en colonne M dans ma feuille 2, sauf que j'ai du mal à comprendre comment sélectionner toute la ligne en fonction du numéro de ma combobox (qui est le numéro de mes machines de la colonne D dans la feuille 2). Peux-tu m'aider de nouveau s'il te plaît ?
Merci d'avance.

Dim i As Long
On Error GoTo Fin
If InputBox("Veuillez saisir votre mot de passe") <> "0000" Then
MsgBox ("Le Mot de passe est faux")
Exit Sub
End If

With Sheets("feuille2")
ActiveSheet.Unprotect ("0000")
Range("D" & ComboBox1.ListIndex + 9).Select
LastLine = Range("H" & Rows.Count).End(xlUp).Row



Range("A" & LastLine & ":M" & LastLine).Select

With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorDark2
.TintAndShade = -0.249977111117893
.PatternTintAndShade = 0
End With

Range("M" & LastLine) = Format(Now(), "DD-MM-YYYY")

For i = 9 To 50000 ' => pour lister les numero de parc
ComboBox1.AddItem Cells(i, 4)
Next

Verrouiller_la_feuille

ComboBox1 = ""
End With
Exit Sub
Fin:
MsgBox ("ERREUR : Veuillez Recommencer")
End sub

 

[vgendron]

bonjour
il faudrait que tu repostes ton fichier qui contient toutes les macros et feuilles

 

[Zifox]

bonjour
il faudrait que tu repostes ton fichier qui contient toutes les macros et feuilles

Bonjour, ok et j'ai réussi j'ai compris mon problème mercii!