Lier de façon dynamique deux nouvelles cellules

Bonjour,

J’ai un code VBA qui crée deux lignes dans deux classeurs différentes suite au click d’un bouton.

Je voudrais que certaines cellules de ces deux lignes soient lier dynamiquement.

par exemple la premier colonne de ces lignes est le nom du projet, troisième colonnes la date du projet.
Ces infos peuvent ne pas etre sur la même colonne.

La difficulté c’est que le numéro de ligne évolue.
Voici le code qui crée les deux lignes dans les deux classeurs :

Sub newligne0_Click()

Application.ScreenUpdating = False

On Error Resume Next

With Sheets(“Plan de charge”)

.Range(“10:10”).EntireRow.Select

  • With Selection*
    .EntireRow.Copy
    .EntireRow.Insert
    .activerow.Offset(0, 1).Select
    .EntireRow.SpecialCells(xlConstants).ClearContents

End With
End With

'Nouvelle ligne dans la feuille “T”

With Sheets(“TODO - BE”)

.Range(“3:3”).Insert CopyOrigin:=(xlFormatFromLeftOrAbove)

.Range(“3:3”).Interior.ColorIndex = xlNone

End With

Application.CutCopyMode = False

On Error GoTo 0

Application.ScreenUpdating = True

End Sub

Merci d’avance!

Ce sujet a été automatiquement fermé après 30 jours. Aucune réponse n’est permise dorénavant.