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

VBA sous excel pour afficher des échéanciers

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

carol

XLDnaute Nouveau
Bonjour,
Je suis une débutante en VBA sous Excel,
J'ai un exercice ou on me demande d'écrire sous excel la Macro Commande qui permet de produire une ventilation des factures non réglées uniquement regroupées par le numéro du compte client , et ventillées en fonction de l'écart entre une date et la date d'échéance.
Je vous joints l'exercice pour vous permettre de voire de quoi il s'agit réellement.
Merci d'avance pour l'aide.
 

Pièces jointes

Trier par date Trier par votes
Bonjour

Voici un exemple d'utilisation d'un tableau en se basant sur ton fichier Exemple.
(Il est surprenant que l'on demande à des débutants d'utiliser des tableaux )
Code: 
Sub a()[COLOR="seagreen"]'Exemple de création d'un tableau[/COLOR]
[COLOR="seagreen"]'Déclarations des variables[/COLOR]
Dim Tablo, a&, b&, i&, j&, xStr$
[COLOR="seagreen"]'On remplit le tableau (je préfère utiliser le terme Array)[/COLOR]
Tablo = Range("C3").CurrentRegion.Offset(1).Value
a = UBound(Tablo, 1)
b = UBound(Tablo, 2)
    For i = 1 To 1
        For j = 1 To b
        xStr = xStr & "| " & Tablo(i, j)
        Next j
    Next i
  [COLOR="seagreen"]  'ici on affiche la première ligne dans une MsgBox[/COLOR]
    MsgBox Mid(xStr, 2, 9 ^ 9)
   [COLOR="seagreen"] 'Autre exemple ici on affiche toutes les valeurs du tableau[/COLOR]
   [COLOR="seagreen"] 'dans la fenêtre Exécution de VBE[/COLOR]
    For i = 1 To a
        For j = 1 To b
    Debug.Print Tablo(i, j)
        Next j
    Next i
End Sub

PS: Ne crois pas que l'on va te faire ton exercice de A à Z ( cela n'aurait pas de sens)
sans que tu mettes la main à la pâte !
Désormais tu as déjà de quoi commencer à travailler
 
Dernière édition:
Vote positif 0 Vote négatif
Re

Je mets en ligne l'exposé de ton exercice
(comme le suggère Lien supprimé)

PS: j'ai corrigé quelques fautes d'orthographes 😉
 
Dernière édition:
Vote positif 0 Vote négatif
Re


Le petit plus aurait été de publier votre macro ici en plus du merci 😉
Histoire de voir comment vous avez résolu votre exercice ...
(C'est la coutume sur une forum d'entraide (enfin c'était surtout vrai jadis ...)
 
Vote positif 0 Vote négatif
Re : VBA sous excel pour afficher des échéanciers

Je m'excuse de n'avoir pas posté la mocro qu'on a écrite !
voici notre macro a nous :

Sub echeance()
Dim ech(10, 4)
Dim regle As String
Dim retard As Integer
Dim cli As String
Dim nbrec As Integer
nbrec = 0

Application.Worksheets("ComptesClients").Activate
Application.Range("B4").Select
While ActiveCell <> ""
cli = ActiveCell.Value
regle = ActiveCell.Offset(0, 4).Value
retard = ActiveCell.Offset(0, 5).Value

If regle = "O" Then GoTo suite
If retard > 0 Then GoTo suite
' recherche du code cli
For i = 1 To nbrec
If ech(i, 1) <> cli Then GoTo s2
ech(i, 2) = ech(i, 2) + ActiveCell.Offset(0, 7).Value
ech(i, 3) = ech(i, 3) + ActiveCell.Offset(0, 8).Value
ech(i, 4) = ech(i, 4) + ActiveCell.Offset(0, 9).Value
GoTo suite
s2:
Next i
ech(i, 1) = cli
ech(i, 2) = ActiveCell.Offset(0, 7).Value
ech(i, 3) = ActiveCell.Offset(0, 8).Value
ech(i, 4) = ActiveCell.Offset(0, 9).Value
nbrec = i
suite:
ActiveCell.Offset(1, 0).Activate
Wend
Application.Worksheets("echeancier").Activate
Application.Range("A2").Select
For j = 1 To nbrec
ActiveCell.Value = ech(j, 1)
tot = 0
For k = 2 To 4
tot = tot + Val(ech(j, k))
ActiveCell.Offset(0, k).Value = Val(ech(j, k))
Next k
ActiveCell.Offset(0, 1).Value = tot
ActiveCell.Offset(1, 0).Activate
Next j
End Sub
 
Vote positif 0 Vote négatif
Re

Merci pour le feedback. Je vois que vous avez bien travaillé 😉

En utilisant les balise [NOPARSE]
Code: 
Ici code de ma macro
[/NOPARSE],tu rendras ton message plus lisible 😉

Je me suis permis quelques modifs de votre code
Tu peux les tester pour voir, stp ?
Code: 
Sub echeance()
Dim regle$, cli$, retard%, nbrec%, tot%, i&, j&, rech(10, 4)
nbrec = 0
With Worksheets("ComptesClients")
    .Range("B4").Select
    While ActiveCell <> ""
        cli = ActiveCell.Value
        regle = ActiveCell.Offset(, 4).Value
        retard = ActiveCell.Offset(, 5).Value
        If regle = "O" Then GoTo suite
        If retard > 0 Then GoTo suite
    ' recherche du code cli
        For i = 1 To nbrec
            If ech(i, 1) <> cli Then GoTo s2
            ech(i, 2) = ech(i, 2) + ActiveCell.Offset(, 7).Value
            ech(i, 3) = ech(i, 3) + ActiveCell.Offset(, 8).Value
            ech(i, 4) = ech(i, 4) + ActiveCell.Offset(, 9).Value
    GoTo suite
s2:
    Next i
        ech(i, 1) = cli
        ech(i, 2) = ActiveCell.Offset(, 7).Value
        ech(i, 3) = ActiveCell.Offset(, 8).Value
        ech(i, 4) = ActiveCell.Offset(, 9).Value
        nbrec = i
suite:
    ActiveCell.Offset(1).Activate
    Wend
    End With
    With Worksheets("echeancier")
    .Range("A2").Select
        For j = 1 To nbrec
            ActiveCell.Value = ech(j, 1)
            tot = 0
            For k = 2 To 4
                tot = tot + Val(ech(j, k))
                ActiveCell.Offset(0, k).Value = Val(ech(j, k))
            Next k
            ActiveCell.Offset(, 1).Value = tot
            ActiveCell.Offset(1).Activate
        Next j
    End With
End Sub
 
Vote positif 0 Vote négatif
Re : VBA sous excel pour afficher des échéanciers

Ok,J'ai essayé ta macro mais ca marche je savais pas comment on utilise les balises
sinon voici notre solutio
 
Vote positif 0 Vote négatif
Re : Re: VBA sous excel pour afficher des échéanciers

Je n'ai pas bien copié la macro précédente
voici la macro telle ecrite par nous pour résoudre l'exo.
 
Vote positif 0 Vote négatif
Re


C'est votre macro, donc c'est sur elle que vous serez noté

Mes modifs sont juste illustratives du fait que l'on peut (et c'est recommandé) éviter les Select et Activace tout en laissant le code VBA fonctionnel.

Content d'avoir pu vous aider.

A+ pour d'autres aventures VBAistiques 😉

PS: dans ton code tu as mis des ; à la fin de tes étiquettes
C'est des : qu'il faut

Bon week-end, jeunes padawans 🙂
 
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

D
  • Question Question
XL 2021 3 problèmes : Bouton VBA (fusion et suppression) & doublons
Réponses
4
Affichages
628
Dubuyz1
D
N
  • Question Question
Microsoft 365 appel des sous-routine
Réponses
3
Affichages
353
Dranreb
F
  • Résolu(e)
XL 2021 VBA et Power Query : ecrire des requetes avec variables
2
Réponses
28
Affichages
2 K
Florent74
F
M
  • Résolu(e)
Microsoft 365 Planning et avancement des tâches
Réponses
11
Affichages
773
MLIZIN
M
E
  • Question Question
Microsoft 365 Problème de conversion des mois en périodes dans Excel avec VBA
Réponses
2
Affichages
729
RyuAutodidacte
L
  • Question Question
Microsoft 365 Insérer une plage Excel en image sous VBA pour envoi mail auto
Réponses
1
Affichages
457
fanch55
U
  • Résolu(e)
XL 2021 Recherche un utilitaire (Code VBA) pour la structure des tableaux Excel
Réponses
8
Affichages
704
UnDePlusieurs
U
A
  • Question Question
Microsoft 365 Afficher / Masquer des frames à partir d'un tableau d'applicabilité
2
Réponses
16
Affichages
1 K
Ay-Ricko
A
  • Question Question
XL pour MAC Besoin d'aide pour calculer automatiquement un jour de livraison dans Excel
Réponses
10
Affichages
1 K
ArnaudSi
H
  • Résolu(e)
Microsoft 365 Incrémentation d'un numéro de devis/facture
2
Réponses
24
Affichages
3 K
dysorthographie
C
  • Résolu(e)
XL 2013 Conversion de feuilles excel en txt automatisée sous VBA (MAIS pb du format date en anglais)
Réponses
7
Affichages
925
Chrystel01
C
E
  • Résolu(e)
XL 2021 Problème d'importation de données à partir d'un fichier Excel vers un autre fichier Excel en utilisant VBA
Réponses
3
Affichages
899
eCHO
E
S
  • Question Question
XL 2019 Parcourir un tableau afin d'extraire des dates comprises dans un intervalle
2
Réponses
16
Affichages
3 K
sylvanu
V
  • Résolu(e)
XL 2016 Format de date sous vba
Réponses
3
Affichages
2 K
vanin
V
D
  • Question Question
Power Query Supprimer des doublons selon plusieurs conditions
Réponses
5
Affichages
10 K
doz
D
S
  • Question Question
Autres Lourdeur du fichier excel et lenteur du traitement macro : comment identifier les éléments générant ces lenteurs et lourdeurs et comment optimiser ?
Réponses
9
Affichages
5 K
TooFatBoy
C
  • Question Question
Microsoft 365 Macro pour récupérer des données dans plusieurs fichiers identiques
2
Réponses
15
Affichages
5 K
merinos-BernardEtang
N
  • Résolu(e)
XL pour MAC AIDE erreurs VBA MAC-Excel (2019)
2
Réponses
25
Affichages
3 K
job75
C
  • Résolu(e)
XL 2013 VBA - Amélioration d'une macro consolidation
Réponses
8
Affichages
2 K
Genii
G
  • Résolu(e)
XL 2019 Utilisation d'un formulaire pour saisir des données nécessaires au programme vba excel en lieu et place de InputBox
Réponses
2
Affichages
1 K
stager18
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…