XL 2013 Ajout par VBA de données dans une colonne d'un tableau avec un nombre de lignes qui peut augmenter

job75 à dit:

Bonjour Onyirimba,

Voyez le fichier joint et cette macro dans le code de la feuille :

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
If TypeName([Projet1,Projet2,Provisions1,Provisions2]) <> "Range" Then _
    MsgBox "Nommez les 4 cellules Projet1, Projet2, Provisions1, Provisions2 !", 48: Exit Sub
Application.EnableEvents = False 'désactive les évènements
Intersect(Range([Projet1].Cells(2, 1), [Provisions1].Cells(-1, 1)).EntireRow, [CA:CA]) = "RAF"
Intersect([Provisions1].Cells(2, 1).Resize(2).EntireRow, [CA:CA]) = "RAF PROV"
Intersect(Range([Projet2].Cells(2, 1), [Provisions2].Cells(-1, 1)).EntireRow, [CA:CA]) = "BRS"
Intersect([Provisions2].Cells(2, 1).Resize(2).EntireRow, [CA:CA]) = "BSR PROV"
Application.EnableEvents = True 'réactive les évènements
End Sub

Elle se déclenche automatiquement quand on modifie ou valide une cellule quelconque.

Elle utilise les 4 cellules nommées Projet1, Projet2, Provisions1, Provisions2.

A+

Cliquez pour agrandir...