date conditionnelle

Z

zouamingueur

XLDnaute Nouveau

• 3 Avril 2019

• #2

Bonjour, l'échéance est prise en compte 15 jours après la date de départ et à condition que ce soit un mardi ou un vendredi. Si après 15 jours c'est mardi ou vendredi, pas de problème. Par contre si après 15 jours on se retrouve après mardi, il faut compter vendredi. Si après 15 jours on se retrouve après vendredi, il faut alors attendre vendredi. Les dates de départ dépendent de la date d'adhésion du membre. Les dates de départ c'est à n'importe quel jour se la semaine selon la date d'adhésion du membre. En résumé les échéances c'est mardi ou vendredi Merci

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 3 Avril 2019

• #3

Bonjour.
Il y a erreur sur la ligne 5 à partir de la G5.
En E11 :

Code:

=D11+INDEX({16;15;17;16;15;18;17};JOURSEM(D11))

Le reste peut être simplifié, en F11, à propager sur 16 colonnes :

Code:

=E11+17+(JOURSEM(E11)=6)

 

Vote positif 0 Vote négatif

Z

zouamingueur

XLDnaute Nouveau

• 3 Avril 2019

• #4

Merci bien Dranreb. Je vais l'essayer et je reviendrai. Merci encore

Il fonctionne sans problème. Merci beaucoup

 

Dernière édition: 3 Avril 2019

Vote positif 0 Vote négatif

Z

zouamingueur

XLDnaute Nouveau

• 3 Avril 2019

• #5

Nickel. Merci. Le premier souci est réglé.
Je voudrais en feuille 3 le récapitulatif avec nom et montant des différentes dates en automatique. Comment faire? S'il vous plaît. Je joins le fichier. Merci

 

Pièces jointes

• fiche de suivi evolution tontinetest.xlsx

  17 KB · Affichages: 4

Dernière édition: 3 Avril 2019

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 3 Avril 2019

• #6

Bonjour Tous,
Histoire de pousser le bouchon un peu plus loin voici en VBA.
Après renseignement de la date de départ le tableau est créé en dessous.
Bien sur il faut activer les macros (j'ai mis un bouton Nouveau)
Bruno

 

Pièces jointes

• tontinetest (1).xlsm

  20.7 KB · Affichages: 4

Vote positif 0 Vote négatif

Z

zouamingueur

XLDnaute Nouveau

• 3 Avril 2019

• #7

Bonjour et merci bien youky. ça fonctionne à merveille. Voici ce que ça donne.

 

Pièces jointes

• Fiche suivi tontine en automatique.xlsm

  21.2 KB · Affichages: 4

Vote positif 0 Vote négatif

Z

zouamingueur

XLDnaute Nouveau

• 3 Avril 2019

• #8

Je voudrais pouvoir dans la feuille Récapitulatifs afficher le nom de chacun, ses dates et ses montants. Comment le faire? Merci

 

Pièces jointes

• Fiche suivi tontine en automatique.xlsm

  21.2 KB · Affichages: 2

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 3 Avril 2019

• #9

Ravi que les macros plaisent.
Voici donc de retour le fichier
Bruno

 

Pièces jointes

• Fiche suivi tontine en automatique (1).xlsm

  24.1 KB · Affichages: 6

Vote positif 0 Vote négatif

Z

zouamingueur

XLDnaute Nouveau

• 3 Avril 2019

• #10

Merci. Tout fonctionne à merveille. Merci pour l'aide très appréciable. Encore une fois merci

 

Vote positif 0 Vote négatif

Z

zouamingueur

XLDnaute Nouveau

• 29 Mai 2019

• #11

Bonjour à tous. J'ai un souci. Sur ce fichier l'échéance initialement prévue après 15 jours, passe à un mois. Si ça tombe samedi, dimanche, lundi ou mardi c'est alors programmé pour mardi. Si l'échéance d'un mois tombe mercredi, jeudi ou vendredi, la date de l"échéance est alors vendredi. Merci d'avance pour votre aide. Merci encore à tous ceux qui m'ont aidé la dernière fois.

 

Pièces jointes

• Fiche suivi tontine mensuelle en automatique.xlsm

  21.3 KB · Affichages: 2

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 29 Mai 2019

• #12

Salut bien,
Un seul chiffre à changer mettre +30 au lieu +15
Bruno
Sub nouveau()
rep = InputBox("entrez la date de d?part")
If rep = "" Then Exit Sub
On Error Resume Next
j = CDate(rep)
If Err <> 0 Then MsgBox "date non valable": Exit Sub
lig = [D65000].End(3).Row + 2
[C5:U9].Copy Range("C" & lig)
Cells(lig, 4) = j
Cells(lig + 1, 4) = "": Cells(lig + 2, 5) = ""
For k = 5 To 21
j = Cells(lig, k - 1) + 30 '''''''ici 30 au lieu de 15
For a = 0 To 6
If Weekday(j + a) = 3 Or Weekday(j + a) = 6 Then
Cells(lig, k) = j + a
Exit For
End If
Next
Next
End Sub

 

Vote positif 0 Vote négatif

Z

zouamingueur

XLDnaute Nouveau

• 29 Mai 2019

• #13

Merci bien. Ces lignes où dois-je les trouver ou les inscrire? Merci

 

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 29 Mai 2019

• #14

Faire Alt+F11 pour aller dans Visual Basique
Ou afficher l'onglet développeur ( voir sur internet comment faire) et Visual basique
Pour revenir sur ta page Excel depuis vba Click dans l'icone Excel en haut à gauche.
Bon je mets le fichier tout fait
Bruno
PS: je m'absente jusqu'à mardi

 

Pièces jointes

• Fiche suivi tontine mensuelle en automatique (1).xlsm

  22.5 KB · Affichages: 6

Vote positif 0 Vote négatif

Z

zouamingueur

XLDnaute Nouveau

• 29 Mai 2019

• #15

Donc c'est dans la macro "nouveau"que cela se trouve ?

 

Vote positif 0 Vote négatif