Discussion :

[chouki60]

Bonjour à tous,

J'aimerai inserer une ligne dans un tableau excel et que sur cette ligne il y ai un "1" dans la colonne A.
Toutes les lignes que je souhaite insérer doivent posséder le 1.
J'arrive à inserer une ligne mais pas à affiché le 1...
Voici ce que j'ai codé :

Code :

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

1
2
3
4
ActiveCell.Select
    Selection.EntireRow.Insert
    'Rows(1).Insert
    Cells(1, 1).FormulaR1C1 = Cells(1, 1).FormulaR1C1

Merci d'avance pour votre aide!

[tedo01]

Bonjour,
La ligne

Code :

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

Cells(1, 1).FormulaR1C1 = Cells(1, 1).FormulaR1C1

ne sert pas à grand chose . A la place, j'écrirais

Code :

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

Selection.Cells(1, 1).Value = 1

[chris09300]

bonjour
est ce que cela te va

Code :

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

1
2
3
4
5
6
7
Sub test()
 
ActiveCell.Select
Selection.EntireRow.Insert
Range("A1") = 1
Rows(1).Insert
End Sub

[chouki60]

Merci Tedo, ça fonctionne !
Comme je vais surement avoir encore besoin de votre aide je vous dit à bientôt