Autres Comment incrementer collone A de 0001 à 0002 et de suite si colonne E: A f sont > 1

[LUYGYS]

Bonjour.
Quelqun connait la formule pour faire incrémenter le numéro d' entrées sur excel collone A exemple 0001 0002 0003 si dans la collone E1 ou F1 il a 1 ou 2 ou 3 etc

Cordialement

Luygys

 

[Staple1600]

Bonsoir le fil

Oui Excel sait faire cela (tout comme l'enregistreur de macros...)

 

[LUYGYS]

Bonjour. a oui !
et on fait comment quelle est la formule a applique...!

LUYGYS

 

[Staple1600]

Re,

Entre autres possibilités

Sub Numeros()
Dim DerL&
DerL = InputBox("Combien de lignes?", "Test", 1600)
[A1] = 1: Cells(1).Resize(DerL).DataSeries: Columns(1).NumberFormat = "0000"
End Sub

 

[LUYGYS]

Re,

Entre autres possibilités

Sub Numeros()
Dim DerL&
DerL = InputBox("Combien de lignes?", "Test", 1600)
[A1] = 1: Cells(1).Resize(DerL).DataSeries: Columns(1).NumberFormat = "0000"
End Sub

 

[Staple1600]

Re

Ou aussi

Sub Numeros_II()
Dim DerL&
DerL = InputBox("Combien de lignes?", "Test", 1600)
[A1] = 1: Cells(1).AutoFill Cells(1).Resize(DerL), 2
Columns(1).NumberFormat = "0000"
End Sub

 

[Staple1600]

Re

Sans oublier

Sub Numeros_III()
Dim DerL&
DerL = InputBox("Combien de lignes?", "Test", 1600)
[A1] = 1:  Cells(1).Resize(DerL) = "=Row()-1"
Cells(1).Resize(DerL) = Cells(1).Resize(DerL).Value
Columns(1).NumberFormat = "0000"
End Sub

 

[LUYGYS]

Bonjour !
Merci pour le code rapidement.

Par contre ce 'est pas toute a fait ma question et la réponse non plus.....! ce que je voulais savoir c'est quelle est la formule a appliquer en collone A pour que dans la même ligne si rempli les cellules E ou F la cellule colonne A affiche 0001 et ensuite pareil la ligne suivant si E ou F est remplie la cellule suivant collone A affiche 0002 et jusqu a la fin des lignes possibles si une ligne n' est pas rempli E ou F l' 0003 saut une ligne ou le nombre de lignes vides a E ou F et ca continue.... c' est ça ! une formule ou du code VBA est bien venu.....
j 'ai essai cette formule mais c 'est pas parfait =IF(E2>0;(A2+1);(A2) je vous laisse devenir le probléme de la formuleCordialement
LUYGYS

 

[job75]

Bonjour LUYGYS, JM, le forum,

En A1 entrer la formule =SI(NB(E1:F1);1;"")

En A2, à tirer vers le bas =SI(NB(E2:F2);MAX(A$1:A1)+1;"")

NB compte les nombres, remplacer par NBVAL si on veut aussi compter les textes.

La colonne A doit être mise au format Nombre 0000

Bonne journée.

 

[LUYGYS]

Bonjour.
Merci pour la formule.... il y a un souci si on rempli la cellule F il ne ce passe rien ca fonctionne sur E uniquement.
Ou est le probleme ?

Cordialement
LUYGYS

 

[job75]

il y a un souci si on rempli la cellule F il ne ce passe rien ca fonctionne sur E uniquement.

Ce n'est pas le cas, vous avez dû mal tester. Comme je l'ai dit avec NB il faut entrer des nombres.

Vérifiez quand même que le cacul est bien en mode Automatique (menu Fichier => Options => Formules).

 

[LUYGYS]

Bonjour
J' ai verifie c est en automatique !
je vous joint fichier vous pouvez jeter un coup d oeil vous même.
Cordialement
LUYGYS

 

[job75]

Regardez vos formules, au lieu de NB vous avez écrit N !!!