Microsoft 365 Prochain numéro

[Marvin57]

Bonjour tout le monde,

dans mon fichier ci-joint, je souhaiterai que lors de l'activation de l'onglet ABT il me donne le prochain ID de la colonne A de l'onglet STOCK.

J'ai réussi à placer un code dans le module de l'onglet ABT de façon qu'il m'affiche en cellule J19 le dernier ID présent de la colonne A de l'onglet STOCK.

Donc je souhaiterai qu'il m'affiche également en cellule J20 le prochain ID de la colonne A de l'onglet STOCK.

Merci d'avance pour votre aide.

Marvin57

 

[piga25]

Bonjour,
Un peu comme cela :

Private Sub Worksheet_Activate()

With Sheets("STOCK")

Range("J19") = .Range("A" & .Cells(Rows.Count, "A").End(xlUp).Row).Value
Range("J20").FormulaR1C1 = "=""R""&RIGHT(R[-1]C,4)+1"
End With
End Sub

Ou directement en J20 mettre cette formule :

="R"&DROITE(J19;4)+1

 

[Marvin57]

Bonjour,
Un peu comme cela :

Private Sub Worksheet_Activate()

With Sheets("STOCK")

Range("J19") = .Range("A" & .Cells(Rows.Count, "A").End(xlUp).Row).Value
Range("J20").FormulaR1C1 = "=""R""&RIGHT(R[-1]C,4)+1"
End With
End Sub

Ou directement en J20 mettre cette formule :

="R"&DROITE(J19;4)+1

Bonjour piga25,

Merci d'avoir pris le temps pour ma demande.
Cela me convient très bien avec le code dans le module de l'onglet.

Encore une fois Merci à vous.

Cordialement, Marvin57