Problème de rédaction de macro

Re : Problème de rédaction de macro

Bonjour chris,

un petit fichier donnerai du sens à ce code.

car en fonction du module où tu l'as écris cela peut être complétement faux

Re : Problème de rédaction de macro

camarchepas à dit:

Bonjour chris,

un petit fichier donnerai du sens à ce code.

car en fonction du module où tu l'as écris cela peut être complétement faux

Cliquez pour agrandir...

Ok je te mets un fichier test en pièce joint
J'ai désactivé la macro car il y a un pb de syntaxe

Merci

Re : Problème de rédaction de macro

Bonjour,

Je t'écris depuis pleumeur bodoux , où seuls les corbeaux arrivent à ravitailler .

Donc excuses de la mise en forme et de ne pas joindre le fichier, le vieux coucou que j'utilise n'est pas du tout à jour et ne permet pas de faire ce que je souhaiterais , néanmoins voici une proposition de code que tu pourras ensuite replacer dans l'événementiel démarrage.

mais surtout si tu débutes , je te conseille de ne jamias mettre au point directement dans ces modules spéciaux , et plutot de travailler dans un module standard.

Voici le code :


' A l 'ouverture du fichier
'Private Sub Workbook_Open()
'Ok, pour les tests autant les réaliser dans un module classique .
'une fois ok , souvent un simple appel via l'événementiel de ce code est alors plus simple

Sub Ouverture()
'Déclaration des variables
Dim LigneFin As Long
Dim Boucle As Long
Dim DateLimiteDepot As String
'Sélection de la feuille "Base de données"
Sheets("Base de données").Select
'Calcul de la derniére ligne renseignée de la feuille sur la colonne A
LigneFin = Range("A" & Rows.Count).End(xlUp).Row

'Pour l'ensemble des lignes de la 7° à la derniére
For Boucle = 7 To LigneFin

' Si la valeur de la colonne U est vide
' ou différente de la valeur "Attente retour" alors exit sub
If Range("U" & Boucle) = "Attente retour" And Range("U" & Boucle) <> "" Then
' Si la date positionnée dans la colonne 14 (date limite de dépôt)
' est inférieure ou égale à la date du jour -10

'Lecture de la date de limite de dépot et calcul de la date limite virtuelle
DateLimiteDepot = DateAdd("d", -10, Range("N" & Boucle))
'c'est à dire que la date limite de dépôt sera dépassée dans 10 jours)
If DateDiff("d", DateLimiteDepot, Date) > 0 Then
Cells(Boucle, 15).Value = "trop tard"
End If
End If
'incrémente boucle, si encore dans limite alors réitére la boucle
Next Boucle

End Sub

Re : Problème de rédaction de macro

Bonjour à tous

chris6999
Inutile de multiplier les fils pour une même question (voir la charte du forum)
https://www.excel-downloads.com/threads/macro-avec-conditions-a-louverture-du-fichier.197619/
Il suffit de faire un up (se répondre à soi-même) pour réactualiser un fil de discussion.
Sinon c'est la pagaille, on ne sait plus dans quel fil il faut répondre. 😉