Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2010 Copier une plage d’une feuille, coller à une autre feuille en utilisant la 1re colonne non vide

C

christina99

XLDnaute Nouveau
Bonjour,

Merci d’avance pour votre aide.

J’aimerais pouvoir compléter de façon automatique mon tableau synthèse (Feuil2) :

À chaque fois que j’ai remplie dans la feuil1 ; les cellules E4:G12, j’aimerais pouvoir transférer les données sans formules (si possibles en gardant la mise en forme) dans la feuille 2, mais en utilisant la 1re colonne non vide. Est-il possible ?

Merci
 

Pièces jointes

  • Paie.xlsm
    16.1 KB · Affichages: 5
Solution
Bonjour @christina99

christina99 à dit:
Un seul petit problème c’est que je n’arrive pas changer le nom de feuilles. Il garde en mémoire quelle feuille avais initialement le nom Feuil2 et il va aller coller l'info sur cette feuille.
Cliquez pour agrandir...

D’où l’intérêt de mettre un fichier représentatif
Un fichier représentatif de 10 à 20 lignes avec tes attendus (avant/après) ET respectant le RGPD permettrait de comprendre le problème et de t'apporter une ou des réponses.

C'est quoi représentatif ?
- représentatif, même organisation des lignes et des colonnes, mêmes libellés, mêmes noms de feuilles...
- anonymisé, pas de données personnelles réelles tels nom, n° sécu, adresse ...
- simplifié, une quinzaine...
Trier par date Trier par votes
C

christina99

XLDnaute Nouveau
Bonjour Phil,

Génial ! Je l’ai testé, et ce exactement ce que j’ai cherché.

Un seul petit problème c’est que je n’arrive pas changer le nom de feuilles. Il garde en mémoire quelle feuille avais initialement le nom Feuil2 et il va aller coller l'info sur cette feuille.

Merci infiniment pour votre aide !

Bonne soirée
 
Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc
Bonjour @christina99

christina99 à dit:
Un seul petit problème c’est que je n’arrive pas changer le nom de feuilles. Il garde en mémoire quelle feuille avais initialement le nom Feuil2 et il va aller coller l'info sur cette feuille.
Cliquez pour agrandir...

D’où l’intérêt de mettre un fichier représentatif
Un fichier représentatif de 10 à 20 lignes avec tes attendus (avant/après) ET respectant le RGPD permettrait de comprendre le problème et de t'apporter une ou des réponses.

C'est quoi représentatif ?
- représentatif, même organisation des lignes et des colonnes, mêmes libellés, mêmes noms de feuilles...
- anonymisé, pas de données personnelles réelles tels nom, n° sécu, adresse ...
- simplifié, une quinzaine de lignes reproduisant l'ensemble des différents cas envisageables

*Éventuellement préciser l'ordre de grandeur des lignes à traiter, exemple mon fichier comporte 1 000 lignes ou bien 20 000 lignes ==> la méthodologie peut être différents.

Une demande claire donne très souvent une réponse rapide et qui correspond au mieux à la demande.

Et pour répondre à ta question 2 solutions :

1)Tu mets les mains dans le code pour changer le/les noms de la feuille pour que cela fonctionne

2)Tu me donnes le/les noms de ta/tes feuilles et je le fais mais tu ne serais toujours pas faire

Dans cette version il suffira de changer le/les noms 1 seul fois pour que tout fonctionne

Tu changes le Name (le nom de la feuille)



ou le CodeName



L'apostrophe au début sert à commenter et/ou désactiver la ligne donc quand excel la voit il saute la ligne de code SANS l’exécuter

Pour que tu comprennes bien



Le Name de la feuille c'est le nom que tu donnes à ta feuille ET que tu peux changer facilement dans l'exemple que j'ai fait c'est :
"Name Feuille source" et "Name feuille destination"

Le CodeName de la feuille c'est le nom interne qu'excel donne et qui n'est pas modifiable facilement sans mettre les mains "dans le cambouis" dans l'exemple que j'ai fait c'est :
"CodeNameFeuil1" et "CodeNameFeuil2" (la partie en jaune)

Ne pas confondre les 2

A toi de choisir ce que tu veux faire entre les 2 solutions que je te propose

*Merci de ton retour

@Phil69970
 

Pièces jointes

  • Transfert Paie V2.xlsm
    24.6 KB · Affichages: 0
Vote positif 0 Vote négatif
Solution

patricktoulon

XLDnaute Barbatruc
bonjour
solution il y a à foison
mais avant tout !!
A° sert toi des codenames des feuilles(c'est plus simple et plus sur)
B° utilise copy destination
C° utilise le usedrange pour chopper la première cellule ou va etre copié le tableau


1° Méthode1 (la moins sur ne pas l'utiliser ) : copy destination avec le start calculé par la ligne 5 qui est sensée etre toujours remplie

2° Méthode 2 (la plus sur !!) : copy destination avec le start déterminé par le usedrange

3° Méthode 3 (un peu plus compliqué) : value=value avec le start déterminé par le usedrange

VB: 
'Méthode 1
Sub Invoice_C1()    'moins sur dans le sens ou on est pas sur que les cellules soit pleines
    Dim plage As Range
    Set plage = Feuil1.[E4:G12]
    plage.Copy Feuil2.Cells(5, Columns.Count).End(xlToLeft).Offset(-4, 1)
End Sub

'Méthode 2
Sub Invoice_C2()    'la plus sur 1 !!! car on utilise le userange pour dimentionner le start
    Dim plage As Range
    Set plage = Feuil1.[E4:G12]
    plage.Copy Feuil2.Cells(1).Offset(, Feuil2.UsedRange.Columns.Count)
End Sub

'solution sans copy
'Méthode 3
Sub Invoice_C3()    'la plus sur 2 !!! sans copy (value=value + format bold  des deux  first cellules)
    Dim plage As Range
    Set plage = Feuil1.[E4:G12]
    With Feuil2.Cells(1).Offset(, Feuil2.UsedRange.Columns.Count)
        With .Resize(plage.Rows.Count, plage.Columns.Count)
            .Value = plage.Value
            .BorderAround (1)
            .Borders(xlInsideVertical).LineStyle = xlContinuous
            .Borders(xlInsideHorizontal).LineStyle = xlContinuous
        End With
        .Resize(2, 1).Font.Bold = True
    End With
End Sub
 
Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc
Re

Bonjour Patrick

Certes tes solutions fonctionnent mais si j'ai compris les names et codenames de sa feuille ne correspondent pas à son fichier test et donc tes solutions et ma solution ne fonctionnent pas car il faut remettre le bon nom de feuilles et c'est pour lui expliquer cela que j'ai fait le post #4 soit elle arrive à le faire ele même soit elle nous donne le bon name et/ou codename.

@Phil69970
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

  • Question
Microsoft 365 Variable tableau : coller uniquement une partie des colonnes
2 3
Réponses
31
Affichages
961
BenHarber
F
  • Résolu(e)
Microsoft 365 copier coller des colonnes en fonction de la valeur d'une cellule
Réponses
8
Affichages
586
loloboc
L
M
  • Question
XL 2021 Copier une cellule sur deux et coller dans une autre colonne
Réponses
5
Affichages
406
DJunqueira
D
C
  • Résolu(e)
XL 2013 Copier une plage d’une feuille, coller sur une autre feuille en utilisant la 1re cellule non vide
Réponses
5
Affichages
816
Hasco
A
  • Résolu(e)
XL 2016 Transfert de formule d'une feuille à une autre.
Réponses
2
Affichages
381
Al1_44
A
S
  • Résolu(e)
XL 2016 copier des données d'une feuille à une autre selon critères et protection de la feuille 1
Réponses
6
Affichages
361
steph_29120
S
N
  • Question
Microsoft 365 afficher/masquer des lignes en fonction de la valeur d'une cellule qui aura été renseignée par une autre feuille (via un copier/collé automatique)
Réponses
5
Affichages
375
Nel'
N
M
  • Question
XL 2019 Copier des lignes les unes a la suite des autres dans une autre feuille sous conditions et seulement certaines colonnes
Réponses
7
Affichages
606
MGH
M
W
  • Question
XL 2021 Boucle copier-coller par nom d'en-tête de colonnes
Réponses
10
Affichages
552
whiteshark
W
D
  • Question
XL 2021 Copier coller des colonnes suivant le nom de la colonne et non pas le N° de colonne idem ligne
Réponses
8
Affichages
700
desmonts
D
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…