Votre question
Résolu

Aide macro date et montant svp !!

Tags :
  • Creation
  • Programmation
  • Image et Son
Dernière réponse : dans Programmation
25 Octobre 2016 14:10:09

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 :

http://hpics.li/7ecc9a8

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 :) 

Autres pages sur : aide macro date montant svp

a c 79 L Programmation
26 Octobre 2016 13:27:03

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 ?
m
0
l
26 Octobre 2016 13:47:39

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
m
0
l
Contenus similaires
a c 79 L Programmation
26 Octobre 2016 13:52:59

Ok, mais ton tableau est fixe ? (Montant 1 est TOUJOURS en 23 ?)
m
0
l
26 Octobre 2016 13:59:34

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

Meilleure solution

a c 79 L Programmation
26 Octobre 2016 14:19:29

Ok que dirais-tu de ça ?
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2.  
  3. Dim aCell As Range
  4. For Each aCell In Target.Cells
  5. If (aCell.Row >= 23) And (aCell.Row <= 34) And (aCell.Column > 4) Then
  6. aCell.Offset(-12, 0).Value = Date
  7. End If
  8. Next
  9. End If


Edit: pour le statut en E10 tu mets:

=IF(COUNTA(E11:E22)>=E9;"Perçue";"Non Perçue")
partage
26 Octobre 2016 14:48:33

Ouaip ça marche du feu de dieu merci beaucoup !!!
m
0
l