Erreur dans mon code

dg62

XLDnaute Barbatruc

• 23 Novembre 2005

• #2

Bonsoir Tungstene

Code:

For i = 1 To 36

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

 

Vote positif 0 Vote négatif

Jam

XLDnaute Accro

• 23 Novembre 2005

• #3

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

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

Modérateur

• 23 Novembre 2005

• #4

Bonjour

juste une petite erreur dans le code de Didier


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

Bonne soirée

 

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 23 Novembre 2005

• #5

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

Cliquez pour agrandir...

salut

 

Vote positif 0 Vote négatif

Jam

XLDnaute Accro

• 23 Novembre 2005

• #6

Salut Hervé,


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

Bonne soirée.

 

Vote positif 0 Vote négatif

T

Tungstene

XLDnaute Occasionnel

• 24 Novembre 2005

• #7

Salut à tous,

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

A+

 

Vote positif 0 Vote négatif