Discussion :

[fyazkrop]

Bonjour bonjour,

Je ne suis pas encore très rodé à VBA du coup j'ai besoin d'un peu d'aide svp

Situation: j'ai deux feuilles Excel,la première:
la deuxième:
mon code:


L'objectif: On arrive sur la première feuille, on clique sur les boutons des lignes voulues tout à gauche, celles ci sont directement copiées collées dans la deuxième feuille, puis on clique sur le bouton Valider toujours dans la première feuille, bouton qui va permettre de supprimer toutes les lignes vides dans la deuxième feuille.
En gros il faut que la deuxième feuille soit propre et présentable...

Avec mon code vous pouvez voir que j'ai réussi à copier coller les lignes dont on a cliqué sur le bouton, sauf que je ne sais pas comment coder mon bouton Valider :p

A l'heure actuelle, les lignes qui ne sont pas sélectionnées sur la première feuille apparaissent vides sur la deuxième, du coup ce n'est pas clean ^^

J'espère que j'ai été plutôt clair

Merci d'avance !


ps: ce ne sont pas les bonnes données mais ça on s'en fout !

[don_pets]

Hidihon,

question : Tu mets un bouton sur chaque ligne car tu ne veux que quels lignes ou bien veux tu copier toutes les lignes et les coller à la dernière vide de ton deuxième fichier ?

En tout état de cause pour que tu colles une ligne à la dernière non remplie du deuxième fichier voici la démarchre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
 
sheets(2).select
'remplace le 2 par le nom de ta feuille
sheets(2).Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteAll, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False

À ta dispo si besoin est

[MarcelG]

Bonjour,

Problématique bien exposée.
Je pense que tu te compliques la tache.
Et ton code est lourd.
Un seul bouton suffirait selon moi.
Pour ce faire:
Selectionner sur Excel a ligne que tu veux copier.
L'activation du bouton effectuerait la copie de la ligne entière de ta sélection.

[fyazkrop]

Merci pour vos réponses rapides,

Dans le contexte, il s'agira d'un fichier pour d'autres amis qui n'y connaissent rien à Excel, qui m'ont demandé à ce qu'ils puissent sélectionner les lignes qu'ils veulent sur la première feuille et les copier (avec un nouveau numéro de tâche du coup) dans la deuxième.

Exemple:
Je sélectionne les lignes 15 18 19 (1ere feuille) qui apparaissent avec les numéros 1 2 et 3 dans la deuxième feuille.

Du coup c'est vraiment mes amis qui m'ont demandé de faire ça exactement comme ça donc j'aimerais bien faire moins compliqué mais il s'agit ici de leurs consignes :/

Ils veulent sélectionner les bonnes lignes du premier fichier pour qu'elles apparaissent (dans le même ordre) dans le deuxième après avoir appuyé sur le bouton Valider :3

[MarcelG]

Salut,

Cela ne change rien.
Tes amis sélectionnent la 1ère cellule des lignes qu'ils souhaitent voir recopiées (contigües ou non).
La copie s'effectuera sur la ligne correspondant à chaque cellule de ta sélection..

Cette dernière indication devrait définir ton code.

Tu reviens si nécessaire.

[MarcelG]

D'accord.

Tu regardes ce code
Tu l'adaptes
Et tu reviens pour toute question.

Attention : à adapter

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Option Explicit
 
Private Sub Btn_lacopie_Click()
 
Dim dest As Range
 
With Workbooks("mercatog.xlsm").Worksheets("Toto")
    Set dest = .Cells(.Rows.Count, 1).End(xlUp).Offset(1, 0)
End With
 
Dim c As Range
 
For Each c In Selection
        With c
                Range(.Offset(0, 0), .Offset(0, 10)).Copy Destination:=dest
                Application.CutCopyMode = False
                Set dest = dest.Offset(1, 0)
        End With
Next c
 
Set dest = Nothing
 
End Sub

[fyazkrop]

Bonjour,

Je viens de me replonger dans le projet et je suis en train de regarder ton code Marcel.

J'ai bien compris qu'il fallait que je change le nom du bouton de commande mais malheureusement je ne comprends pas à partir de la ligne With Workbooks...etc

Est ce que tu peux me décrire ce que fais ce code ligne par ligne stp de sorte à ce que je puisse l'adapter à ma situation ?

Bien à toi (et aux autres par la même occasion !)