Autres (RESOLU)chercher l'onglet et compléter le tableau

chaelie2015 à dit:

Bonsoir FORUM
Je souhaite faire un code qui fait :
1.Chercher l'onglet nommée selon les valeurs de deux cellules H4 et H5 de la feuille "ACCUEIL"
2. une fois trouvé l'onglet cherché alors on copie les valeurs de Y5, Y6 et Y4 de la feuille "ACCUEIL" dans le tableau de l'onglet cherché via le bouton"Valider"..
Salutation

Cliquez pour agrandir...

Sub MAJ()
    Dim Derlg&
    With Feuil1
        Sheets(.[h4] & " " & .[h5]).Activate
        Derlg = Cells(Rows.Count, "B").End(xlUp).Row + 1
        Cells(Derlg, 2) = .[y5]
        Cells(Derlg, 3) = .[y6]
        Cells(Derlg, 5) = .[y4]
    End With
End Sub

Jacky67 à dit:

Bonjour,
Ceci dans un module standard, attribué au bouton valider

VB:

Sub MAJ()
    Dim Derlg&
    With Feuil1
        Sheets(.[h4] & " " & .[h5]).Activate
        Derlg = Cells(Rows.Count, "B").End(xlUp).Row + 1
        Cells(Derlg, 2) = .[y5]
        Cells(Derlg, 3) = .[y6]
        Cells(Derlg, 5) = .[y4]
    End With
End Sub

Cliquez pour agrandir...

chaelie2015 à dit:

Bonsoir jacky
super,merci pour la réponse; mais je souhaite ajouter un message dans le cas ou l'onglet n'existe pas .
merci

Cliquez pour agrandir...

Sub MAJ()
    Dim Derlg&
    With Feuil1
        If IsError(Evaluate("='" & .[h4] & " " & .[h5] & "'!A1")) Then MsgBox "Feuille inexistante", , "Information": Exit Sub
        Sheets(.[h4] & " " & .[h5]).Activate
        Derlg = Cells(Rows.Count, "B").End(xlUp).Row + 1
        Cells(Derlg, 2) = .[y5]
        Cells(Derlg, 3) = .[y6]
        Cells(Derlg, 5) = .[y4]
    End With
End Sub