Discussion :

[Lubberla]

Bonjour,

Je suis débutant en VBA et je viens vous voir quand je dois copier un livre de compte vers une base de donnée, j'ai réussi à le faire avec plusieurs macro mais c'est pas vraiment optimisé, je voulais savoir si c'était possible de toute faire en une maccro.

[Menhir]

Peut-être pourrais-tu présenter ici ton code, de préférence entre balises CODE.

[Lubberla]

Code :

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

1
2
3
4
5
6
7
Sub Cj()
 
    Selection.Copy
    Sheets("transform? en BDD").Select
    Range("F" & Rows.Count).End(xlUp).Select
    ActiveSheet.Paste
End Sub

J'ai mis une des macro sachant qu'elles sont identiques, seule la lettre de la colonne change. Donc en gros je copie la sélection puis je la colle en dernière ligne de la deuxième feuille. Enfaite le problème c'est la disposition du livre de compte qui m'empêche de par exemple prendre toutes les dates d'un coup.

[Menhir]

Selection.Copy, ça ne va pas vraiment être reproductible.
Il faudrait que tu indiques ce que tu veux copier et où tu veux le copier.

Pour info, ton code simplifié :

Code :

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

1
2
3
Sub Cj()
     Selection.Copy Sheets("transform? en BDD").Range("F" & Rows.Count).End(xlUp).PasteSpecial(xlPasteAll)
End Sub

[Lubberla]

Donc j'y ai passé la journée et j'ai un code beaucoup plus complet, mais j'ai un soucis de boucle qui boucle à l'infinie, donc c'est une boucle each et j'aimerai aller de la colonne A à R sur la ligne d ( qui est une variable) je vois pas ce qui cloche dans mon code je vous le poste ici.

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
Sub opti()
Dim i As Long
Dim e As Long
Dim c As Object
Dim d As Long
Dim Ad As String
Dim Rd As String
Dim CodeAna As String
Dim NoCompte As String
With Workbooks
 
For i = 1 To Rows.Count
    If estCode(Range("A" & i).Value) = True And IsEmpty(Range("A" & i)) = False Then
        CodeAna = ("A" & i)
        For e = i + 1 To Rows.Count
            If estCode(Range("A" & e).Value) = False And Range("A" & e).Font.Bold = True Then
                NoCompte = ("A" & e)
                For d = e + 1 To Rows.Count
                If IsEmpty(Range("A" & d)) = True Then
                    Exit For
                Else
                    Sheets("transform? en BDD").Range("A" & Rows.Count).End(xlUp).Value = Sheets("Grand-livre analytique").Range(CodeAna).Value
                                Sheets("transform? en BDD").Range("C" & Rows.Count).End(xlUp).Value = Sheets("Grand-livre analytique").Range(NoCompte).Value
                                Ad = ("A" & d)
                                Rd = ("R" & d)
                    For Each c In Range("Ad:Rd")
                        Select Case c
                                            Case Is = Range("A" & d): Sheets("transform? en BDD").Range("E" & Rows.Count).End(xlUp).Value = Sheets("Grand-livre analytique").Range("A" & d).Value
                                            Case Is = Range("B" & d): Sheets("transform? en BDD").Range("F" & Rows.Count).End(xlUp).Value = Sheets("Grand-livre analytique").Range("B" & d).Value
                                            Case Is = Range("C" & d): Sheets("transform? en BDD").Range("G" & Rows.Count).End(xlUp).Value = Sheets("Grand-livre analytique").Range("C" & d).Value
                                            Case Is = Range("E" & d): Sheets("transform? en BDD").Range("H" & Rows.Count).End(xlUp).Value = Sheets("Grand-livre analytique").Range("E" & d).Value
                                            Case Is = Range("K" & d): Sheets("transform? en BDD").Range("I" & Rows.Count).End(xlUp).Value = Sheets("Grand-livre analytique").Range("K" & d).Value
                                            Case Is = Range("M" & d): Sheets("transform? en BDD").Range("J" & Rows.Count).End(xlUp).Value = Sheets("Grand-livre analytique").Range("M" & d).Value
                                            Case Is = Range("O" & d): Sheets("transform? en BDD").Range("K" & Rows.Count).End(xlUp).Value = Sheets("Grand-livre analytique").Range("O" & d).Value
 
 
                        End Select
                    Next
                End If
                Next
            ElseIf estCode(Range("A" & i).Value) = True Then
                Exit For
            Else
 
            End If
        Next
 
    End If
 
Next
End With
End Sub

[Menhir]

j'ai un soucis de boucle qui boucle à l'infinie, donc c'est une boucle each et j'aimerai aller de la colonne A à R sur la ligne d ( qui est une variable) je vois pas ce qui cloche dans mon code je vous le poste ici.

Deux remarques liminaires :
A ma connaissance, il n'est pas possible de faire une boucle infinie avec un For Each.
La ligne d ça n'existe pas, les ligne sont des valeurs numériques.

Cependant, je comprends ce que tu veux dire : il s'agit du numéro de ligne contenue dans la variable d.
Mais ça remarque explique ton erreur.
En fait, ta boucle For Each boucle sur toutes les cellules des colonnes AD à RD, ce qui représente environ 450 millions de cellules, ce qui ressemble certainement beaucoup à l'infini.

Essaye de modifier ton code ainsi :

Code :

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

                    For Each c In Range("A" & d & ":R" & d)