Code pour me générer un numéro

job75

XLDnaute Barbatruc

• 23 Octobre 2019

• #2

Bonsoir anasimo,

Je vous ai donné des solutions sur ce fil :

https://www.excel-downloads.com/thr...quement-une-matricule.20037304/#post-20266625

A+

 

Vote positif 0 Vote négatif

anasimo

XLDnaute Occasionnel

• 23 Octobre 2019

• #3

salut job

oui j'ai vu et je l'utilise pour un autre fichier pour des classeurs qui ont des noms qui débutent pas BD (il m'a beaucoup rendu service)
cette fois c un cas différent c juste pour feuille

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 23 Octobre 2019

• #4

Qui peut le plus peut le moins, voyez le fichier joint et cette macro dans le code de la feuille "Data" :

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
With UsedRange.Columns(2)
    If Application.CountBlank(.Cells) And .Cells.Count > 1 Then .SpecialCells(xlCellTypeBlanks) = Sheets("Utilisateur").[B4]
End With
End Sub

A+

 

Pièces jointes

• code automat(1).xlsm

  18.5 KB · Affichages: 10

Vote positif 0 Vote négatif

anasimo

XLDnaute Occasionnel

• 24 Octobre 2019

• #5

Bonjour
Comme c beau de venir au boulot le matin, de se connecter au forum et de trouver une solution à ton problème
Merci beaucoup Job75....c exactement ce que je cherche

 

Vote positif 0 Vote négatif