Discussion :

[Math971]

Bonjour à tous,

Je suis néophyte et grâce à ce forum je progresse sur VBA.
Malheureusement je n'ai pas trouvé réponse à mon problème c'est pourquoi je me lance sur ce forum.

Je travail sur une base de donnée conséquente c'est pourquoi j'ai pris un exemple simple pour faciliter votre compréhension.

D'une feuille F1 je veux sélectionner et copier colonne par colonne vers une feuille F2 en collant la sélection à la suite d'un tableau.
Résultat la première colonne se colle au bon endroit mais les suivantes se trouvent décalées. Probablement parce que dans mon code je demande la dernière ligne non vide et que je suis en format tableau...

Ci-joint mon exemple.

Merci d'avance pour votre aide!

Mathieu

[RyuAutodidacte]

Bonjour,

c'est pourquoi je me lance sur ce forum.

Dans ce cas là il serait bien avant de commencer, de lire les règles du forum, à commencer par celle-ci :
https://www.developpez.net/forums/d8...s-discussions/

Le mieux c'est d'expliquer littéralement de façon claire et exhaustive avec tous les tenants et aboutissants ainsi que le but à atteindre.

là ce n'est pas assez clair …

[Math971]

Bonjour,

Désolé pour cette erreur...

Je vais essayer d'être plus clair:

Je cherche à copier certaines colonnes d'une feuille (F1) vers une seconde feuille (F2) dans le but d'alimenter une base de donnée au format tableau.
Pour se faire j'utilise le code suivant:

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
Sub Copycolonne()
     Sheets("F1").Select
     Range("A2").Select
     Range(Selection, Selection.End(xlDown)).Select
     Selection.Copy
     Sheets("F2").Select
     dernonvide = Range("B1000").End(xlUp).Row + 1
     Cells(dernonvide, 2).Select
     ActiveSheet.Paste
     Sheets("F1").Select
     Range("B2").Select
     Range(Selection, Selection.End(xlDown)).Select
     Selection.Copy
     Sheets("F2").Select
     dernonvide = Range("E1000").End(xlUp).Row + 1
     Cells(dernonvide, 5).Select
     ActiveSheet.Paste
End Sub

Lorsque j’exécute cette macros la sélection range("A2") se place bien à la dernière ligne non vide colonne B de ma base de donnée en F2.
En revanche la sélection range("B2") se place à la dernière ligne non vide de la colonne E mais en décalé vers le bas par rapport à la dernière ligne non vide de la colonne B.

Tout fonctionnait jusqu'à ce que je passe ma base de donnée en F2 sous format tableau.

Je cherche donc à ce que mes colonnes de la F1 se collent en F2 les une à côté des autres sans décalage des lignes.

J'espère que c'est plus clair.
Merci
Mathieu

[BENNASR]

bonsoir
Pour simplement copier une ligne entière voilà une proposition :

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
Sub test()
Dim j As Long
Dim i As Long
Dim k As Integer
Application.ScreenUpdating = False
With Sheets("F1")
i = .Range("A" & Rows.Count).End(xlUp).Row
For k = 2 To i
    If .Cells(k, 1) <> "" Then
    j = Sheets("F2").Range("A" & Rows.Count).End(xlUp).Row + 1
    .Cells(k, 1).EntireRow.Copy
    Sheets("F2").Activate
    Sheets("F2").Range("A" & j).Select
    ActiveSheet.Paste
    End If
Next k
End With
Application.ScreenUpdating = True
End Sub

Mais attention deux clic égal à copier deux fois et ainsi de suite donc il faut chercher un clé unique tel que le matricule employé pour éliminer les doublons

[RyuAutodidacte]

Re,

Regardes le Edit dans ce post
et vois comment c'est utilisé dans la discussion

EDIT : maj dans le post suivant

[Math971]

Bonsoir RyuAutodidacte,

Pas de place pour les débutants dans ce forum à ce que je vois...

Au revoir...

[RyuAutodidacte]

Bien sûr que si.
Je ne sais pas où tu as vu cela ?? Pour l'instant dans les transports en commun, je ne peux pas faire mieux.
Mais sache que si il y a des choses que tu ne comprends pas, on peux expliquer et donner des exemples, mais je ne donne pas du tout fait.
Ce que je t'ai donné permet de copier en une seule fois les colonnes voulues et dans l'ordre que tu le souhaites.
Au lieux de copier coller en plusieurs fois avec des select.
Est ce bien ce que tu avais en tête ???

Et jusqu'à preuve du contraire je ne vais pas faire du Excel avec mon téléphone

Edit : je viens de me rendre compte que je me suis trompé de lien dans mon post précédent, c'était celui-ci plutôt, donnant à des fonctions que j'ai créé :
https://www.developpez.net/forums/d1...e/#post9746320
Voilà ce qui peut arriver en écrivant de son téléphone
Donc se sont les codes dans l'Edit en rouge qui sont à voir

Exemple :

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
Function Index_Tab(VA As Variant, Entete As Byte, ParamArray Arr()) 'Les paramètres : 1-Variable tableau, 2-Entete (afin de la supprimer ou pas), 3-Array (colonne voulu de la variable tableau, ex : 4, 7, 9)
Dim VB(), i&, j&
    ReDim VB(1 To UBound(VA) - Entete + 1, 1 To UBound(Arr) + 1)
    For i = Entete To UBound(VA)
        For j = 1 To UBound(Arr) + 1:    VB(i - Entete + 1, j) = VA(i, Arr(j - 1)):    Next
    Next
    Index_Tab = VB
End Function
 
Sub exemple()
VA = Sheets(1).Range("A1:C3").Value
DL = Sheets(1).Cells(Rows.Count, 1).End(xlUp)(2).Row
 
VA = Index_Tab(VA, 1, 3, 1, 2)
 
Sheets(1).Range("A" & DL).Resize(UBound(VA), UBound(VA, 2)).Value = VA
End Sub

A Adapter bien sûr …