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

**aramge** · 08/08/2006, 16h49

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**Commodore** · 08/08/2006, 16h58

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.

**Catbull** · 08/08/2006, 17h02

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.

**aramge** · 08/08/2006, 17h04

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**Commodore** · 08/08/2006, 17h13

il ne faut pas utiliser Cells.Value, mais Cells.FormulaLocal

**aramge** · 08/08/2006, 17h17

Merci ça fonctionne

**Commodore** · 08/08/2006, 17h18

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**aramge** · 28/08/2006, 17h25

Salut,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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