Microsoft 365 Prochain numéro

Marvin57 · 30 Mars 2024

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 · 30 Mars 2024

Bonjour,
Un peu comme cela :

VB:

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 :

VB:

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

piga25 · 30 Mars 2024

Bonjour,
Un peu comme cela :

VB:

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 :

VB:

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

Marvin57 · 30 Mars 2024

piga25 à dit:
Bonjour,
Un peu comme cela :

VB:

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 :

VB:

="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

Microsoft 365 Prochain numéro

Marvin57

XLDnaute Occasionnel

Pièces jointes

piga25

piga25

XLDnaute Barbatruc

Marvin57

XLDnaute Occasionnel

Discussions similaires