Dim ????

[DJ FA]

Bonsoir, je viens à vous car j'ai un soucis avec vba, je souhaite copier en colonne A (1 to 50) des valeurs (chiffres) qui viennent d'un autre logiciel d'émulation lié avec excel.

Mon soucis c'est que je ne sais pas si c'est dim a ou dim i, enfin je comprends pas...

Merci à vous.

[vba-new]

Bonjour DJ FA,

Pas trop compris le problème. Le "a" ou le "i" que tu déclares est un nom de variable. Tu peux donc mettre presque n'importe quoi. Comme : Dim azerty ou encore Dim DJFA...
Si ça répond pas à ta question, essaie de joindre un bout de fichier pour mieux cerner le problème.

[DJ FA]

En pm c'est possible ?

[vba-new]

Tu peux pas mettre des valeurs bidons plutôt ?

[DJ FA]

Voici une partie de mon code, je souhaite que les valeurs trouvées soient copiées sur la colonne A les une en dessous des autres. Ca bloque à la deuxième ligne, Merci.

Code: Tout sélectionner

Dim a As Integer
For a = 1 To 50
Cells(a, 1).Value =
Cells(b, 1).Value =
Cells(c, 1).Value =
Cells(d, 1).Value =
Cells(e, 1).Value =
Cells(f, 1).value =

[vba-new]

Et comme ça ça marche ?

Code: Tout sélectionner

Dim a As Integer, b%, c%, d%, e%, f%
For a = 1 To 50
    Cells(a, 1).Value =
Next a
For b = 51 To 100
    Cells(b, 1).Value =
Next b
For c = 101 To 150
    Cells(c, 1).Value =
Next c
For d = 151 To 200
    Cells(d, 1).Value =
Next d
For e = 201 To 250
    Cells(e, 1).Value =
Next e
For f = 251 To 300
    Cells(f, 1).value =
Next f
 

Le "%" dans la déclaration des variables signifie Integer

[DJ FA]

Alors en fait je veux une valeur pour une cellule, et là ça copie la même valeur 50 fois. désolé mon code n'est pas très bon.

-- Jeu Mai 19, 2011 12:06 am --

alors j'ai fais ça et cela fonctionne :

Code: Tout sélectionner

For a = 1 To 1,  For b = 2 To 2 etc etc...

y a t-il un moyen d'avoir un code plus simple une sorte de boucle ?

[vba-new]

Re,

Les variables a, b, c, d, e, f sont-elles obligatoires ? Si non, remplace-les par 1, 2, 3, 4, 5, 6.

[DJ FA]

J'ai fais avec ce que tu m'avais proposé (merci au passage) et ma modification et ça fonctionne, par contre j'ai un autre petit soucis.

J'ai ça : Dim x As Integer
For x = 3 To 27

Mais quand la colonne est remplie de 3 à 10 par exemple, ma macro ne s'arrête pas à 10 elle continue jusqu'à 27 ! Comment éviter ceci ? merci bien.

[vba-new]

Essaie avec :

Code: Tout sélectionner

Dim x As Integer
For x = 3 To 10