Discussion :

[GELOT33]

Bonsoir,
je voulais inserer, avec un bouton, une nouvelle ligne constituée dans la colonne B d'un N et dans la colonne C d'un chiffre égal au précedant +10.
j'ai donc créer ce code:

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
Sub Essai_comptage()
'Déclaration des variables -------------------
Dim X As Long
Dim V As Long
Dim E As Long
Dim Nb_Cel As Integer
Dim Cel As Range
' -------------------------------------------------
Range("C65536").End(xlUp).Offset(0, 0).Select
For Each Cel In Range("B:B")
If Cel.Value = "N" Then Nb_Cel = Nb_Cel + 1
Next Cel
' --------------------------------------------------
X = Nb_Cel + 4
Range("G5").Select
ActiveCell.FormulaR1C1 = X & " lignes dans le programme"
' --------------------------------------------------
Range("b3").End(xlDown).Offset(1, 1).Select
E = (X - 1) * 10
ActiveCell.FormulaR1C1 = "=R[-1]C+10"
Range("B3").End(xlDown).Offset(1, 0).Select
ActiveCell = "N"
End Sub

Mon souci c'est que si je n'ai aucune ligne cela ne fonctionne pas;
Le seul cas où cela fonctionne est: la premiére ligne est vide et les trois autres sont: N10;N20;N30.

Pouvez vous m'indiquer comment je peux faire que cela fonctionne en partant d'une feuille vide?

D'avance merci

[jfontaine]

Que c'est compliqué comme code.

Ma proposition de ton précédent post est beaucoup lus simple et fonctionne sans problème

http://www.developpez.net/forums/sho...d.php?t=461327

Pour descendre jusqu'en bas de la feuille il te suffit de remplacer le 50 par 65536

[jfontaine]

Pour ajouter une ligne a chaque Clic

Code :

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

1
2
3
4
5
6
Dim i As Long
 
i = Range("B65536").End(xlUp).Row + 1
 
Range("B" & i).Value = "N"
Range("C" & i).Value = i * 10