Discussion :

[Mehdi8793]

Bonjour,

suite au developpement d'une application, on m'a donné un fichier avec plein de donnée, on m'a demandé de les récupérer. Le problème il ya une masse de données et de faire ligne par ligne me reviens à faire cela pendant longtemps. M'a demande est tout simplement si il est possible de créer une macro afin de parcourir chaque colonne est lorsque une valeur correspond à la colonne, elle copie colle la valeur dans la bonne ligne de l'autre feuille.

Exemple: J'ai une colonne sur un fichier à partir de A6 jusqu'a A135 sur le fichier test 1 de l'onglet testdonné, puis j'ai une colonne sur un autre fichier en A6 sur le fichier test2 de l'onglet testvide. Est-il possible en fonction de la comparaison on insère les valeurs à la bonne ligne?

Les deux liste non pas la meme taille sinon sa m'aurait pas dérangé un copier coller aurait suffit or la lorsque je copie colle mes valeurs cela ne correspond pas avec la valeur en colonne A.


Je vous remercie d'avance pour votre aide.



Cordialement


Tassi Mehdi

[Mehdi8793]

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
26
27
28
29
30
31
32
33
Sub ColorierBatch()
    Dim i As Integer
    Dim nb_ligne As Integer
    Dim TabLignes() As Integer
    Dim couleur As Integer
    Dim j As Integer
    Dim nb_occurence As Integer
 
    nb_occurence = 0
    couleur = 3
    [A6].Select
    nb_ligne = 0
    While ActiveCell.Offset(nb_ligne, 0) <> ""
        nb_ligne = nb_ligne + 1
    Wend
 
    ReDim TabLignes(nb_ligne)
    For i = 0 To nb_ligne - 1
        If TabLignes(i) = 0 Then
            TabLignes(i) = couleur
            j = i + 1
            While ActiveCell.Offset(j, 0) <> ""
                If ActiveCell.Offset(j, 0) = ActiveCell.Offset(i, 0) Then
                    TabLignes(j) = couleur
                    ActiveCell.Offset(j, 0).Interior.ColorIndex = couleur
                    ActiveCell.Offset(i, 0).Interior.ColorIndex = couleur
                End If
                j = j + 1
            Wend
            couleur = couleur + 1
        End If
    Next i
End Sub

Je n'arrive pas a adapter cette macro afin de traiter m'a demande quelqu'un à une idée?


Cordialement

[Mehdi8793]

Je reviens vers vous afin de vous donner plus de détail: Voici 2 fichiers:

classeur1 : classeur de destination ici on veux copier les valeurs.
classeur 2 extraire les valeurs de ce classeur.

Ce que je comprends pas c'est comment je peux faire en sorte qu'il y es une comparaison de la colonne A de chaque feuille et qui copie colle vers la feuille de destination en fonction du nom de la colonne A elle doit correspondre. Ceci n'est qu'un exemple, je cherche à l'automatiser car j'en est bien plus.

Voici les fichiers.

Classeur1.xlsxClasseur2.xlsx


Je vous remercie d'avance,

Cordialement