[VBA-E] Problème de numérotation de lignes

Version imprimable

08/08/2006, 15h49
aramge

[VBA-E] Problème de numérotation de lignes
Bonjour,

Je dispose d'un fichier contenant un événement sur une ligne, chaque événement est numéroté sur une même colonne (ex: 1 a 1000).
A l'aide d'une macro, j'ai automatisé cette numérotation:
Code:

1 2 f.Range(Cells(l, 1), Cells(l, 1)).Value = f.Range(Cells(l - 1, 1), _ Cells(l - 1, 1)).Value + 1
Où "l" est la nouvelle ligne où il y aura le nouvel événement.

Cependant à la suite de saisi manuelle, la numérotation des lignes n'est plus croissante.

Donc pour que cela fonctionne, il faurait que pour la nouvelle ligne le numéro soit le Max de la colonne + 1.
Et là je bloque, je ne trouve pas de fonction maximum.

Est-ce que quelqu'un pourrait m'aider?

Merci
08/08/2006, 15h58
Commodore

idéalement, il faudrait trier tes évènements par id croissant et ajouter a la fin de la liste un id+1 car la derniere ligne contiendrait le max.
08/08/2006, 16h02
Catbull

Comme le dit Commodore_Psykopate, tu peux trier ton tableau sur l'id ou alors utiliser la fonction MAX d'Excel.

Une autre stratégie, consiste à interdire à l'utilisateur de créer/modifier les id.
08/08/2006, 16h04
aramge

Merci,

j'ai essayé la fonction Max d'Excel, j'ai essayer de l'enregistrer en Macro mais je n'arrive pas à l'adapter:

Code:

f.Range(Cells(l, 1), Cells(l, 1)).Value = "=MAX(R[-l]C:R[-1]C)+1"

Mais cela ne fonctionne pas

Et je ne peux pas interdire les modifications à l'utilisateur
08/08/2006, 16h13
Commodore

il ne faut pas utiliser Cells.Value, mais Cells.FormulaLocal
08/08/2006, 16h17
aramge

Merci ça fonctionne
08/08/2006, 16h18
Commodore

Code:

f.Range(Cells(l, 1), Cells(l, 1)).FormulaR1C1 = "=MAX(R[-l]C:R[-1]C)+1"

-edit- pardon, FormulaR1C1, pas FormulaLocal.
je n'avais pas vu que tu faisais des formules relatives
28/08/2006, 16h25
aramge

Salut,

en fait la formule utilisée ne marche pas très bien.

Code:

f.Range(Cells(l, 1), Cells(l, 1)).FormulaR1C1 = "=MAX(R[-95]C:R[-1]C)+1"

Je voudrais que la formule me donne la plus grande valeur contenu dans les cellules de la 1ère colonne de la ligne 1 à (l - 1) et là ça me donne la plus grande valeur contenu dans les 94 lignes précédentes.

Si quelqu'un pouvait m'aider,

Merci
28/08/2006, 16h35
SfJ5Rpw8
essai :
Code:

1 2 =MAX(R1C:R[-1]C)
29/08/2006, 11h06
aramge

Salut,

en fait j'ai pris juste les 5 derniéres lignes et j'ai effectué un tri a l'ouverture du dossier.

Ca marche

Merci