besoin d'aide pour macros excel

**math31130** · 27/08/2011, 17h33

Bonjour,

je me lance dans un tableur excel et j'aurais besoin de vos conseils et de votre aide pour l'optimiser et gagner du temps.

Le tableau permet le suivi du montant mensuel à régler par des clients. J'ai donc créé pour chaque clients une liste déroulante "payé ?" oui/non/vide. Le choix "vide" étant par défaut. Le fichier que j'ai créé est en PJ.

L'idée serait que passée une certaine date, les clients n'ayant pas réglés (c-a-d choix liste déroulante vide) passent automatiquement en "NON" pour m'indiquer ceux qui n'ont pas encore payé.

Si vous aviez une astuce pour réaliser cela, merci beaucoup !

Mathieu

Fichiers joints dans les discussions

**helas** · 28/08/2011, 08h22

Bonjour,
Je vois la solution dans ce code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub Workbook_Open()
 Dim lignemax As Integer, ligne As Integer
 Dim sh As Worksheet
 
 Set sh = ActiveWorkbook.Sheets("Feuil1")
 sh.Activate
 lignemax = Selection.SpecialCells(xlCellTypeLastCell).Row
 For ligne = 2 To lignemax
  If sh.Cells(ligne, 3) = "" Then
   If sh.Cells(ligne, 2) < sh.Range("A1") Then
    sh.Cells(ligne, 3) = "non"
   End If
  End If
 Next ligne
End Sub

Sur l'événement Ouverture du classeur, les dates en colonne 2 sont comparées avec la datede référence en A1, si elles sont inférieures, non est écrit dans la cellule de la colonne 3
code à adapter , les données à modifier sont en bleues

**math31130** · 28/08/2011, 10h42

Bonjour,

Merci pour cette réponse rapide. Malheureusement, mes connaissances actuelles ne me permettent pas de cerner précisément la solution. Comment dois-je rentrer ce code ? et surtout comment l'appliquer ?

Merci pour votre aide

**Didier Gonard** · 28/08/2011, 11h26

Bonjour,

il y a un commencement à tout,

vois ce lien http://bidou.developpez.com/article/VBA/ "l'environnement de développement" etc...

cordialement,

Didier