Macro numérotation d'appartement auto

[Lucifer]

Bonjour, je souhaite réaliser une macro qui réalise automatiquement la numérotation d'appartement comme suit :
Appart 1 ; Etage 1 = 101
Appart 2 ; Etage 1 = 102
Appart 1 ; Etage 2 = 201
etc....
Je veux que quand je rentre manuellement mes numeros d'étage, les numeros d'appart s'affiche (ou se mettent a jour)

J'ai tenté une macro mais je suis débutant alors... pas simple !

Sub NUM()
'
' NUM Macro
'

For i = 1 To 48
Range("E5:E53").Select
ActiveCell.FormulaR1C1 = "=RC[2]&0&1"
Next i
ActiveCell.FormulaR1C1 = "=RC[2]&0&1+1"
End Sub

ça ne fonctionne absolument pas !!
Je vous joint un fichier pour plus de compréhension ^^

Merci pour votre aide par avance !

 

[JHA]

Re : Macro numérotation d'appartement auto

Bonjour à tous,

Pas sur que la macro soit utile. A essayer en "E5"

=($G5*100)+NB.SI($G$5:$G5;$G5)

puis tirer vers le bas

JHA

 

[Lucifer]

Re : Macro numérotation d'appartement auto

Formidable ça fonctionne a merveille !!!
Et en plus c'est beaucoup plus simple

Merci beaucoup pour ta réponse si rapide !!