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 !)

[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.

[fyazkrop]

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 :

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 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

[MarcelG]

Bonjour.

Mes excuses pour ce retard.

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

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.

[fyazkrop]

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 :

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
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

[MarcelG]

Bonjour à toi, Bonjour au Forum,

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