Archives de la catégorie : Divers

Voici le résultat d'un petit test de chargement en mémoire d'un grand tableau.

Je compare un chargement direct dans une variable tableau vs. un chargement cellule par cellule.

Voici le fichier.

Les résultats sont sans appels...

Et le code du fichier qui vous montre une des façons de créer un timer dans du VBA:

Sub Bouton1_Cliquer()
'Definition des variables
Dim arrPlage() As Variant
Dim t As String
Dim i As Long
Dim j As Long

'On charge directement les valeurs
t = "Début du programme : " & Application.WorksheetFunction.Text([now()] - tStart, "h:mm:ss.00")
 arrPlage = ActiveSheet.UsedRange.Value
t = t & vbCrLf & "Fin mise en mémoire usedrange values: " & _
Application.WorksheetFunction.Text([now()] - tStart, "h:mm:ss.00")

'On charge les formules
arrPlage = ActiveSheet.UsedRange.FormulaR1C1
t = t & vbCrLf & "Fin mise en mémoire usedrange formula: " & _
Application.WorksheetFunction.Text([now()] - tStart, "h:mm:ss.00")

'on charge en lisant cellule par cellule
For i = LBound(arrPlage, 1) To UBound(arrPlage, 1)
    For j = LBound(arrPlage, 2) To UBound(arrPlage, 2)

        arrPlage(i, j) = ActiveSheet.Cells(i, j).Value
    
    Next
Next
t = t & vbCrLf & "Fin mise en mémoire par lecture de chaque cellule : " & _
Application.WorksheetFunction.Text([now()] - tStart, "h:mm:ss.00")

'on affiche le resultat.
MsgBox t

End Sub

Pour en savoir plus sur les variables tableaux, vous pouvez consulter cette formation:
https://www.xlerateur.com/collection-vba-avance-volume-3-les-variables-tableaux-en-vba-2/

A bientôt

Gaetan

Après la première vague de mises à jour, la deuxième vague va inclure l'ajout des images dans le formulaire 🙂

Voici deux copies d'écran pour vous faire saliver un peu 🙂

A bientôt !

Gaëtan

Bonjour,
Voici un petit code pour débutant qui permet d'afficher un message 5 fois en utilisant une boucle. Le fichier est ici.

Sub subBonjour5Fois()
'Definition de la variable
Dim iAfficherBonjour As Integer
'Faire une boucle qui va s'executer 5 fois
For iAfficherBonjour = 1 To 5
'Afficher "Bonjour"
MsgBox "Bonjour", vbOKOnly
Next
End Sub

Dans ce code, la variable iAfficherBonjour va prendre la valeur 1, puis 2, puis, 3 jusque 5. A chaque passage, le message "Bonjour" va s'afficher.

Si vous voulez en savoir plus sur le VBA, vous pouvez vous procurer cette formation :
https://www.xlerateur.com/formation-au-vba/

A bientôt.

Gaetan Mourmant