Perfo VBA

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Perfo VBA

phdenis

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

Publicité

kiki29

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

phdenis

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

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

neozenfragance

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.

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Perfo VBA

Sujets relatifs
VBA - Problème avec ImageComboBox	MACRO VBA pour numérotation d'image Word
VBA CATIA V5 - Récupérer la langue de l'interface utilisateur	[Excel/VBA] Supprimer les 0 extérieurs dans une donnée alphanumérique
[PPT/VBA] Changer tiret et couleurs de traits sur différents slides	[Excel/VBA] Temps de calcul / Attente
[Excel/VBA] Selectionner des cellules contenant une certaine valeur	Interface VBA/C++
Macros VBA : Excel 2003 vs Excel 2007	Comparer 2 listes dans 2 onglets via macro VBA (Excel 2007)
Plus de sujets relatifs à : Perfo VBA

Page générée en 0.048 secondes