XL 2019 Passer à la ligne suivante

[opsys]

Bonjour,
je suis toujours débutant sur Excel et malgré mais nombreux essais je n'arrive pas à trouver comment passer (par exemple) de la cellule I2 Feuil2 à la cellule A3 de la même feuille. Et ainsi de suite ..
Sachant que j'ai fait un petit tableau en Feuil1 et un bouton pour me renvoyer les infos des cellules concernées dans la Feuil2. (Envoi fait avec une macro que j'ai créé avec l'enregistreur de Macro)
Tout ceci pour que par la suite je puisse compiler les éléments récupérés avec un tableau croisé dynamique.
Je met mon petit fichier à la suite pour permettre la compréhension.
En vous remerciant.

 

[Jacky67]

Bonjour,
je suis toujours débutant sur Excel et malgré mais nombreux essais je n'arrive pas à trouver comment passer (par exemple) de la cellule I2 Feuil2 à la cellule A3 de la même feuille. Et ainsi de suite ..
Sachant que j'ai fait un petit tableau en Feuil1 et un bouton pour me renvoyer les infos des cellules concernées dans la Feuil2. (Envoi fait avec une macro que j'ai créé avec l'enregistreur de Macro)
Tout ceci pour que par la suite je puisse compiler les éléments récupérés avec un tableau croisé dynamique.
Je met mon petit fichier à la suite pour permettre la compréhension.
En vous remerciant.

Bonjour,
Pour la partie enregistrement, cela pourrait ressembler à ceci

Sub enregistre()
    Dim Dest As Worksheet
    Set Dest = Sheets("Acceuil")
    With Feuil2
        derlg = .Cells.Find("*", , , , xlByRows, xlPrevious).Row + 1
        .Cells(derlg, 1) = Dest.[e6]
        .Cells(derlg, 2) = Dest.[e8]
       ' .Cells(derlg, 3) = Dest.[e11]' valider si permission
        .Cells(derlg, 4) = Dest.[e12]
       '.Cells(derlg, 5) = Dest.[e13] ' valider si permission
       ' .Cells(derlg, 6) = Dest.[e14] ' valider si permission
       ' .Cells(derlg, 7) = Dest.[e15] ' valider si permission
        .Cells(derlg, 8) = Dest.[e17]
        .Cells(derlg, 9) = Dest.[e19]
    End With
 End Sub

Attention toutefois
Pour pouvoir trouver ses petits la plage "Modèle" doit être du même orthographe que la plage nommée
Exemple en feuille "Modèle" cellule B2
Alfa Romeo doit être Alfa_Romeo

 

[Phil69970]

Bonjour à tous

Je te propose ce fichier

@Phil69970