Erreur dans mon code

[Tungstene]

Salut,

Comment faire pour que le code suivant fonctionne. Cela vient d'un problème de déclaration de variables?


For k = B To AK

Range(k & '152').Value = Range(k & '11').Value

Next

 

[dg62]

Bonsoir Tungstene

For i = 1 To 36

Cells(i, 152).Value = Cells(i, 11).Value
Next i

 

[Jam]

Salut Tungstene, Didier,

Tout d'abord une chtite précision à Didier...je commencerai ma boucle à 2 bour terminer à 37 :lol:

Tungstene, de B à AK...voyons, XL calcule et ne connait pas l'alphabet il est donc incapable de faire ce type de boucle B)

Bon courage

 

[PascalXLD]

Bonjour

juste une petite erreur dans le code de Didier


Cells(152, i).Value = Cells(11, i).Value

Bonne soirée

 

[Hervé]

Bonsoir tout le monde

Si vraiment tu tiens à garder tes lettres pour pouvoir mieux te retrouver dans ton code :

Sub Bouton1_QuandClic()
Dim k As Integer
For k = Columns('B').Column To Columns('AK').Column
        Cells(152, k) = Cells(11, k).Value
Next k
End Sub

salut

 

[Jam]

Salut Hervé,


Super ton 'astuce' pour la boucle...hop, j'la copie dans mes favoris celle-là.

Bonne soirée.

 

[Tungstene]

Salut à tous,

Ok je vous remercie j'ai testé et ça fonctionne.

A+