VBA sur deux feuilles différentes

Version imprimable

16/11/2018, 10h17
fyazkrop

3 pièce(s) jointe(s)

VBA sur deux feuilles différentes

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: Pièce jointe 427412
la deuxième: Pièce jointe 427415
mon code: Pièce jointe 427417

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 !

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:

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

16/11/2018, 10h31
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.
16/11/2018, 11h02
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
16/11/2018, 11h08
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.

D'accord.

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

Attention : à adapter

Code:

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

26/11/2018, 09h12
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 !) :)
26/11/2018, 10h41
MarcelG

Bonjour à toi, Bonjour au Forum,

Recherche de la 1ère cellule vide à informer

Boucle sur chaque cellule de ta sélection
Copie vers la cellule libre
Redéfinition de la cellule libre à informer.
Cellule suivante.

Libération de variable

Ces indications, et ce lien pour toutes les méthodes employées, devraient suffire.

Hello,

Je vais encore vous embêter mais je galère encore...

J'arrive avec ce code, je fais le test pour le bouton 9...

Code:

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 CommandButton9_Click()
 
Dim dest As Range
 
With Workbooks("Analyse de risques.xlsm").Worksheets("Feuil2")
 
    Set dest = .Cells(.Rows.Count, 2).End(xlUp).Offset(15, 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

Je n'arrive pas à comprendre ce qu'il faut modifier pour que ça fonctionne !

Merci d'avance si vous voulez bien m'aider ^^

Bonne journée :)

29/11/2018, 16h28
MarcelG

Bonjour.

Mes excuses pour ce retard.

1 remarque : balise ton code avec les bornes #. Il sera plus lisible.

Citation:

Je n'arrive pas à comprendre ce qu'il faut modifier pour que ça fonctionne !

Tout d'abord, il te faut comprendre le code (Objets utilisés, Méthodes et Propriétés)
Pour ce faire, tu le consultes mot par mot.
Ensuite, tu l'adaptes en modifiant les noms d'objets, les adresses (Méthode Offset)...

Dans cette discussion, au post #20, j'indique quelques liens qui pourront t'aider.

A plus tard.

Bonjour bonjour,

J'ai bien remarqué que j'étais trop peu calé en VBA pour piloter un projet comme ça du coup j'ai demandé l'aide d'un pro que j'ai payé et qui m'a tout fait nickel, merci pour l'aide apportée ici :)

Je laisse le code qu'il m'a fait par bouton. Au final chaque bouton copie colle directement sans passer par un bouton "Valider" !
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 Sub Bouton1_vMAV() Dim ws1 As Worksheet Dim ws2 As Worksheet Set ws1 = Worksheets("Feuil1") Set ws2 = Worksheets("Feuil2") ws2.Activate Dim myFirstEmptyCell As Range Set myFirstEmptyCell = ws2.Cells(16, 2) While Not IsEmpty(myFirstEmptyCell) Set myFirstEmptyCell = ws2.Range(ws2.Cells(myFirstEmptyCell.Row + 1, myFirstEmptyCell.Column), ws2.Cells(myFirstEmptyCell.Row + 1, myFirstEmptyCell.Column)) Wend ws1.Activate ws1.Range(ws1.Cells(15, 3), ws1.Cells(15, 7)).Copy ws2.Activate myFirstEmptyCell.Select ActiveSheet.Paste Dim derligne As Long derligne = Range("C" & Rows.Count).End(xlUp).Row Rows(derligne).Insert End Sub
Bonne journée à tous :D

04/12/2018, 09h39
MarcelG

Bonjour à toi, Bonjour au Forum,

Citation:

j'ai demandé l'aide d'un pro que j'ai payé et qui m'a tout fait nickel

Je vais être franc.
Cela n'en valait pas la peine.

Il y aurait à dire sur ce code (s'il te plaît, balise tes reports par les bornes #).
- Utilisation du bloc With
- Libération des variables.
......

Adapter ma proposition ne t'aurait pas pris un temps énorme.
Celui-ci du reste aurait constitué un investissement pour tes développements à venir.

Bonne continuation tout de même