Discussion :

[ram256]

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.

[Zeabon]

Bonjour ram256,

Je te proposes le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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.

[MarcelG]

Salut Zeabon,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ... <> "".

[Zeabon]

Salut Zeabon,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[MarcelG]

Salut,

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

[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 ...

[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

[BENNASR]

bonjour
à tester

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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