date conditionnelle

[zouamingueur]

Bonjour. Je suis coincé sur les échéances de 15 jours à condition que ce soit mardi ou vendredi. Si après 15 jours on est mardi c'est bon. Si c'est après mardi donc l'échéance c'est vendredi. Si les 15 jours après arrive après vendredi donc l'échéance c'est mardi. Exemple : le 30/03/19 échéance le 16/042019 car vendredi au lieu de 14/042019. Après 15 jours échéance le 03/05/2019 au lieu du 02/04/2019.
Est-il possible de faire un récapitulatif qui indique le nom de chacun et le montant de ses cotisations? Merci
Comment écrire les instructions pour y arriver? S"il vous plaît Merci

 

[zouamingueur]

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

 

[Dranreb]

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

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

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

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

 

[zouamingueur]

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

Il fonctionne sans problème. Merci beaucoup

 

[zouamingueur]

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

 

[youky(BJ)]

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

 

[zouamingueur]

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

 

[zouamingueur]

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

 

[youky(BJ)]

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

 

[zouamingueur]

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

 

[zouamingueur]

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.

 

[youky(BJ)]

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

 

[zouamingueur]

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

 

[youky(BJ)]

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

 

[zouamingueur]

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