insertion ligne et formule dans cellule

Salut,
=CONCATENER(MAJUSCULE(C12)&(MAJUSCULE(D12)))
identique à =MAJUSCULE(C12 & D12)
si c'est une base de données (lignes de structure identique) utilise
Données/Grille et la formule sera dupliquée.

sinon voici une procédure à utiliser avec un bouton ou une touche de
raccourci (insertion à la place de la ligne courante...
Sub ins()
Dim nl As Long
nl = ActiveCell.Row
ActiveCell.EntireRow.Insert
Range("W" & nl).FormulaLocal = "=MAJUSCULE(C" & nl & " & D" & nl & ")"
End Sub

--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
http://www.ilyapa.net/baseExcel

--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
http://www.ilyapa.net/baseExcel
"Phil" <phililippe.geai@laposte.net> a écrit dans le message de news:
eullw5wVEHA.1764@TK2MSFTNGP10.phx.gbl...

Bonjour,

je voudrais que chaque fois je lance la commande "insérer une ligne",
que soit automatiquement copié une formule dans la cellule w
correspondante

exemple : insertion d'une ligne 12: la formule
=CONCATENER(MAJUSCULE(C12)&(MAJUSCULE(D12))) apparaît en w12


exemple: insertion d'une ligne 23: la formule
=CONCATENER(MAJUSCULE(C23)&(MAJUSCULE(d23))) apparaît en w23

etc...

Merci de votre aide,

Phil