Perfo VBA

Marsh Posté le 02-08-2011 à 00:24:16

Bonjour,

Je suis entrain de développer une macro qui met en forme des cellules et recopie un grand nombre de donnée (500 lignes de 5 colonnes).
En cherchant sur google, j'ai vu que l'on pouvait soit passer par un tableau soit par l'indice.

D’après mes recherches, le fait de passer par un tableau permet de gagner beaucoup de temps.
La question que je me pose, est de savoir comment faire pour affecter dans 5 cellules des valeurs différentes.

Exemple:
- Cellule A1 = "Legend1"
- Cellule B1 = "Legend2"
- Cellule C1 = "Legend3"
- Cellule D1 = "Legend4"
- Cellule E1 = "Legend5"

Merci d'avance pour votre aide ou si vous avez des liens.
Philippe

Reply

Marsh Posté le 02-08-2011 à 00:24:16

Reply

Marsh Posté le 02-08-2011 à 00:39:12

Salut, ceci n'est qu'un exemple pour la concatenation de x feuilles d'un classeur dans une feuille dont le CodeName est ShConcat du même classeur, à toi de l'adapter à ton contexte

Option Explicit

Sub ConcatenationFeuilles()
Dim i As Long, T() As Variant

Application.ScreenUpdating = False
ShConcat.Cells.Clear
For i = 1 To Sheets.Count
If Sheets(i).Name <> ShConcat.Name Then
With Sheets(i)
T = .Range("A4:J" & .Range("A" & Rows.Count).End(xlUp).Row).Value
ShConcat.Range("A" & Rows.Count).End(xlUp).Offset(1).Resize(UBound(T, 1), UBound(T, 2)) = T
End With
End If
Next i
Erase T
Application.ScreenUpdating = True
End Sub

Message cité 1 fois
Message édité par kiki29 le 02-08-2011 à 00:41:40

---------------
Myanmar 90/91 : http://gadaud.gerard.free.fr/publi [...] index.html

Reply

Marsh Posté le 02-08-2011 à 13:40:51

kiki29 a écrit :

Salut, ceci n'est qu'un exemple pour la concatenation de x feuilles d'un classeur dans une feuille dont le CodeName est ShConcat du même classeur, à toi de l'adapter à ton contexte

Option Explicit

Sub ConcatenationFeuilles()
Dim i As Long, T() As Variant

Application.ScreenUpdating = False
ShConcat.Cells.Clear
For i = 1 To Sheets.Count
If Sheets(i).Name <> ShConcat.Name Then
With Sheets(i)
T = .Range("A4:J" & .Range("A" & Rows.Count).End(xlUp).Row).Value
ShConcat.Range("A" & Rows.Count).End(xlUp).Offset(1).Resize(UBound(T, 1), UBound(T, 2)) = T
End With
End If
Next i
Erase T
Application.ScreenUpdating = True
End Sub

Bonjour,
Effectivement, je vais regarder ton exemple mais pour en revenir au 1er point de mon problème, je cherche à savoir si il est possible de modifier le texte de plusieurs cellules en passant par un tableau.

Car j'ai déjà une solution mais je cherche quelque chose de plus élégant et plus efficace (le texte Legendx est un texte bidon):
- Cellule A1 = "Legend1"
- Cellule B1 = "Legend2"
- Cellule C1 = "Legend3"
- Cellule D1 = "Legend4"
- Cellule E1 = "Legend5"

Code :

' Declare a range
Dim MyRang as Range
' Define a range
Set MyRang = Range("A1" )
' For each cell, sets the associated value
With MyRang
.Value = "Legend1"
.Offset(0, 1).Value = "Legend2"
.Offset(0, 2).Value = "Legend3"
.Offset(0, 3).Value = "Legend4"
.Offset(0, 4).Value = "Legend5"
End With

Reply

Marsh Posté le 03-09-2011 à 19:22:05

Salut,

Si j'ai compris ta question, tu souhaites créer tes données dans un tableau et les transférer ensuite dans Excel :

Code :

Option Base 1
Sub Remplissage()
Dim temp() As Variant, nbLg, nbCl, celluleCopie As Range
' Définition du tableau
nbLg = 500
nbCl = 5
ReDim temp(nbLg, nbCl)
' Remplissage du tableau
For i = 1 To nbLg
ref = "Legend" ' texte de référence à définir
For j = 1 To nbCl
temp(i, j) = ref & j
Next
Next
' Copie des données dans Excel
Set celluleCopie = Cells(1, 1)
celluleCopie.Resize(nbLg, nbCl) = temp
End Sub

---------------
Si seulement tu connaissais le pouvoir du côté obscur. Obi-Wan ne t’a jamais dit ce qui est arrivé à ton père.

Reply

Perfo VBA

Sujets relatifs:

Leave a Replay