Bonjour,
Bien que je ne maitrise pas du tout le VBA, je me suis jusqu'à maintenant débrouillé avec l'enregistreur de macro. Maintenant j'atteins mes limites avec cette méthode.
J'ai dans mon projet un certain nombre de lignes, du genre :
Je voudrais pouvoir remplacer la valeur "200" par une valeur saisie dans une cellule de mon tableur. Disons en A1.
J'ai compris que çà passait par quelque chose dans le genre "range("A1").Value", mais je ne sais pas du tout comment faire. Surtout que cette cellule A1 est dans une autre feuille que celle où agit ma macro.
Re : définir une variable à partir d'une cellule, .........et comment l'utiliser?
Bonjour le fil, bonjour le forum,
Ha bem m... alors ! Moi non plus je n'arrive même pas à l'ouvrir... Les boules! Vu le temps que j'avais passer à remplacer tous les select par des With... End With. Si tu arrives à voir le code (dans le module Module1), copie-le et colle-le dans ton fichier... Qui sait...
Re : définir une variable à partir d'une cellule, .........et comment l'utiliser?
Re
Robert:
Désolé, je n'ai pas non plus réussi à ouvrir ta PJ
J'ai donc ouvert le fichier joint par guigui971 (cf message #7)
guigui971:
Un autre exemple de simplification de ta macro1
(test ok sur mon pc)
Code:
Sub Macro1()
Dim Ligne As Long
With Sheets("Paramètres")
Ligne = .Range("B21"): .Columns("A:A").Insert -4161
With .Range("A1")
.Value = "index"
With .Offset(1)
.Value = 1: .DataSeries 2, -4132, 1, 1, Ligne, False
End With
End With
End With
End Sub
Re : définir une variable à partir d'une cellule, .........et comment l'utiliser?
Salut,
A propos de choses qui ralentissent l'execution, j'ai trouvé un code qui accelere notablement les choses :
Au début, on met :
Application.ScreenUpdating = False
A la fin, on n'oublie pas:
Application.ScreenUpdating = True
With Application
.ScreenUpdating = False
.EnableEvents = False 'si procédures événementielles
.Calculation = xlCalculationManual ' si formules
End With
'le code
With Application
.Calculation = xlCalculationAutomatic
.EnableEvents = True
.ScreenUpdating = True
End With