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

[chaelie2015]

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

 

[Jacky67]

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

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

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

 

[chaelie2015]

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

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

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

 

[Jacky67]

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

Re...
Ceci alors

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

 

[job75]

Bonjour chaelie2015, Jacky67,

Ou aussi avec cette macro dans le code de la feuille ACCUEIL :

Sub Valider()
Dim nf$
nf = Trim([H4] & " " & [H5])
If nf = "" Then MsgBox "Renseignez au moins H4 !", 48: [H4].Select: Exit Sub
On Error Resume Next
With Sheets(nf)
    If Err Then MsgBox "La feuille '" & nf & "' n'existe pas !", 48
    With .[B:B].Find("", .[B8], xlValues) '1ère cellule vide
        .Value = [Y5]
        .Offset(, 1) = [Y6]
        .Offset(, 3) = [Y4]
    End With
    .Activate
End With
End Sub

A+

 

[chaelie2015]

Bonjour JACKY, JOB
Désolé pour ce retard.
Merci pour les réponses , c'est parfait.
Souci RESOLU.
BON WEEK-END