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

Besoin d'aide pour faire mon bilan

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Magzonex
  • 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
M

Magzonex

Guest
Allo

il me reste une chose a faire, mais complexe pour moi

le but est en cellule E7 double cliquer dessus pour faire apparaitre le calendrier et sélectionner une date de début et faire la même chose pour la cellule H7 pour la date de fin, en suite cliquer sur le boutton (afficher le bilan )pour que tout les renseignement de la base de donnée ( feuil BD1 de A jusqu'a N) s'affiche correctement dans ma feuille Bilan sois les information de A10 jusqu'a K16

Ainsi que les commentaires de A20 à B33

merci de votre aide...

Ms. Paritec m'avais déja fais ça... et sela marche encore très bien mais je suis pas capable de l'adapter a se nouveau projet.
 

Pièces jointes

Trier par date Trier par votes
Re : Besoin d'aide pour faire mon bilan

Allo

dans cette fonction il vérifie que la date du début est plus petite que la date de fin

Private Sub CommandButton2_Click()
If Cells(7, 5) > Cells(7, 8) Then MsgBox "La date de fin doit être supérieure à la date de Début": Exit Sub
Call Extraction
End Sub

j'aimerais rajouter une condition

que si entre les deux date il y a plus de 7 jours : Then MsgBox "Vous devez choisir une période de moins de 8 jours seulement": Exit Sub
et qu'il faut absolument choisir 7 jours, donc 6 jours impossible d'apeller Extraction. Then MsgBox "Vous devez choisir une période de 7 jours seulement": Exit Sub


merci de m'aider
 

Pièces jointes

Dernière modification par un modérateur:
Vote positif 0 Vote négatif
Re : Besoin d'aide pour faire mon bilan

Allo

voici se que j'aimerais que la fonction éxécute ... mais il faudrais l'adapter bien sur

Private Sub CommandButton2_Click()

If Cells(7, 5) > Cells(7, 8) Then MsgBox "La date de fin doit être supérieure à la date de Début": Exit Sub
If Cells(7, 5) Cells(7, 8) > 8 Then MsgBox "Vous avez choisi plus de 7 jours consécutif": Exit Sub
If Cells(7, 5) Cells(7, 8) < 7 Then MsgBox "Vous avez choisi moin de 7 jours consécutif": Exit Sub
Call Extraction
End Sub

Quelq'un a une idée S.V.P aider moi...

Merci
 
Vote positif 0 Vote négatif
Re : Besoin d'aide pour faire mon bilan

Bonjour David
J'aime ta façon de penser en aidant les gens, bien sur pour ceux qui veule apprendre, comme moi je commence et je veux apprendre ce language, je vais essayer de venir ici un peu plus souvent et de voir les problème des gens et de voir les resultant et bien sur de comprendre la macro ces quoi elle fait, parfois je comprends plusieurs lignes et d'autres me sont inconnu
enfin au plaisir



 
Vote positif 0 Vote négatif
Re : Besoin d'aide pour faire mon bilan

Allo

oui et serais intéressant si plusieur personne pouvais nous aider ... cars plus de 400 personne on vue se message et seulement 2 on pu m'aider jusqu'a présent

Merci David et for_rum

bonne soirée
 
Vote positif 0 Vote négatif
Re : Besoin d'aide pour faire mon bilan

Re
Erreur dans ce code :
Code: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, [E7:H7]) Is Nothing Then Calendrier.Show
End Sub

Ce code prend en compte la cellule G7, donc remplacer le : par une ,
Code: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, [E7,H7]) Is Nothing Then Calendrier.Show
End Sub

Concernant ta dernière demande, à tester le code ci-dessous :

Code: 
Private Sub Calendar1_Click()
Dim DateDebut As Date, DateFin As Date, Diff As Byte
        ActiveCell = Format(Calendar1, " DD mm YYYY")
        DateDebut = Format(Range("E7").Value, "dd,mm,yyyy")
        DateFin = Format(Range("H7").Value, "dd,mm,yyyy")
        Diff = DateDiff("d", DateDebut, DateFin)
        If ActiveCell = Range("H7") Then
            If Diff > 7 Then MsgBox "Vous avez choisi plus de 7 jours consécutifs": Exit Sub
            If Diff < 7 Then MsgBox "Vous devez choisir une période de 7 jours consécutifs": Exit Sub
        End If
        Unload Me
End Sub

Bon, maintenant c'est à toi d'avancer de ton côté.
Pour t'aider à comprendre la gestion des dates en VBA, un peu de lecture ici
Regarde les I II et III et reviens avec tes questions sur ce que tu ne comprends pas sur le sujet.
A+
 
Vote positif 0 Vote négatif
Re : Besoin d'aide pour faire mon bilan

Allo

Merci David, mais sa marche pas .. pour le moment je mets sa de coté .... trop a apprendre pour se que je veux en faire.🙁


Un gars bien décourager;;;;🙁

Merci quand meme .
 
Dernière modification par un modérateur:
Vote positif 0 Vote négatif
Re : Besoin d'aide pour faire mon bilan

Bonsoir,

j'ai peut-être mal compris mais si tu veux une période de7 jours, il te suffit de choisir seulement la date de départ puis d'additionner 6, non ?
 

Pièces jointes

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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

S
  • Question Question
XL 2016 Besoin d'aide pour finaliser gestion courrier départ
Réponses
3
Affichages
1 K
senpai49
S
  • Question Question
XL 2019 Besoin d'aide pour l'accomplissement de mon ficher suspendu ..Merci d'avance
Réponses
1
Affichages
691
_Thierry
V
  • Question Question
XL 2013 Besoin d'aide et ou suggestion pour fichier de rapport
Réponses
6
Affichages
1 K
Vilic
V
Z
  • Question Question
Besoin d'aide pour interfacer mon usf avec ma plage
Réponses
3
Affichages
793
camarchepas
P
  • Question Question
besoin d'aide pour l'analyse de mon fichier excel
Réponses
1
Affichages
858
hoerwind
H
Z
  • Question Question
Besoin d'expertise pour améliorer mon logiciel
Réponses
6
Affichages
7 K
zombe
Z
G
  • Question Question
[VBA]Besoin d'aide pour integrer des formules excel (correction)
Réponses
12
Affichages
2 K
tototiti2008
B
  • Question Question
Besoin d'avis et d'aide pour planning.
Réponses
7
Affichages
1 K
Bonifast
B
C
  • Question Question
aide pour un classeur
Réponses
4
Affichages
833
clarou
C
C
  • Question Question
aide a pour un classeur
Réponses
8
Affichages
1 K
Monique
M
B
  • Question Question
Besoin d'aide sur un cas pratique d'utilisation de la RECHERCHEV sur plusieurs Tables
Réponses
13
Affichages
20 K
Bigbru
B
T
  • Question Question
Besoin de conseil pour mon projet
Réponses
1
Affichages
1 K
khraa
K
S
  • Question Question
Besoin d'aide pour création d'une macro de mise à jour tarifs.
Réponses
5
Affichages
3 K
ROGER2327
P
  • Question Question
besoin d'aide pour faire un tri
2
Réponses
15
Affichages
2 K
GI_GI
G
I
  • Question Question
besoin d'aide pour tableau avec recap
Réponses
4
Affichages
1 K
Excel-lent
J
  • Question Question
Besoin d'aide / conseil pour structué outil multi fonction
Réponses
10
Affichages
2 K
jeanpierre
E
  • Question Question
besoin d'aide
Réponses
1
Affichages
1 K
Zon
Z
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…