Discussion :

[gauthier69]

Bonjour,

Ayant un probléme avec une macro VBA, je me permet de demander votre aide!

Je voudrais copier les donnée d'une colonne d'une feuille à l'autre sous condition.
Par exemple dans la feuille "Temp" pour l'intitulé de colonne "Succursale" copier les données de cette colonne dans ma feuille "MesValeurs" à condition qu'il trouve l'intitulé "Succursale".
Sachant que mes intitulé dans ma feuille "Temp" peuvent bouger.

Mais hélas, pour l'instant ma macro ne marche pas vraiment comme prévu. (probléme de boucle je pense)

Je joins un fichier testcolonne.

D'avance merci de votre aide et de votre temps. :D !!!

Cordialement,

Testcolonne_v1.xlsTestcolonne_v1.xls

Le fichier ne comprend pas la macro car je n'arrive pas à uploader le fichier en .xlsm (excel 2010)

PS: Désolé mais je n'arrive pas à mettre les tabulations! ""[/INDENT]""

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
34
35
36
37
38
39
40
41
Sub Testcolonne2()
Dim i As Integer
 
i = 1
Sheets("Temp").Select
 
While Cells(1, i + 1) <> ""
 
  Select Case Cells(1, i + 1)
 
  Case Is = "Statut"
 
    Range(Cells(2, i + 1), Cells(100, i + 1)).Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Temp1").Select
    Range("D2:D100").Select
    ActiveSheet.Paste
 
  Case Is = "Niveau Unite"
 
    Range(Cells(2, i + 1), Cells(100, i + 1)).Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Temp1").Select
    Range("E2:E100").Select
    ActiveSheet.Paste
 
  'Case Is= pour les autre colonne
 
  Case Else
 
  MsgBox ("rien")
 
  End Select
  MsgBox ("OK")
  i = i + 1
 
Wend
 
End Sub

[Daniel.C]

Bonjour,

Tu ne peux pas joindre de fichier xlsm, le format n'est pas autorisé; si tu veux en mettre un, il faut le compresser au préalable. Essaie :

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 Copie()
    Dim C As Range, Plage As Range, Ligne As Long, Sh As Worksheet, Col As Variant
    Ligne = 1
    With Sheets("Temp")
        Set Plage = .Range("A2", .Cells(.Rows.Count, 1).End(xlUp))
    End With
    Set Sh = Sheets("Temp")
    With Sheets("MesValeurs")
        For Each C In Plage
            Ligne = Ligne + 1
            For i = 1 To .Cells(1, .Columns.Count).End(xlToLeft).Column
                Col = Application.Match(Sh.Cells(1, i), .[1:1], 0)
                If IsNumeric(Col) Then
                    .Cells(Ligne, Col) = C.Offset(, i - 1)
                End If
            Next i
        Next C
    End With
End Sub

[Marc-L]

Bonjour, bonjour,

‼ (cf règles du forum)


Sinon, si j'ai bien compris le besoin, un code n'est pas forcément nécessaire,

consulter Les filtres avancés ou élaborés dans Excel …

[gauthier69]

Un grand merci! ça marche!!! problème résolu!

Désolé pour la balise! je pensais qu'il fallait mettre des tabulation avec ""[/INDENT]"". Que j'ai mis devant chaque ligne! Mais cela ne fonctionnait pas! Je le saurais pour la prochaine fois!

[gauthier69]

Bonjour,

Je me permet de revenir vers vous pour avoir quelque explication sur le code:
Car j'aimerais être sûr de l'avoir compris!

D'avance Merci!

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
Sub Copie()
    Dim C As Range, Plage As Range, Ligne As Long, Sh As Worksheet, Col As Variant
    'Donc on déclare les variable C en tant que plage de cellule, le compteur ligne, nos onglet et nos sélection pour copier les valeurs
    Ligne = 1
    With Sheets("Temp")
    'exécute la série d'instruction plusieurs fois!
        Set Plage = .Range("A2", .Cells(.Rows.Count, 1).End(xlUp))
        'Sélectionne la page de cellule jusqu'à une cellule vide (compte le nombre de cellule)
    End With
    Set Sh = Sheets("Temp") 'va dans l'onglet "temp"
    With Sheets("MesValeurs")
        For Each C In Plage 'pour chaque cellule dans la plage de cellule
            Ligne = Ligne + 1 'compteur
            For i = 1 To .Cells(1, .Columns.Count).End(xlToLeft).Column 'compte le nombre de colonne?
                Col = Application.Match(Sh.Cells(1, i), .[1:1], 0) 'Colle les valeurs correspondantes
                If IsNumeric(Col) Then 'si l'intitulé de la colonne correspond?
                    .Cells(Ligne, Col) = C.Offset(, i - 1) 'que signifie Offset?
                End If
            Next i
        Next C
    End With
End Sub
 
'merci de votre aide!

[Daniel.C]

Bonjour,

Je veux bien tout expliquer, mais est-ce que la macro fait ce que tu veux ?

[gauthier69]

Oui, elle me copie les données dans l'autre feuille en tenant compte du libellé de colonne même si celui bouge!
Bref, elle marche très bien!
Dans l'ensemble j'ai compris la procédure mais dans certains cas j'aurai besoin de quelques précisions! (cf les notes du code)

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
Sub Copie()
    Dim C As Range, Plage As Range, Ligne As Long, Sh As Worksheet, Col As Variant
    'Donc on déclare les variable C en tant que plage de cellule, le compteur ligne, nos onglet et nos sélection pour copier les valeurs
    Ligne = 1
    With Sheets("Temp")
    'exécute la série d'instruction plusieurs fois!
        Set Plage = .Range("A2", .Cells(.Rows.Count, 1).End(xlUp))
        'Sélectionne la page de cellule jusqu'à une cellule vide (compte le nombre de cellule)
    End With
    Set Sh = Sheets("Temp") 'va dans l'onglet "temp"
    With Sheets("MesValeurs")
        For Each C In Plage 'pour chaque cellule dans la plage de cellule
            Ligne = Ligne + 1 'compteur
            For i = 1 To .Cells(1, .Columns.Count).End(xlToLeft).Column 'compte le nombre de colonne?
                Col = Application.Match(Sh.Cells(1, i), .[1:1], 0) 'Colle les valeurs correspondantes
                If IsNumeric(Col) Then 'si l'intitulé de la colonne correspond?
                    .Cells(Ligne, Col) = C.Offset(, i - 1) 'que signifie Offset?
                End If
            Next i
        Next C
    End With
End Sub
 
'merci de votre aide!