Incrémentation automatique pour macro

Bonjour,

J'ai un tableau Excel, avec une ligne = un courrier.
J'ai en colonne B, un numéro d'ordre (1,2,3,4....) avec un numéro par courrier.
En colonne C j'ai un numéro d'indice (1_1, 1_2, 1_3...).
Lorsque qu'un courrier reçu ne nécéssite pas de réponse, la colonne C reste vide et seul le numéro d'ordre est rempli.
Lorsque le courrier nécéssite une réponse, c'est la qu'intervient le numéro d'indice. En effet un courrier reçu portera le numéro 1 par exemple. Donc en colonne B je tape 1 et en colonne C je tape 1_1. La réponse à ce courrier aura en colonne B toujours 1, et en colonne C 1_2.

Mon problème est le suivant. Je dois mettre au point une macro pour que l'incrémentation soit automatique.
Donc si je ne rempli pas le numéro d'indice (le courrier ne nécéssite pas de réponse) et que je passe a la ligne suivante il faudra que le numéro d'ordre augmente de 1, sinon si le numéro d'indice est rempli (le courrier nécéssite une réponse) et que je passe a la ligne suivante le numéro d'ordre restera le même.

A noter que les numéro d'indice seront à saisir manuellement.

Merci d'avance pour vos idées concernant cette macro.

Voici mon code pour l'instant :

Code:

---

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

Sub IncrementationNumOrdre()   Dim i As Integer Dim j As Integer Dim wsSource As Worksheet   Set wsSource = Worksheets("Données")   i = 1   If wsSource.Cells(i, "C").Value = "" Then j = j + 1 Else j=j and i= j_&i+1 End If   End Sub

---

Et hop voici la réponse :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

Sub IncrementationNumOrdre()   Dim i As Integer Dim j As Integer Dim wsSource As Worksheet Dim derniereLigne As Integer     Set wsSource = Worksheets("Données") j = 1 derniereLigne = Range("A" & Rows.Count).End(xlUp).Row     For i = 6 To derniereLigne If wsSource.Cells(i, "C").Value <> "" Then wsSource.Cells(i, "B") = j Else wsSource.Cells(i, "B") = j j = j + 1 End If   Next i     End Sub

---

Je me remercie !