Discussion :

[Tonton_glenn]

Bonjour a tous,

Je fait une nouvelle fois appelle à vous pour un probleme que je n'arrive pas à reseoudre après moulte recherches qui ne me conviennent pas .

Je souhaiterai dans une colonne generer une valeur unique (correspondant à une sorte d'index) de la forme Uxxxx ou xxxx sont des chiffres.

La particularité c'est qu'il me faut integrer ceci dans une macro (dc via un bouton qui remplirai la cellule) et que l'argument utilisé NE SOIT PAS prendre la cellule du dessus et l'incrementer de 1 mais plutot lire toute la colonne, reperer la valeur maximum et l'incrementer de 1, ceci dans un souci de tri de la premiere colonne (les index bougeront donc).

Voici un exemple de ce que je souhaite mettre en place :



Dans mon image de gauche, le bouton m'a permis de creer les index. apres un tri (donc id dans le desordre) et l'ajout d'une valeur en dessous, le bouton a reperer la valeur maximale (U0004) et a donc creer U0005 pour le suivant.

Auriez-vous une solution pour moi ?

En vous remerciant par avance

[Invité]

Bonjour

Une piste en utilisant un code de ce type testé sur une colonne A et un bouton de commande :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub CommandButton1_Click()
    Dim i As Long
    Dim lngMax As Long
 
    For i = 1 To Range("A1").End(xlDown).Row
        If CLng(Right(Range("A" & i).Value, 4)) >= lngMax Then
            lngMax = CLng(Right(Range("A" & i).Value, 4))
        End If
    Next i
 
    MsgBox "U" & Format(lngMax + 1, "0000")
 
End Sub

Philippe

[Didier Gonard]

La particularité c'est qu'il me faut integrer ceci dans une macro (dc via un bouton qui remplirai la cellule) et que l'argument utilisé NE SOIT PAS prendre la cellule du dessus et l'incrementer de 1 mais plutot lire toute la colonne, reperer la valeur maximum et l'incrementer de 1, ceci dans un souci de tri de la premiere colonne (les index bougeront donc).

Selon ce que j'en comprends, le plus simple sous vba serait de faire un tri transitoire de ton tableau sur la colonne id, donc le dernier serait forcément le plus élevé et il te suffit de rajouter 1 pour obtenir le suivant... puis de refaire le tri voulu.

ça devrait être bien plus rapide...

cordialement,

Didier