Pour Hervé

[Daniel]

Dans le programme que tu m'as donné, comment puis-je mettre le résultat du calcul dans une autre colonne que M

Public Sub vev()
Dim c As Range

For Each c In Range('l7:l' & Range('l65536').End(xlUp).Row)
Select Case c.Value
Case 11 To 25: c.Offset(0, 1) = 8
Case 26 To 50: c.Offset(0, 1) = 10
Case 51 To 90: c.Offset(0, 1) = 13
Case 91 To 150: c.Offset(0, 1) = 15
Case 151 To 280: c.Offset(0, 1) = 20
Case 281 To 500: c.Offset(0, 1) = 30
Case 501 To 800: c.Offset(0, 1) = 40
Case 801 To 1200: c.Offset(0, 1) = 50
Case 1201 To 3200: c.Offset(0, 1) = 80

Case Else: c.Offset(0, 1) = 0
End Select
Next c
End Sub

je te remets le tableau en plus
[file name=T&a test_20050425154123.zip size=10410]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/T&a test_20050425154123.zip[/file]

 

[mike]

bonjour tout le monde,

je m incruste....essaie peut etre d ajouter par exemple +1 a 'next c'

 

[PascalXLD]

Bonjour Daniel

Une petite lecture de la charte t'aidera

1 - a ne pas changer continuellement de fil pour une question qui se suit

2 - A dire Bonjour quand on ouvre un nouveau fil même si on a l'impression que c'est uen suite

3 - A ne pas interpeler quelqu'un dans le sujet

Je te remets donc le lien ICI

Sinon il faut que tu modifies c.Offset(0, 1)

le 1 de cette formule te mets le resultat 1 colonne à droite de ta colonne l ou L en majuscule soit M

Donc si tu veux en Q par exemple tu mets : c.Offset(0, 5)

Bon courage

 

[Hervé]

re

Il te suffit de faire varier le 1 de c.offset(0,1).

Explication :

Ta colonne de base est la colonne L, avec le offset tu décales la colonnes de résultat, donc dans ce cas tu décales de 1 colonne à droite.

c.offset(ligne,colonne)

Pour décaler de 2 colonnes à droite c.offset(0,2)=.... (c'est ce que tu veux je crois)

Pour décaler de 10 colonnes à gauche c.offset(0,-10)=....

Pour décaler de 2 colonnes à droite et une ligne vers le bas c.offset(1,2)=....

Voilà

Au fait, tu devrais rester dans le meme fil pour les compléments d'info, sinon on va s'y perdre.

Salut

 

[daniel]

Bonsoir,

merci et désoler, je ne le ferais plus


a+ dan