VBA Excel - Création d'une procédure simple

Version imprimable

19/11/2021, 10h28
ram256

1 pièce(s) jointe(s)

VBA Excel - Création d'une procédure simple

Bonjour à tous,

Je suis assez novice dans le code VBA Excel et j'aimerais profiter de vous connaisances pour créer un procédure d'automatisation dans un fichier Excel
Est-ce que quelqu'un aurait un peu de temps pour créer cette procédure, j'ai essayé de le faire mais j'arrive pas à faire les boucles au bon endroit
Je joins un ficher avec les commentaires pour la finalité souhaité
D'avance un grand merci pour votre temps et bonne journée.

Bonjour ram256,

Je te proposes le code suivant :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
Sub Data_compte_CC()
 
LigneColonneA = 3       'Première ligne de la colonne A à remplir
 
With Sheets("Traitement DATA")
    If .Cells(3, 4) = "" Then       'Test pour vérifier si des données présentes avant End(xldown)
        Msg = MsgBox("Aucun compte à contrôler", "Erreur")
        Exit Sub
    End If
 
    For i = 3 To .Cells(2, 4).End(xlDown).Row       'Boucle sur l'ensemble des comptes
        x = 5                                       'Variable pour commencer sur le premier CC de la ligne
        While .Cells(i, x) <> ""                    'Boucles sur les CC
            .Cells(LigneColonneA, 1) = .Cells(i, 4) 'Copie du compte
            .Cells(LigneColonneA, 1) = .Cells(i, x) 'Copie du CC
            x = x + 1                               'On passe au CC suivant
            LigneColonneA = LigneColonneA + 1       'On va à la ligne suivante pour les colonne A et B
        Wend
    Next i
End With
 
End Sub

Je te conseilles juste de supprimer les doublons avec la fonction d'excel et l'enregistrement de macro.

Cordialement,
Zeabon

19/11/2021, 11h11
MarcelG

Bonjour et bienvenue sur ce Forum,

Il n'est pas généralement dans nos habitudes d'ouvrir de fichier joint, du moins dans les premiers post d'une discussion.

Aussi, pourrais-tu
1 - Reporter la procédure qui pose problème
2 - En soulignant la ligne de code qui pose problème
3 - Retourner une ou plusieurs captures d'écran afin d'illustrer les échanges éventuels de données

Au plaisir.

Salut Zeabon,
Code:

1 2 3 For i = 3 To .Cells(2, 4).End(xlDown).Row 'Boucle sur l'ensemble des comptes x = 5 'Variable pour commencer sur le premier CC de la ligne While .Cells(i, x) <> ""
Il est plus actuel, mais aussi - beaucoup - plus performant, d'utiliser les tables de données (tableaux structurés).
Et ainsi d'oublier les End(xlDown) et les While ... <> "".

1 pièce(s) jointe(s)

bonjour
à tester

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Sub testt()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim F1 As Worksheet
Set F1 = Sheets("Traitement DATA")
F1.Range("A3:B" & F1.Range("A" & Rows.Count).End(xlUp).Row).ClearContents
Dim i As Long
Dim C As Long
Set d = CreateObject("Scripting.Dictionary")
    '**********************************************************
    TblBD = F1.Range("D1:FZ" & F1.Range("D" & Rows.Count).End(xlUp).Row)
    For i = 3 To UBound(TblBD)
     dercol = F1.Cells(i, F1.Cells.Columns.Count).End(xlToLeft).Column
     For C = 5 To dercol
         If TblBD(i, 1) <> "" And TblBD(i, C) <> "" Then
         clé = TblBD(i, 1) & "|" & TblBD(i, C)
         d(clé) = TblBD(i, 1) & "|" & TblBD(i, C)
         End If
      Next C
    Next i
 
    F1.Range("A3").Resize(d.Count) = Application.Transpose(d.keys)
    F1.Range("A3").Resize(d.Count).TextToColumns Other:=1, DataType:=xlDelimited, OtherChar:="|"
 Application.DisplayAlerts = True
 Application.ScreenUpdating = True
End Sub

Citation:
Envoyé par MarcelG
Salut Zeabon,
Code:

1 2 3 For i = 3 To .Cells(2, 4).End(xlDown).Row 'Boucle sur l'ensemble des comptes x = 5 'Variable pour commencer sur le premier CC de la ligne While .Cells(i, x) <> ""
Il est plus actuel, mais aussi - beaucoup - plus performant, d'utiliser les tables de données (tableaux structurés).
Et ainsi d'oublier les End(xlDown) et les While ... <> "".
Bonjour MarcelG,

Je suis d'accord avec toi, l'utilisation des tableaux structurés sont plus efficace mais 2 raisons m'ont pousser à lui donner ce code :
- Pas de version de Excel donnée : Je ne sais pas si le tableau structurel est fonctionnel sur ça version
- Je penses que si il bloque sur les boucles alors il doit débuter, et commencer sur les tableaux structurés ce n'est pas le plus évident.

Après si tu as un lien vers un post explicatif du tableau structurés, je suis preneur aussi.

Bonjour BENNASR,

J'avoue ne pas comprendre une ligne de ton code :

Code:

dercol = F1.Cells(i, F1.Cells.Columns.Count).End(xlToLeft).Column

Lorsque tu es sur la ligne avec toutes les colonnes, cela ne va-t-il pas te donner dercol =5 et donc pas de valeur ?

Cordialement,
Zeabon

19/11/2021, 11h37
MarcelG

Salut,

Citation:

Je penses que si il bloque sur les boucles alors il doit débuter, et commencer sur les tableaux structurés ce n'est pas le plus évident.

Si, justement, appliquer les tables de données au plus tôt revient à une bonne pratique qui servira de base tout au long des développements à venir.

2 tutoriels de base
les tableaux structurés
les tableaux structurés par VBA
19/11/2021, 11h38
ram256

Bonjour MarcelG,

Je comprends votre message de pas poster un fichier Excel mais uniquement le code ou cela pose problème, mais comme a si bien dit par Zeabon, je débute et je code que rarement, alors j'avais pas de code à proposer....
Merci a Zeabon pour sa porposition, je vais tester et reviens avec des nouvelles ...
19/11/2021, 11h43
MarcelG

Salut ram,

Justement, il te faut t'investir dans l'écriture d'un code, et ce même s'il tome en échec.

Voir cette humble position
19/11/2021, 11h52
BENNASR

bonjour

Citation:

Bonjour BENNASR,
J'avoue ne pas comprendre une ligne de ton code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
dercol = F1.Cells(i, F1.Cells.Columns.Count).End(xlToLeft).Column

pour gagner du temps et ne pas parcourir toujours plus de 180 colonne , j'ai chercher la dernière colonne non vide pour chaque ligne pour gagner en temps d'exécution

je ne suis qu'un autodidacte :aie: :aie: :aie:
19/11/2021, 11h58
Zeabon

Citation:

Envoyé par MarcelG

Salut ram,

Justement, il te faut t'investir dans l'écriture d'un code, et ce même s'il tome en échec.

Voir cette humble position

Je suis tout à fait d'accord avec MarcelG : VBA a une très grande communauté et énormément de chose/solution sont postés sur les forums.

Si on fait un simple copier/coller sans comprendre, alors on ne progresse pas.

Donc si ton objectif est de rester débutant et tu fais une macro juste pour cette fois mais tu ne vas plus y retoucher, alors une solution comme celle que j'ai proposé va t'aider.

Maintenant si c'est pour en fairte couramment, je te conseille de regarder les liens de MarcelG sur les tableaux structurés et de l'adapté à ton cas.

On sera ravi de t'aider si tu as des problèmes à l'appliquer.

Citation:

Envoyé par BENNASR

je ne suis qu'un autodidacte :aie: :aie: :aie:

Je pense qu'on l'est un peu tous et certains beaucoup
Cordialement,
Zeabon
19/11/2021, 12h45
Philippe Tulliez

Bonjour Zeabon,

Citation:

Je suis d'accord avec toi, l'utilisation des tableaux structurés sont plus efficace mais 2 raisons m'ont pousser à lui donner ce code :
- Pas de version de Excel donnée : Je ne sais pas si le tableau structurel est fonctionnel sur ça version

Les tableaux structurés existent depuis la version 2007 soit presque 15 ans et les fichiers suffixés xlsm sont arrivés avec cette version.
Comme le fichier joint à la discussion est un fichier de ce type on peut en déduire qu'il peut utiliser ces tableaux
19/11/2021, 16h51
MarcelG

Hé, Salut Philippe :)

Merci pour cette précision.

Depuis 2007! Je ne croyais pas la naissance des tableaux structurés à cette date.
(Je viens de retrouver d'anciens développements contenant des "End(x" à tout va et des modifications de noms utilisés dans des formules, et que j'ai réalisés après...2009 (Shame on you, Marcello)

A ta connaissance, avaient-ils alors les mêmes fonctionnalités tant sur tableur qu'en VBA?
21/11/2021, 12h13
ram256

Citation:

Envoyé par Zeabon

Je suis tout à fait d'accord avec MarcelG : VBA a une très grande communauté et énormément de chose/solution sont postés sur les forums.

Si on fait un simple copier/coller sans comprendre, alors on ne progresse pas.

Donc si ton objectif est de rester débutant et tu fais une macro juste pour cette fois mais tu ne vas plus y retoucher, alors une solution comme celle que j'ai proposé va t'aider.

Maintenant si c'est pour en fairte couramment, je te conseille de regarder les liens de MarcelG sur les tableaux structurés et de l'adapté à ton cas.

On sera ravi de t'aider si tu as des problèmes à l'appliquer.

Je pense qu'on l'est un peu tous et certains beaucoup
Cordialement,
Zeabon

Bonjour Zeabon,
Merci pour ton aide ! Effectivement tu as encore vu juste, je suis de profession responsable comptable et financier (tout comme BENNASR :D) et mon but n'est pas de devenir un programmateur, mais dans le monde de la finance où ont travaille beaucoup avec des tableaux Excel, créer des petits macros qui nous simplifie la vie et le traitement est super efficace ! Raison pour laquelle je m'intéresse au code VBA !
Malheureusement j'ai pas le temps que je souhaiterais pour investir dans l'apprentissage poussé et souvent le traitement est spécifique à un fichier, certes utilisé très souvent, mais cela reste le même traitement.

J'ai testé ta proposition de code, cela ne faite pas exactement ce que j'attends, les données copiés du compte sont écrasés pas celles du CC, mais j'aimerais moi-même (maintenant que j'ai le code) essayer d'apporter les corrections (afin de m'améliorer par la suite).

Je reviens avec la solution (si je la trouve) ou je te demanderais de l'aide (cela risque de prends un petit moment, car je fais cela à temps perdu... le soir)

Merci également à BENNASR pour sa proposition, j'aimerais d'abord tester/corriger celle proposé de Zeabon et par la suite voir tester également celle de BENNASR !
Merci les gars ! Encore une fois, le but est de faire travailler la machine à ma place pour le travail répétitif et gagner du temps pour mes autres tâches d'analyse :D
Bon dimanche
23/11/2021, 21h37
ram256

1 pièce(s) jointe(s)

Bonsoir Zeabon,

Merci pour ta proposition de code, comme mentionné, il y avait un petit erreur dans le code dont j'aimerais moi-même trouver la solution, et c'est FAIT !
Je viens de trouver l'erreur et cela se trouve dans la ligne de code Pièce jointe 609137

Cela fonctionne à merveille !
Merci beaucoup pour ton coup de main.

Je vais marqué comme terminé/résolu cette discussion !
Excellent soirée.
24/11/2021, 12h50
MarcelG

Bonjour,

J'insiste.

Je fais suite à ma précédente intervention.
Si, justement, le développement VBA t'est annexe, pourquoi ne pas adopter les bonnes pratiques dès maintenant?

J'ai indiqué une piste, à adapter bien entendu, dans ce post.

(Je pars en congés et serai de retour lundi 29 novembre)