Attribution automatique d'un numéro si cellule remplie

[maval]

Bonjour,

Je suis à la recherche d'un code, si une cellule de la colonne "b" est remplie on attribue à la cellule de la colonne "A" le N° qui correspond

Merci d'avance

 

[Victor21]

Re : Attribution automatique d'un numéro si cellule remplie

Bonjour maval.

en A3 à recopier vers le bas :

=SI(B3<>"";LIGNE()-2;"")

 

[maval]

Re : Attribution automatique d'un numéro si cellule remplie

Bonjour Victor

Je te remercie mais j'aimerais avoir en VBA pour ajouter a mon code
merci d'avance

 

[Victor21]

Re : Attribution automatique d'un numéro si cellule remplie

Re,

Et l'enregistreur de macro, que dit-il ?

 

[job75]

Re : Attribution automatique d'un numéro si cellule remplie

Bonjour maval, Patrick,

Je verrais plutôt en A3, pour que les numéros se suivent :

=SI(B3="";"";MAX(A$1:A2)+1)

qu'on peut utiliser ainsi en VBA :

Sub Numéroter()
On Error Resume Next 'si feuille vide
With Intersect(Range("A2:A" & Rows.Count), ActiveSheet.UsedRange.EntireRow)
  .FormulaR1C1 = "=IF(RC[1]="""","""",MAX(R1C:R[-1]C)+1)"
  .Value = .Value 'supprime les formules
End With
End Sub

A+

 

[maval]

Re : Attribution automatique d'un numéro si cellule remplie

Bonjour Job

Je vous remercie beaucoup Nickel

Je vous souhaite un très bon dimanche.

 

[Staple1600]

Re : Attribution automatique d'un numéro si cellule remplie

Bonjour à tous

maval
[aparté]
Toujours pas de nouvelles dans ce fil que tu as pourtant initié, non ?

maval
Qu'en est-il de ce fil ?
http://www.excel-downloads.com/forum...opy-titre.html
Mon code VBA convient ou ne convient pas ?

[/aparté]

 

[maval]

Re : Attribution automatique d'un numéro si cellule remplie

Bonjour JM

Je m'excuse je ne l'avais pas vue, mais je te remercie et te souhaite un très bon dimanche.
...Excuse

 

[job75]

Re : Attribution automatique d'un numéro si cellule remplie

Re, hello JM,

Avec un tableau organisé en "Tableau" nommé "Tableau1", le code de la feuille :

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [Tableau1]) Is Nothing Then Exit Sub
Application.EnableEvents = False
With [Tableau1].Columns(1)
  .FormulaR1C1 = "=IF(RC[1]="""","""",MAX(R" & .Row - 1 & "C:R[-1]C)+1)"
  .Value = .Value 'supprime les formules
End With
Application.EnableEvents = True
End Sub

Fichier joint.

A+

 

[maval]

Re : Attribution automatique d'un numéro si cellule remplie

Re,

Je te remercie Job c'est Sympa

 

[job75]

Re : Attribution automatique d'un numéro si cellule remplie

Re,

En fait dans un tableau on numérote normalement toutes les liges :

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [Tableau1]) Is Nothing Then Exit Sub
Application.EnableEvents = False
With [Tableau1].Columns(1)
  .Cells(1) = 1
  .DataSeries
End With
Application.EnableEvents = True
End Sub

Fichier (2).

A+

 

[maval]

Re : Attribution automatique d'un numéro si cellule remplie

Bonjour Job

Je vous remercie c'est vraiment sympa.

Je vous souhaite une très bonne journée merci

 

[job75]

Re : Attribution automatique d'un numéro si cellule remplie

Bonjour maval, le forum,

Sur Excel 2003, quand on organise le tableau sous forme de "Liste", il se crée le nom masqué _FilterDataBase qui inclut les en-têtes :

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [_FilterDataBase]) Is Nothing Then Exit Sub
Application.EnableEvents = False
With [_FilterDataBase].Columns(1)
  .Cells(2) = 1
  .Cells(2).Resize(.Rows.Count - 1).DataSeries
End With
Application.EnableEvents = True
End Sub

Fichier .xls joint, j'irai voir ce qu'il donne sur Excel 2010 .

Edit : pas de problème sur Excel 2010.

En plus du nom "_FilterDataBase" le tableau sans les en-têtes est nommé "Liste1"...

Bonne journée.

 

[maval]

Re : Attribution automatique d'un numéro si cellule remplie

Bonjour Job

Ont arrête pas le progrès.

J'aurais une question a vous poser si vous le permettait. J'ai comme vous avez certainement constater un nombre inconsidérable de Shapes.
Je doit toutes les renommer et je passe un temps fou. Au départ ils se nomme Fremond je crois et je les renomme "SP- "00" Y a t-il un code que l'ont puisse faire pour renommer sans trop perdre de temps ??

MERCI D'AVANCE
Je me tiens a votre disposition si vous avez besoin d'un fichier.

 

[job75]

Re : Attribution automatique d'un numéro si cellule remplie

Re,

Cherchez sur le forum, sinon ouvrez une nouvelle discussion pour que celle-ci ne soit pas un dépotoir 🙄

A+