Numérotation

[nrdz83]

Bonjour, j'utilise ces formules dans un tableau pour faire une numérotation automatique.

=SI($A3="";"";1)
puis =SI($A4="";"";$B3+1)

ça fonctionne bien mais si j'efface une ligne du coup ça m'efface également ma formule.

Est il possible de l'automatiser en vba et de l'intégrer à mon code éxistant?

Private Sub CommandButton2_Click()
 
 ' Mise en place des valeurs saisies
    DerLig = [A65000].End(xlUp).Row + 1
    Cells(DerLig, 1).Value = ComboBox5
    Cells(DerLig, 3).Value = TextBox1
    Cells(DerLig, 4).Value = TextBox2
    Cells(DerLig, 5).Value = TextBox3
    If OptionButton1.Value = True Then
    Cells(DerLig, 6).Value = TextBox4.Value & ""
    ElseIf OptionButton2.Value = True Then Cells(DerLig, 6).Value = TextBox4.Value & " ml"
    ElseIf OptionButton3.Value = True Then Cells(DerLig, 6).Value = TextBox4.Value & " m²"
End If
    Cells(DerLig, 7).Value = TextBox5
    Cells(DerLig, 8).Value = TextBox6
    Cells(DerLig, 9).Value = ComboBox6

Par avance merci à tous.

 

[Lii]

Re : Numérotation

Re,

Cest bien de l'enregistreur dont je voulais parler.
Excuse moi donc pour cette confusion.
N'ayant pas le contexte, il m'est difficile de répondre à ta dernière question de façon sûre. Une ligne masquée,une ligne dans la macro, une évènementielle ... pourraient résoudre le problème mais ...

 

[nrdz83]

Re : Numérotation

Bonsoir lii je met en piece jointe un extrait de ma feuille. J'ai essayé de mettre une ligne masquée mais ça bugg toujours certaiement que je m'y prend mal.
Par avance merci

 

[nrdz83]

Re : Numérotation

Bonjour à tous j'ai beau chercher une solution mais je ne trouve pas , si mon formulaire est vide à la saisie en B3 j'ai erreur #valeur#

parce que ma formule

[=SI($A3="";"";LIGNE()-2)/CODE]
est remplacer par cette formule [CODE]=SI($A3="";"";SI(B2="";B1+1;B2+1))

et le code vba qui est utilisé est celui-ci

 Cells(DerLig, 2).FormulaR1C1 = "=IF(RC1="""","""",IF(R[-1]C="""",R[-2]C+1,R[-1]C+1))"

Est il possible d'imposer la formule :=SI($A3="";"";LIGNE()-2) en B2 ?

Par avance merci à tous , amitiés

 

[gilbert_RGI]

Re : Numérotation

Est il possible d'imposer la formule :=SI($A3="";"";LIGNE()-2) en B2 ?

avec ceci

=IF(R[1]C1="""","""",ROW()-2) 🙄

pour l'erreur #valeur# voir la fonction esterreur

 

[nrdz83]

Re : Numérotation

Bonjour gilbert merci pour ton code il fonctionne plus d'erreur sauf qu'il numérote la ligne du dessus et la dernière ligne saisie reste vide.
Merci et je te souhaite un bon week end amités

 

[gilbert_RGI]

Re : Numérotation

Bonjour gilbert merci pour ton code il fonctionne plus d'erreur sauf qu'il numérote la ligne du dessus et la dernière ligne saisie reste vide.
Merci et je te souhaite un bon week end amités

c'est la demande non ????😱

 

[nrdz83]

Re : Numérotation

re gilbert, en fait je cherche a ce que en b3 et ainsi de suite ça numérote lorsque qu'un valeur est rentré en A.
en fait c'est si ma première ligne est vide (la ligne3) j'ai erreur , car ma formule

=SI($A3="";"";LIGNE()-2)

et elle est remplacée par

=SI($A3="";"";SI(B2="";B1+1;B2+1))

grace au code

Cells(DerLig, 2).FormulaR1C1 = "=IF(RC1="""","""",IF(R[-1]C="""",R[-2]C+1,R[-1]C+1))"

en fait c'est la mon problème.
merci encore pour ton aide ainsi qu'aux autres

 

[Lii]

Re : Numérotation

Bon soir,

Bonsoir lii je met en piece jointe un extrait de ma feuille. ...

Où est-il ?
Il doit être assez renseigné pour éviter de répondre à côté (voir mon dernier message)!

 

[nrdz83]

Re : Numérotation

bonsoir lii j'ai essayé avec une ligne masquée, mais dés quelle est masquée a la saisie de mon tableau , il remplie en premier la ligne masquée du coup ça ne fonctionne pas. De plus en evénementielle je cherche déja a comprendre à quoi ça consiste.
Merci pour ton aide amitiés et bon week end🙂