Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

fin du mois sans formule

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion cora
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
C

cora

XLDnaute Occasionnel
Bonjour à tous,

je penses que ma question est ardu et demande des connaissances VBA que je n'ai pas évidemment.

J'ai 12 feuilles correspondant à chaque mois de l'année, sur chacune d'elle 2 colonnes entrées et sorties, correspondant à C4:C22 pour les dates d'entrées et D4😀22 pour les dates de sorties.
Est-il possible, lorsque je saisi une date d'entrée qu'à la date de sortie se saisissent (sans formule=SI(C4="";"";B77), B77 étant la fin du mois sur chaque feuille) la fin du mois correspondant au mois de la feuille.
en revanche, si je ne saisi pas de date d'entrée, alors la cellule voisine reste vide et saisisable manuellement, éventuellement.
Merci pour votre aide
 
Trier par date Trier par votes
Re : fin du mois sans formule

Bonjour Cora, bonjour le forum,

Quel est le nom des onglet ? janvier, février, etc.
ou 1, 2, etc... ?
Un petit fichier exemple serait le bienvenu.
 
Vote positif 0 Vote négatif
Re : fin du mois sans formule

Bonjour Cora, bonjour le forum,

Essaie avec ce code à placer dans le composant ThisWorkbook : (j'ai mis une majuscule au F de Fév !)
Code: 
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim M As Byte 'déclare la variable M (Mois)
Dim D As Date 'déclare la variable D (Date)

'si le changement a lieu ailleurs que dans la plage C4:C22, sort de la procédure
If Application.Intersect(Target, Sh.Range("C4:C22")) Is Nothing Then Exit Sub
Select Case Sh.Name
    Case "Jan": M = 1
    Case "Fév": M = 2
    Case "Mar": M = 3
    Case "Avr": M = 4
    Case "Mai": M = 5
    Case "Jun": M = 6
    Case "Jul": M = 7
    Case "Aoû": M = 8
    Case "Sep": M = 9
    Case "Oct": M = 10
    Case "Nov": M = 11
    Case "Déc": M = 12
End Select
If IsDate(Target.Value) = True Then 'condition : si la cellule modifiée contient une date
    D = DateSerial(Year(Target.Value), M + 1, 1) - 1 'définit la date D
    Target.Offset(0, 1).Value = D 'place la date dans la cellule de la colonne D
ElseIf Target.Value = "" Then 'ou : si la cellule est effacée
    Target.Offset(0, 1).Value = "" 'efface la cellule de la colonne D
End If 'fin de la condition
End Sub
 
Vote positif 0 Vote négatif
Re : fin du mois sans formule

Bonjour Cora, bonjour le forum,

Au cas ou, cette petite modif :
Code: 
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim M As Byte 'déclare la variable M (Mois)
Dim D As Date 'déclare la variable D (Date)

'si le changement a lieu ailleurs que dans la plage C4:C22, sort de la procédure
If Application.Intersect(Target, Sh.Range("C4:C22")) Is Nothing Then Exit Sub
Select Case Sh.Name
    Case "Jan": M = 1
    Case "Fév": M = 2
    Case "Mar": M = 3
    Case "Avr": M = 4
    Case "Mai": M = 5
    Case "Jun": M = 6
    Case "Jul": M = 7
    Case "Aoû": M = 8
    Case "Sep": M = 9
    Case "Oct": M = 10
    Case "Nov": M = 11
    Case "Déc": M = 12
    Case Else: Exit Sub'si l'onglet n'est pas un onglet de mois, sort de la procédure
End Select
If IsDate(Target.Value) = True Then 'condition : si la cellule modifiée contient une date
    D = DateSerial(Year(Target.Value), M + 1, 1) - 1 'définit la date D
    Target.Offset(0, 1).Value = D 'place la date dans la cellule de la colonne D
ElseIf Target.Value = "" Then 'ou : si la cellule est effacée
    Target.Offset(0, 1).Value = "" 'efface la cellule de la colonne D
End If 'fin de la condition
End Sub
 
Dernière édition:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

J
  • Question Question
Microsoft 365 Formule pour calculer une échéance à 30j fin de mois le 15
Réponses
7
Affichages
886
TooFatBoy
  • Résolu(e)
XL 2013 Gestion Automatisée des Dates en Fonction des Périodes et des Mois
Réponses
9
Affichages
893
Phil69970
F
  • Résolu(e)
Autres Date automatique en fonction du mois et de l'année sans dimanche
Réponses
6
Affichages
744
Fitgy
F
S
  • Question Question
XL 2010 VBA - macro avec 1 boucle qui alterne 1 action à conditions et 1 action sans conditions
2 3 4
Réponses
58
Affichages
8 K
Scorp0211
S
  • Question Question
Calcul du nombre d'heures en fonction de dates - 3 conditions (Sans VBA)
Réponses
5
Affichages
1 K
OliVBB
M
  • Question Question
Microsoft 365 Afficher tous les 1er du mois sur une période
2
Réponses
21
Affichages
3 K
Smookie
S
G
  • Question Question
Microsoft 365 formule pour répartir une facture sur plusieurs mois en tenant compte si 30 ou 31 jours pour finir a zéro dès la fin de la période d'abonnement
2
Réponses
17
Affichages
3 K
David Aubert
E
  • Résolu(e)
XL 2010 Problème de formule Somme.si ou somme.si.ens
Réponses
5
Affichages
940
Emirogo
E
K
  • Question Question
Imbrication fonction SI
Réponses
7
Affichages
1 K
vgendron
D
  • Question Question
XL 2016 Suivi des prets (Livres)
Réponses
2
Affichages
1 K
Dugenou
L
  • Question Question
Calcul du nombre de jours / mois selon dates d'entrée et sortie
Réponses
7
Affichages
3 K
lena66
L
S
  • Question Question
XL 2016 Aide sur une formule EQUIV-INDEX
Réponses
2
Affichages
1 K
shroomers88
S
N
  • Question Question
Fonction si et cellules renvoyant à des dates
Réponses
1
Affichages
1 K
neosaori
N
M
  • Question Question
RESOLU - MAX(SI(ET...)) perdue dans les formules matricielles
Réponses
5
Affichages
995
Marine_
M
  • Question Question
recherche du nb de mois par an suivant dates dans colonne, avec fin variable.
Réponses
10
Affichages
1 K
libellule85
  • Question Question
help next sans for
Réponses
3
Affichages
830
superbog
S
  • Question Question
Est-ce que la somme des flux financiers = le solde du compte à la fin du mois
Réponses
1
Affichages
833
sum01
S
M
  • Question Question
N° du jour ouvré sur l'année sans retoucher la formule chaque début de mois
Réponses
4
Affichages
752
mmalzert
M
  • Question Question
Formule Nombre de dates pour le mois
Réponses
4
Affichages
743
chris6999
G
  • Question Question
Figer le résultat d'une formule à la fin du mois
2
Réponses
20
Affichages
4 K
Guy_L
G
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…