Discussion :

[Bou31]

Bonjour,

J'aimerai savoir s'il est possible d'appliquer une formule sur une colonne entière (sauf cellule A1). jusqu'ici rien de difficile lol.
Mais j'aimerai que lorsqu'un utilisateur insert une nouvelle ligne (ligne n°7 par exemple), que la formule définissant toutes les celulle de la colonne A se rajoute la la nouvelle cellule créé en A7.

Une idée ?

Merci

[Invité]

Salut,

Il n'existe pas d'évènements permettant de savoir si une ligne a été insérée ou supprimée.

Tu peux utiliser le 'workaround' suivant:

* Dans un module standard:

Code :

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

1
2
3
Option Explicit
 
Public lngRows As Long

* Dans le module du classeur:

Code :

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

1
2
3
4
5
6
7
Option Explicit
 
Private Sub Workbook_Open()
  With ThisWorkbook.Worksheets("Feuil1")
    lngRows = .Cells(.Rows.Count, "A").End(xlUp).Row
  End With
End Sub

* Dans le module de la feuille considérée:

Code :

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

1
2
3
4
5
6
7
Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
  If lngRows <> Cells(Rows.Count, "A").End(xlUp).Row Then
    Range([A2], Cells(Rows.Count, "A").End(xlUp)).Formula = "=10"
  End If
End Sub

Sinon il faut ajouter un contrôle pour permettre l'insertion ou la suppression de lignes.

[Bou31]

Merci pour ton aide .

J'ai eu un soucis sur mon fichier qui n'étais plus disponible, du coup je répond tardivement.
Alors il faut savoir que je n'ai aucune notion de VBA du coup ton code ne me parle pas trop. A quoi sert-il ?
Je ne sais même pas où le mettre...
Désolé de paraitre stupide.