Bonjour,

Ci dessous mon code pour remplir automatiquement le n° de la ligne quand celle-ci n'est pas vide.
Mon code fonctionne bien, mais a mon avis on peut faire mieux car là ça ne concerne que les 3 premières lignes de ma feuille qui en contient 50.

Quelle solution pour simplifier l'écriture pour les 50 lignes?

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
18
19
20
21
22
23
If Range("B20").Value <> "" Then
    Range("A20").Value = 1
    End If
 
    If Range("B20").Value = "" Then
    Range("A20").Value = ""
    End If
 
    If Range("B21").Value <> "" Then
    Range("A21").Value = 2
    End If
 
    If Range("B21").Value = "" Then
    Range("A21").Value = ""
    End If
 
    If Range("B22").Value <> "" Then
    Range("A22").Value = 3
    End If
 
    If Range("B22").Value = "" Then
    Range("A22").Value = ""
    End If