Re Re pb boucle FOR NEXT

[jb]

bonsoir à tous,

Me revoilà avec mon problème de boucle. Cette fois, étant donné que je n'arrive pas à résoudre mon premier pb, je décide de le contourner en faisant un essai, et devinez quoi, et bien je n'arrive même pas à le faire tourner normalement => génial !!!
Donc, le principe de ce programme est de prendre la valeur de la cellule A1 (entier positif) et, si elle est égale à 1, de reproduire cette valeur dans C1 => jusque là, pas de pb. Par contre, si A1 est supérieur à 1 (ex : 4), je veux que soit inscrit la valeur 1 mais 4 fois consécutivements dans la colonne C (ex : C1 = 1, C2 = 1, C3 = 1 et C4 = 1). J'ai précisé mon code ci-dessous, pourriez-vous m'indiquer mon erreur svp ==> merci et bonne soirée !

Voici le code :

Dim val As Integer
Dim compteur As Integer
Range("C1") = Range("A1")
If Range("A1") > 1 Then
val = Range("A1").Value
compteur = 0
For compteur = 0 To val
Range("C65536").End(xlUp).Select
ActiveCell.Value = 1
Next compteur
Else
End If


JB.

 

[wape]

Bonsoir,

Essaye ceci :

Dim val As Integer
Dim compteur As Integer
Range("C1") = Range("A1")
If Range("A1") > 1 Then
val = Range("A1").Value
For compteur = 0 To val - 1
Range("C1").Offset(compteur, 0) = 1
Next compteur
Else
End If


Slts

wape