Discussion :

[Invité]

Bonjour j'ai une lenteur inimagnable (5 seconde) avec ce code, quelqu'un voit l'erreur par pur hasard ?

' Fonction qui change des que tu change la colonne

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
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
 
Dim iENT As Integer
Dim iRET As Integer
Dim ENT As Worksheet
Dim RET As Worksheet
 
Set ENT = Worksheets("ENT_BET")
Set RET = Worksheets("Retenue")
 
 
    ' NETOYER LA PLAGE RETENUE
    Worksheets("Retenue").Range("A3:G150").Clear
    ' NETOYER LA PLAGE AMT
    If Target.Column = 6 Then
        iRET = 3
        iENT = 3
        While ENT.Cells(iENT, 6).Value <> ""
 
 
            If ENT.Cells(iENT, 6).Value = "Oui" Then
                 'Copier dans retenue
                ENT.Range(iENT & ":" & iENT).Copy RET.Cells(iRET, 1)
                iRET = iRET + 1
 
                 'TODO Copier dans AMT
 
 
            End If
            'Copi
            iENT = iENT + 1
        Wend
 
        Application.CutCopyMode = False
 
 
  End If
    Application.EnableEvents = True
End Sub

[Jean-Philippe André]

Salut,

manipuler des cellules dans le worksheet_change, c'est pas l'idéal, aussi il faudrait a minima désactiver les évènements, ce que tu as fait, mais il y a également des problématiques de calculs, avec des formules dans tous les sens...

[Allan06]

Bonjour,

Ton code s'exécute à chaque fois que tu changes de cellule avec une boucle while ?! Obligé d'avoir While dans ton code ?
Peux-tu expliquer ce que tu tentes de faire ?

[Invité]

Ca sert juste a ne pas aller jusqu'a la dernière colonne d'excel 129000 où un truc du genre donc c'est pour juste copier la derniere ligne non vide
sauf erreur de ma part

[Allan06]

Tu veux copier la dernière ligne en te basant sur une colonne ?
Peux-tu donner un exemple avec une capture d'écran ?

[Invité]

Bonjour oui bien sur !

Je t'ai fait un exemple dans la capture d’écran ci-dessous,
en fait des que quelqu'un se met sur la colonne 6 le code s'execute

Dans l'objectif de copier tous dans l'autre feuille pour continuer uniquement avec les entreprises retenues

[Allan06]

Tu es obligé de passer par un SelectionChange ? Tu ne peux pas créer un bouton qui copie tout dans une autre feuille et vire tout ce qui n'est pas "retenue : oui" ?

[Pierre Fauconnier]

Salut. Tu es sûr que range("a1").currentregion va jusque F1? Attention que sans préfixe, Range("a1") pointe vers la feuille de calcul active.

[Allan06]

Salut. Tu es sûr que range("a1").currentregion va jusque F1? Attention que sans préfixe, Range("a1") pointe vers la feuille de calcul active.

Range("A1").currentRegion prenait la première ligne de cellules fusionnées. J'ai du changer cela, car ne doit pas faire partie du tri.

[Pierre Fauconnier]

Comme tu utilises une référence mixte (absolue sur la colonne et relative sur la ligne), Excel comprend ta formule de la même manière et interprète donc la mise en forme conditionnelle en utilisant un décalage de lignes relatif à la cellule active au moment de la création de la MFC.

Si, lorsque tu utilises ta formule =ESTTEXTE($A3) pour créer la mfc, ta cellule active est sur la ligne 20 par exemple, cela signifie qu'Excel doit tester la cellule en colonne A 17 lignes plus haut... Tu dois donc être très attentif à la cellule active au moment de la création de la mfc si tu utilises des références relatives.

[Invité]

Oui effectivement je l'ai déja fait sur une autre feuille et cela foncitonne parfaitement !

la j'ai la mfc qui se supprime complètement des que j'appuie sur Valider j'ai essayé plusieurs fois je suis sur, ce n'est pas une question de mauvaise formule , je crains que ce soit une ligne affecté à la macro de Allan06,

[Invité]

C'est bon une simple boucle imbriqué suffisait .

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
Option Compare Text
Sub Valider_Cliquer()
Application.ScreenUpdating = False
Dim NbYes As Integer
Dim Debut, Fin As Long
Sheets("ENT_BET").Activate
NbYes = Application.WorksheetFunction.CountIf(Columns("F"), "Oui")
Select Case NbYes
Case Is > 0
    'On nettoie la feuille retenue
    Sheets("Retenue").Activate
    Range("A3", "D1000").Clear
    Sheets("ENT_BET").Activate
    'On demande un tri sur la colonne F
    Range("A2", Cells(Range("A2").End(xlDown).Row, "G").Address).Sort _
    key1:=Range("F2"), order1:=xlDescending, dataoption1:=xlSortNormal, Header:=xlYes
    Debut = Columns("F").Find("Oui", , xlValues, xlWhole).Row
    Fin = Debut + NbYes - 1
    Union(Range(Cells(Debut, 1).Address, Cells(Fin, 3).Address), Range(Cells(Debut, 7).Address, Cells(Fin, 7).Address)).Copy
    Sheets("Retenue").Activate
    Range("A3").PasteSpecial xlPasteValues
 
End Select
With Range("A3:D150")
    .HorizontalAlignment = xlHAlignCenter 'ou xlHAlignLeft ou xlHAlignRight
    .VerticalAlignment = xlVAlignCenter 'ou xlVAlignTop ou xlVAlignBottom
End With
For i = 3 To 100   'Pour bordure
If Not IsEmpty(Cells(i, 1)) Then
For j = 1 To 4 'Colonne
  Cells(i, j).Borders(xlEdgeLeft).LineStyle = xlContinuous
    Cells(i, j).Borders(xlEdgeRight).LineStyle = xlContinuous
    Cells(i, j).Borders(xlEdgeTop).LineStyle = xlContinuous
    Cells(i, j).Borders(xlEdgeBottom).LineStyle = xlContinuous
    Next
 
End If
Next
 
End Sub

En tout cas merci a vous !

[Pierre Fauconnier]

il serait tout de même pertinent, à mon avis, de travailler avec des tables de données. Elles permettent notamment de définir proprement les plages utilisées.

Le code Range("A3", "D100000").ClearContents laisse penser qu'on a placé la MFC sur 100000 lignes "pour avoir de la réserve"... Or, une MFC sur 100000 lignes, c'est 100000 calculs pour Excel. Si le tableau fait 5000 lignes, c'est 95000 calculs de trop... Inévitablement, ça ralentit le classeur. C'est notamment pour cela que je demandais d'en savoir plus sur la conception du classeur

Comme je l'explique dans mon tuto, la MFC s'adapte à l'ajout et la suppression de lignes dans la table.

[Allan06]

Le code Range("A3", "D100000").ClearContents sert uniquement à effacer le contenu d'une plage, il ne touche en rien à la mise en forme.
A voir sur la MFC saute en lançant le code.

• Suppression = .Delete
• Effacement de tout = .Clear
• Effacement du contenu = .ClearContents

Bonne journée

[Pierre Fauconnier]

Ok. Mais de toute façon, l'utilisation d'une table de données permet d'en supprimer les lignes (et uniquement les lignes) sans avoir besoin prévoir "de la réserve". L'utilisation des tables de données a plus que largement simplifié la manipulation des données avec Excel et VBA. Dès lors, pourquoi s'en priver?

[Allan06]

Sur VBA, un tableau de données (Ctrl + L) est un objet.
Je ne voulais pas compliquer le code et éviter toute source d'erreur
Après, je suis d'accord avec toi, c'est une manière plus simple de travailler.

[Pierre Fauconnier]

Sur VBA, un tableau de données (Ctrl + L) est un objet.

Une plage aussi. Je ne comprends pas bien ton argument

Je ne voulais pas compliquer le code et éviter toute source d'erreur

L'utilisation d'un listobject simplifie le code plutôt que le compliquer, et évite les erreurs

Après, je suis d'accord avec toi, c'est une manière plus simple de travailler.

C'est LA manière de travailler les données avec les versions actuelles d'Excel. On m'accusera de pensée unique mais je m'en fous. Travailler les données et les stocker autrement que dans des tables de données est un aujourd'hui une ineptie

[Allan06]

Une plage aussi. Je ne comprends pas bien ton argument

Si le tableau structuré venait à être transformé en plage de données, l'objet ne serait plus le même ?

L'utilisation d'un listobject simplifie le code plutôt que le compliquer, et évite les erreurs

.Showalldata ne fontionne pas avec les tableaux structurés

C'est LA manière de travailler les données avec les versions actuelles d'Excel. On m'accusera de pensée unique mais je m'en fous. Travailler les données et les stocker autrement que dans des tables de données est un aujourd'hui une ineptie

Complétement d'accord Je ne voulais juste pas mettre le fichier de walido en tableau structuré, j'aide, je ne fais pas :p

[Pierre Fauconnier]

[...]j'aide, je ne fais pas :p