donnée +1

Lone-wolf

XLDnaute Barbatruc

• 17 Mars 2016

• #2

Re : donnée +1

Bonjour ploz,

Code:

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+

 

Pièces jointes

• numeros.gif

  4 KB · Affichages: 25

Dernière édition: 17 Mars 2016

Vote positif 0 Vote négatif

P

ploz

XLDnaute Occasionnel

• 17 Mars 2016

• #3

Re : donnée +1

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

 

Vote positif 0 Vote négatif

P

ploz

XLDnaute Occasionnel

• 17 Mars 2016

• #4

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

 

Vote positif 0 Vote négatif

P

ploz

XLDnaute Occasionnel

• 17 Mars 2016

• #5

Re : donnée +1

c bon j'ai reussi a l'integrer

 

Vote positif 0 Vote négatif

P

ploz

XLDnaute Occasionnel

• 17 Mars 2016

• #6

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

 

Pièces jointes

• Capture.PNG

  7.9 KB · Affichages: 34

Vote positif 0 Vote négatif

ralph45

XLDnaute Impliqué

• 18 Mars 2016

• #7

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+

 

Vote positif 0 Vote négatif

P

ploz

XLDnaute Occasionnel

• 18 Mars 2016

• #8

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

 

Vote positif 0 Vote négatif

P

ploz

XLDnaute Occasionnel

• 19 Mars 2016

• #9

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

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

Victor21

XLDnaute Barbatruc

• 19 Mars 2016

• #10

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

 

Pièces jointes

• Ploz.xlsx

  8.8 KB · Affichages: 24

Vote positif 0 Vote négatif

ralph45

XLDnaute Impliqué

• 20 Mars 2016

• #11

Re : donnée +1

Re,

Trifouillage...

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

Cliquez pour agrandir...

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

A+

 

Vote positif 0 Vote négatif