Résolu Aide macro date et montant svp !!

[outilsetprocess]

Bonjour à tous, j'ai besoin d'aide s'il vous plaît pour la création d'une macro qui donne automatiquement la date dans une cellule quand je saisis dans une autre

Déjà l'image :

Vous devez être connecté pour voir les liens.

Ce que je voudrais faire :

Dès que je saisis dans la ligne 23 (montant perçu 1) un montant, la date 1 de la même colonne affiche la date du jour où j'ai saisi le montant, de même pour les 2, 3, 4, 5 etc ...

Ce que j'ai comme code :

Private Sub Worksheet_Change(ByVal Target As Range)

Dim CellDate As Range
If Target.Row = 23 Then
For Each CellDate In Target.Cells
If CellDate.Row = 23 Then
If CellDate.Value > 0 Then
Cells(CellDate.Column, "11").Value = Date
Else
Cells(CellDate.Column, "11").Value = ""
End If
End If
Next
End If

Voilà et ça marche pas

Aussi, j'aimerais créer une macro mais je sais pas comment m'y prendre qui remplirait automatiquement la case "Statut", par exemple, si la récurrence est de 4, il faut 4 dates remplies dans la même colonne (donc 4 montants perçus) pour que ça enlève "Non-perçues" de la case Statut et que ça affiche "Perçues"

Voilà merci

 

[drul]

Salut,
Boudjou que tu te complique la vie avec ton tableau !
il serait tellement plus simple de travaillé en colone, avec la date X à côté du montant X ...
Sinon tu auras toujours 12 date ?

Pour ton histoire de statut, une simple formule Excel devrait suffire. La date et le montant sont rentré dans quelle colonne ? D ou E ?

 

[outilsetprocess]

Oui je sais mais je dois le faire en ligne pour des raisons de présentation :/
Non je n'aurai pas toujours 12 dates, quand seulement 3 doivent arriver en sélectionnant Quadrimestriel, les autres se grisent automatiquement via mise en forme conditionnelle, pareil pour 6 ou 2 ou 1 ou 5 etc ...

La date et le montant sont rentrés dans les colonnes E, F, G etc ...

Sinon ce que j'aurais voulu faire, c'est travailler en ligne avec en dessous de la rubrique "dossier" tout qui se déroule mais ça ne semble pas possible

 

[drul]

Ok, mais ton tableau est fixe ? (Montant 1 est TOUJOURS en 23 ?)

 

[outilsetprocess]

Ah oui toujours c'est bon il ne manque aucune ligne

 

[drul]

Ok que dirais-tu de ça ?

Private Sub Worksheet_Change(ByVal Target As Range)

Dim aCell As Range
For Each aCell In Target.Cells
    If (aCell.Row >= 23) And (aCell.Row <= 34) And (aCell.Column > 4) Then
            aCell.Offset(-12, 0).Value = Date
    End If
Next
End If

Edit: pour le statut en E10 tu mets:

=IF(COUNTA(E11:E22)>=E9;"Perçue";"Non Perçue")

 

[outilsetprocess]

Ouaip ça marche du feu de dieu merci beaucoup !!!