Effacer des lignes automatiquement

[RONIBO]

Bonsoir,

J'ai besoin de votre soutien afin de finaliser mon projet.

J'ai mon tableau qui va me permettre de passer commande

Chaque debut de semaine j'efface toute les cellules verte puis je saisie les nouvelles données.

Je souhaiterai le faire en un click.

Des l'ouverture de fichier un message apparait, une fois avoir cliqué sur OK, je souhaiterai qu'un message apparait en me disant ceci :

Est-ce une nouvelle Commande ?

OUI ou NON

Une fois cliqué sur oui, je veux qu'il efface toute les cellules en vert

J'attends vos retour et à très bientôt 🙂

 

[RONIBO]

Re : Effacer des lignes automatiquement

Personne a une idée?

 

[phlaurent55]

Re : Effacer des lignes automatiquement

Bonjour Ronibo,

avec ce code:

Private Sub Workbook_Open()
If MsgBox("Est-ce une nouvelle commande", vbOKCancel) = vbOK Then
Range("I12:I25,K12:K25,M12:M25,O12:O25,S12:S25,U12:U25,Y12:Y25,H30:Y43").ClearContents
End If
MsgBox "Veuillez compléter les cellules de couleur verte." & Chr(10) & "N'oubliez pas de saisir les conso dans la rubrique (Conso) située en bas a gauche." & Chr(10) & "Pour la partie (Vérification des DLC) elles sont à saisir pendant les inventaires stocks."
End Sub



Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.Save
End Sub

à+
Philippe

 

[RONIBO]

Re : Effacer des lignes automatiquement

Bonjour Ronibo,

avec ce code:

Private Sub Workbook_Open()
If MsgBox("Est-ce une nouvelle commande", vbOKCancel) = vbOK Then
Range("I12:I25,K12:K25,M12:M25,O12:O25,S12:S25,U12:U25,Y12:Y25,H30:Y43").ClearContents
End If
MsgBox "Veuillez compléter les cellules de couleur verte." & Chr(10) & "N'oubliez pas de saisir les conso dans la rubrique (Conso) située en bas a gauche." & Chr(10) & "Pour la partie (Vérification des DLC) elles sont à saisir pendant les inventaires stocks."
End Sub



Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.Save
End Sub

à+
Philippe

Re,

Merci beaucoup Philippe

C'est exactement se que je voulais,

J'aimerez qu'il efface aussi le cellules vert de la feuille "conso" c'est possible?

 

[phlaurent55]

Re : Effacer des lignes automatiquement

Re,

avec ceci:

Private Sub Workbook_Open()
If MsgBox("Est-ce une nouvelle commande", vbOKCancel) = vbOK Then
Sheets("Crudi").Range("I12:I25,K12:K25,M12:M25,O12:O25,S12:S25,U12:U25,Y12:Y25,H30:Y43").ClearContents
Sheets("Conso").Range("B2:B15").ClearContents
End If
MsgBox "Veuillez compléter les cellules de couleur verte." & Chr(10) & "N'oubliez pas de saisir les conso dans la rubrique (Conso) située en bas a gauche." & Chr(10) & "Pour la partie (Vérification des DLC) elles sont à saisir pendant les inventaires stocks."
End Sub

à+
Philippe

 

[RONIBO]

Re : Effacer des lignes automatiquement

C'est parfait, merci beaucoup, bonne soirée