Merci,
Peux tu m'expliquer comment fonctionne la macro sur la page ThisWorkbook ?
Car je vois pas de changement sur la page d'accueil il y a surement une subtilité qui m’échappe
re,
sur la macro CommandButton1_Click()
du UserForm
j'ai ajouté le code
With Sheets("Accueil")
rw = .Cells(Rows.Count, "E").End(xlUp).Row + 1
Debug.Print DEST.Value
.Range("E" & rw) = DEST. Value
End With
en premier lieu, ce code ajouté est pour inscrive le nom de la nouvelle feuille créée dans la colonne E de la feuille "Accueil"
est ce que ce code s'exécute bien ?
par la suite la macro sur la page ThisWorkbook
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
rw = Application.Match(Sh.Name, Sheets("Accueil").Range("e:e"), 0)
Select Case Target.Address(0, 0)
Case "A1": Sheets("Accueil").Cells(rw, "H") = Target.Value
' Case " ": autre adresse à transférer
End Select
End Sub
le nom de l'objet Sh As Object
est la feuille ou se produit un changement sur la cellule
A1, ce nom sera trouvé sur l'onglet Sheets("Accueil").Range("E:E")
la macro sur la page ThisWorkbook trouve le nom de la feuille sur Sheets("Accueil").Range("E:E")
par le code
rw = Application.Match(Sh.Name, Sheets("Accueil").Range("E:E"), 0)
l'objet Target As Range
est la cellule ou s'est effectué un changenent, dans ce cas, lorsque la cellule A1 de la nouvelle feuille est modifiée.
puis transfert la valeur sur la ligne rw
trouvée
Case "A1": Sheets("Accueil").Cells(rw, "H") = Target.Value