Microsoft 365 Prochain numéro

Marvin57

XLDnaute Occasionnel
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
 

Pièces jointes

  • Marvin57 ID.xlsm
    15.3 KB · Affichages: 4
Solution
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

XLDnaute Barbatruc
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
 
Dernière édition:

Marvin57

XLDnaute Occasionnel
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
 

Discussions similaires

Réponses
13
Affichages
279
Réponses
6
Affichages
470
Réponses
26
Affichages
1 K
Réponses
9
Affichages
755
Réponses
7
Affichages
438
Réponses
13
Affichages
457
Réponses
21
Affichages
1 K
Réponses
6
Affichages
367

Statistiques des forums

Discussions
313 290
Messages
2 096 853
Membres
106 766
dernier inscrit
jBa2023