Transformer Range en Cells

**Mél3790** · 06/10/2017, 16h03

Bonjour,

J'ai pu lire que pour améliorer la vitesse de transfert de valeurs d'un userform vers les cellules d'une feuille il fallait utiliser les Cells à la place des Range.
J'aimerais bien tenter de le faire, car mon classeur est un peu lent.
Mais je ne sais pas comment transformer ceci :

Code :

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

1
2
L = Sheets("Feuil1").Range("a10000").End(xlUp).Row + 1
Range("A" & L).Value = UF1.Controls("Valider").Caption

Quelqu'un peut-il m'aider svp ?

Merci d'avance

Invité · 06/10/2017, 16h13

Bonjour,
Quel en est l'intérêt?

Code :

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

Cells(L,"A").Value = UF1.Controls("Valider").Caption

**joe.levrai** · 06/10/2017, 16h31

Bonjour,

personnellement, je n'ai jamais lu ou expérimenté une quelconque rapidité accrue en utilisant l'objet Cells() plutôt que l'objet Range(), mais on peut en apprendre tous les jours

une petite variante pour écrire sur la première ligne non vide en partant du bas

Code :

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

Cells(Rows.Count, 1).End(xlUp)(2).Value = UF1.Controls("Valider").Caption

je préconise néanmoins de toujours indiquer la feuille hôte (voir le classeur hôte)

Code :

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

1
2
3
With ThisWorkbook.Worksheets("MaFeuille")
    .Cells(.Rows.Count, 1).End(xlUp)(2).Value = UF1.Controls("Valider").Caption
End With

**unparia** · 06/10/2017, 18h47

Bonjour

J'ai pu lire que pour améliorer la vitesse de transfert de valeurs d'un userform vers les cellules d'une feuille il fallait utiliser les Cells à la place des Range.

oui, mais pas comme tu l'utilises là, mais en spécifiant directement son N° dans la plage ******. Et tu ne gagneras ainsi que peu, et encore : sur une énorme plage et si cette plage est parfaitement rectangulaire et continue.

EDIT : ***** au cours des cinq dernières années, je n'ai eu qu'un seul cas où il était plus judicieux d'utiliser cette numérotation interne des cellules Excel. Et encore ! je ne l'ai fait que pour "couper l'herbe sous les pieds" d'un forumeur hispanophone qui demandait du "tout-cuit" en prétendant que son application n'était pas destinée à d'autres que lui-même. En utilisant cette numérotation, non sur une plage de données, mais sur la totalité des cellules de la feuille de calcul, tout était ainsi construit pour capoter s'il passait de la version 2003 à la version 2007. Et cela n'a pas raté (et il est allé demander, sans l'obtenir, un secours sur un autre forum ...

)

**eriiic** · 07/10/2017, 13h07

Bonjour à tous,

Cells(x, y) ou même Cells(z) ne sont pas des Range ???
eric

**joe.levrai** · 07/10/2017, 13h30

L’ambiguïté tient au fait que Range peut représenter deux choses :

- l'objet Range : Range("A1")
- la propriété Range de Worksheet, qui peut lui-même contenir des objets Range : Range(Range("A1"),Range("A2"))

Et pour encore faire simple : Cells est un objet OU une propriété de l'objet Range

J'espère ne pas avoir été trop lapidaire ou malavisé dans l'explication

Invité · 10/10/2017, 10h41

Bonjour,

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
Function cb1forfait()
    Application.ScreenUpdating = False: Application.EnableEvents=False
    With ThisWorkbook.Worksheets("Feuil1")
        l = Sheets("Feuil1").Range("a10000").End(xlUp).Row '+ 1
        Range("A" & l).Value = UFforfait1.Controls("Valider").Caption
        Range("B" & l).Value = UFforfait1.Controls("cb1")
        Range("C" & l).Value = UFforfait1.Controls("cat")
        Range("D" & l).Value = UFforfait1.Controls("TextBox7").Value
        Range("E" & l).Value = UFforfait1.Controls("TextBox145")
        Range("I" & l).Value = UFforfait1.Controls("ComboBox13")
        Range("F" & l).Value = UFProgrammationForfait.Controls("cbformation1")
        Range("G" & l).Value = UFProgrammationForfait.Controls("TBintituléNANTES1")
        Range("H" & l).Value = UFProgrammationForfait.Controls("T131") & " au " & UFProgrammationForfait.Controls("T141")
        Range("AG" & l).Value = CDate(UFProgrammationForfait.Controls("T131"))
        Range("AH" & l).Value = CDate(UFProgrammationForfait.Controls("T141"))
        Range("J" & l).Value = UFProgrammationForfait.Controls("Cbsemaine1").Value
        Range("K" & l).Value = Round(Val(UFProgrammationForfait.Controls("T41").Value), 2)
        Range("L" & l).Value = Round(Val(UFProgrammationForfait.Controls("T51").Value), 2)
        Range("M" & l).Value = UFProgrammationForfait.Controls("T61")
        Range("N" & l).Value = UFProgrammationForfait.Controls("T71")
        Range("O" & l).Value = UFProgrammationForfait.Controls("Cborganisme1")
        Range("P" & l).Value = UFProgrammationForfait.Controls("Cblieu1")
        Range("Q" & l).Value = Round(Val(UFProgrammationForfait.Controls("T91").Value), 2)
        Range("R" & l).Value = Round(Val(UFforfait1.Controls("T101").Value), 2)
        Range("S" & l).Value = Round(Val(UFforfait1.Controls("T111").Value), 2)
        Range("T" & l).Value = Round(Val(UFforfait1.Controls("T121").Value), 2)
        Range("Y" & l).Value = UFProgrammationForfait.Controls("Cdm1").Value
        Range("AA" & l).Value = UFProgrammationForfait.Controls("TextBox6666").Value
        Range("AB" & l).Value = UFProgrammationForfait.Controls("TextBox1111").Value
        Range("AC" & l).Value = UFProgrammationForfait.Controls("TextBox2222").Value
        Range("AD" & l).Value = UFProgrammationForfait.Controls("TextBox3333").Value
        Range("AE" & l).Value = UFProgrammationForfait.Controls("TextBox4444").Value
        Range("AF" & l).Value = UFProgrammationForfait.Controls("TextBox5555").Value
        Select Case CStr(Abs(UFforfait1.Controls("CheckBox1").Value)) & CStr(Abs(UFforfait1.Controls("CheckBox2").Value))
            Case "00"
                Range(Range("A" & l), Range("AJ" & l)).Interior.ColorIndex = xlNone
            Case "01"
                Range(Range("A" & l), Range("AJ" & l)).Interior.ColorIndex = 45
                Range("Z" & l).Value = "ko"
            Case "10"
                Range(Range("A" & l), Range("AJ" & l)).Interior.ColorIndex = 38
                Range("x" & l).Value = "ok"
            Case "11"
                Range(Range("A" & l), Range("AJ" & l)).Interior.ColorIndex = 45
                Range("x" & l).Value = "ok"
                Range("Z" & l).Value = "ko"
        End Select
        Dim ID 'Ajoute un numéro d'index unique en bout de ligne :
        ID = Range("A1").Value: ID = ID + 1: Range("A1") = ID: Range("Aj" & l).Value = ID
    End With
    Application.ScreenUpdating = True: Application.EnableEvents=true
End Function

**Mél3790** · 12/10/2017, 09h01

Bonjour à tous,

dysorthographie ton code fonctionne très bien, par contre, il n'ajoute pas une ligne à la fin du tableau, mais écrase la dernière ligne remplie

**unparia** · 12/10/2017, 09h14

Décommente alors le + 1 dans

Code :

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

l = Sheets("Feuil1").Range("a10000").End(xlUp).Row '+ 1

Ta réaction met en évidence que tu ne sais que copier/coller, sans analyser, sans comprendre ...

**Mél3790** · 12/10/2017, 09h32

J'ai bien décommenté le +1 avant de voir ta réponse, seulement, j'ai toujours ce problème de lenteur, ça rame, à cause de ça.
Donc mon problème reste le même malheureusement.
Je ne sais pas comment formuler le +1 autrement, à moins qu'il n'y ai pas d'autres solution ..

**Marc-L** · 12/10/2017, 10h29

Bonjour, bonjour !

Un calcul +1 étant instantané, cela ne peut donc pas ramer à cause de ça !

Si chez un garagiste on affirme « ma boîte de vitesse est morte » alors ne pas s'étonner de son remplacement
même si en fait il n'y avait qu'un boulon à resserrer !

Exporter les modules, les supprimer, sauvegarder puis les réimporter, sait-on jamais …
Ou encore les importer dans un nouveau classeur et comparer.

Si Excel est utilisé comme base de données, ne pas s'étonner de sa lenteur car ce n'est pas sa fonction ! Access oui …

Voilà, voilà !

___________________________________________________________________________________________________________

Je suis Paris, Barcelone, London, Manchester, Egypte, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …