XL 2019 Passer à la ligne suivante

  • Initiateur de la discussion Initiateur de la discussion opsys
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

opsys

XLDnaute Nouveau
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.
 

Pièces jointes

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
VB:
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
 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
3
Affichages
469
Retour