Discussion :

[Walt51]

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

[Invité]

Bonsoir

Code :

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

1
2
3
4
5
6
dim i as integer
For i=0 to 2
If Range("B20").offset(i).Value <> "" Then
    Range("A20").offset(i).Value = 1
    End If
Next

[Walt51]

Bonsoir et merci,
Ton code est bien, mais je me rend compte que dans le cas où on saute une ligne ça ne marche plus.
Idéalement j'aimerai que si sur une ligne "x" si les cellules Bx ou Cx <>"" alors on rempli la cellule Ax=1

Pour la ligne suivant "y" (la ligne suivant n'étant pas forcément celle juste en dessous, il peut y avoir une ligne non remplie entre les deux)
si les cellules By ou Cy <>"" alors on rempli la cellule Ay=1+ "nombre de ligne déjà entrée" (écrire 2 si c'est la deuxième, 3 si c'est la troisième...)

Peux tu s'il te plait commenter ton code afin que je le comprenne et ainsi peux être trouver la solution par moi même?

Merci

[Walt51]

Bonsoir

Code :

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

1
2
3
4
5
6
dim i as integer
For i=0 to 2
If Range("B20").offset(i).Value <> "" Then
    Range("A20").offset(i).Value = 1
    End If
Next

Merci,

Ca marche très bien
Voici mon code final

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
Dim i As Integer
For i = 0 To 50 'compteur de 0 à 50
If Range("C20").Offset(i).Value <> "" Then 'si C20 x compteur valeur vide alors
    Range("A20").Offset(i).Value = 1 + (i)
    Range("A20:I20").Offset(i).Borders.Value = 1
    End If
 
    'Next
    'For i = 0 To 2
If Range("C20").Offset(i).Value = "" Then
    Range("A20").Offset(i).Value = ""
    Range("A20:I20").Offset(i).Borders.Value = 0
    End If
 
Next