donnée +1

[ploz]

bonjour à tous

je me tourne à nouveau vers vous car enfaite dans mon classeur jai une feuille qui se nomme données

en colonne B j'ai un numero qui se nomme : XXX_2016, 2016 étant l'année

donc par exemple si on clique sur mon bouton pour ecrire les données qui et présent dans mon userform

je voudrais que sa écrive
001_2016
002_2016

ect ...

merci pour votre retour

 

[Lone-wolf]

Re : donnée +1

Bonjour ploz,

Sub test()
With Sheets("Feuil1")
lig = .Range("b65536").End(xlUp).Row + 1
tot = (lig - 2) + 1
.Cells(lig, 2) = "00" & tot & "_" & Year(Date)
End With
End Sub

A+ 😎

 

[ploz]

Re : donnée +1

Merci pour la réponse je test cela des que je ai fini le boulot

 

[ploz]

Re : donnée +1

Bonsoir je doit le mettre dans un module ou direct dans mon userform car qd je le mais dans mon user rien ne ce passe

 

[ploz]

Re : donnée +1

c bon j'ai reussi a l'integrer

 

[ploz]

Re : donnée +1

cependant quand j'execute la macro voici le resultat


a sa voir que le 001_2016 c est moi qui les ajouter manuellement

 

[ralph45]

Re : donnée +1

Bonjour le Forum, ploz, Lone-Wolf.

ploz, regarde bien l'énoncé de ta question : "j'ai en colonne B", ce à quoi Lone-Wolf t'a très bien répondu avec ce code qui agit sur la colonne B. Cependant, on s'aperçoit que dans le post #6, il ne s'agit certainement pas de cette fameuse colonne B.

A+

 

[ploz]

Re : donnée +1

oui cependant j'ai juste modif un peu le code pour qu il me l'execute en colonne D je me suis trompé de colonne quand j'ai demander :s

donc de ce faite j'ai modifer juste cette partie du code

.Cells(lig, 2) que j'ai remplacer par 4

voila =)

 

[ploz]

Re : donnée +1

bonsoir j'ai résolu

si sa peux aider quelqu'un

Option Explicit
Dim lig
Dim tot
Sub xxx_annee()
With Sheets("Données")
lig = .Range("b65536").End(xlUp).Row + 1
tot = (lig - 5) + 1
.cells(lig, 4) = "00" & tot & "_" & Year(Date)
End With
End Sub

 

[Victor21]

Re : donnée +1

Bonjour, ploz, le forum.

Une macro pour incrémenter un nombre. C'est un peu le marteau-pilon pour écraser un moucheron, non ?
Voir ma proposition (format de nombre personnalisé) en pj 🙂

 

[ralph45]

Re : donnée +1

Re,

Trifouillage...

lig = .Range("D65536").End(xlUp).Row + 1

aurait été plus simple et logique dans la lecture du code.

A+