Relever une valeur sur une cellule de la ligne courante

[jeanlouispaf]

Bonjour,

Dans le fichier joint, j'inscris les noms et prénoms de candidats dans les cellules des colonnes B et C. Dans les cellules de la colonne D, une formule concatène les cellules B et C pour obtenir l'identité de chaque candidat (nom et prénom).
La macro copie la ligne 2 en tant que modèle après la cellule courante.
J'ai deux problèmes :
- la formule "=concatener(B2;" ";C2)" située en cellule C2 se recopie comme telle et ne prend donc pas en compte les valeurs souhaitées de la nouvelle ligne créée (par ex. si la cellule courante est B5, la nouvelle ligne se place en B5 mais la nouvelle cellule D5 reste "=concatener(B2;" ";C2)" alors que je souhaiterai obtenir "=concatener(B5;" ";C5)"
- je souhaiterai que la macro crée la nouvelle ligne après la dernière ligne remplie
Merci d'avance pour l'aide que vous m'apporterez.

 

[Compte Supprimé 979]

Re : Relever une valeur sur une cellule de la ligne courante

Bonsoir Jeanlouispaf

Essaye avec ce code

Sub nouvelleligne2()  Dim DLig As Long  ' Dernière ligne
  ' Avec la feuille stagiaire
  With Sheets("Stagiaires")
  ' Trouver la dernière ligne remplie en utilisant la même chose
  ' que CTRL+Flèche vers le haut
    DLig = .Range("B" & Rows.Count).End(xlUp).Row
    ' Inscrire les formule sur la nouvelle ligne
    .Range("A" & DLig + 1).FormulaLocal = "=LIGNE()-2"
    .Range("D" & DLig + 1).FormulaLocal = "=B" & DLig + 1 & "&"" ""&C" & DLig + 1
  End With
End Sub

A+

 

[jeanlouispaf]

Re : Relever une valeur sur une cellule de la ligne courante

Merci beaucoup BrunoM45 pour cette excellente solution ultra-rapide. Cela convient parfaitement à mon problème.
A +