numérotation en vba avec condition

Bonjour à tous j'utilise ce code qui fonctionne trés bien, pour une numérotation automatique en colonne B.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Private Sub CommandButton2_Click()   ' Mise en place des valeurs saisies DerLig = [A65000].End(xlUp).Row + 1 Cells(DerLig, 1).Value = ComboBox5 cells(derlig,2).FormulaR1C1 = "=IF(RC1="""","""",ROW()-2)" 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

---

Je suis appelé à y integréer une ligne en couleur fusionnée de A à J avec du texte dans cette ligne.
Et je ne voudrais pas comptabiliser cette ligen dans ma numérotation automatique.

Est ce réalisable?
si oui y a t'il la possibilité de m'aider, par avance merci, amitiés

De ce fait je voudrais que si

bonsoir nrdz83,

je m'avance peut-être mais la réponse est "OUI".


Si tu veux plus d'aide, précise :

• la position de la ligne
• Dans quelle colonne (la "B")

Pourquoi ne pas tester immédiatement en VBA la valeur à mettre puisque l'on a un accès à la valeur de la "ComboBox5" pour y mettre la bonne valeur ?

Code:

---

1 2	Cells(DerLig, 1).Value = ComboBox5 cells(derlig,2).FormulaR1C1 = "=IF(RC1="""","""",ROW()-2)"

---

Pourquoi mettre une fonction Excel avec "FormulaR1C1" pour ne rien afficher ou afficher un numéro qui sera obligatoirement fixe sauf ajout de ligne. De plus, les numéros ne seront pas consécutifs puisqu'ils suivent les numéros des lignes et non le nombre d'enregistrement !

Le code efface la dernière ligne s'il n'y a rien dans la colonne "A" !!! (puisque la dernière ligne est trouvée en testant sur la colonne "A")

Est-ce bien cela qui est voulu ?

ESVBA

bonsoir et merci pour tes lumières mais je patoge depuis hier et n'avance pas .pour etre plus precis voici un extrait de mon tableau.

Par avance merci:(

bonsoir juste pour vous dire que la solution à été trouvée grave à lii sur un autre forum, au cas ou je laisse le code, mes amitiés

Code:

---

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

---