Discussion :

[nrdz83]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ESVBA]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[nrdz83]

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

[nrdz83]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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