Discussion :

[Wishguu]

Bonjour à tous,

J'ai cherché un peu partout la solution mais malheureusement je n'ai rien trouvé qui correspondait à mon objectif.

J'ai une feuille "Trace" et une feuille "Cat1"
Je souhaite copier toutes les colonnes de "Trace" qui contient "1" en première ligne et les coller sur "Cat1".

Comme étapes j'ai pensé à une boucle comme :

- Définition de la dimension du tableau de "Trace"
- Définition de la première colonne à traiter "B:B"
- Définition de la première cellule "B1" de la colonne "B:B"
- Vérification de sa valeur :
SI "1" alors la colonne "B:B" est copiée collée sur "Cat1", sinon on passe à la colonne suivante "C:C" et ceci jusqu'à la range max du tableau.

Merci de votre aide car je n'arrive pas à formuler sous VBA

[Daniel.C]

Bonjour,

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
Sub Recopie()
    Dim DerCol As Integer, Plage As Range, C As Range, Col As Integer
    With Sheets("Trace")
        DerCol = .Rows(1).Find("*", , , , , xlByColumns, xlPrevious).Column
        Set Plage = .Cells(1, 1).Resize(, DerCol)
    End With
    With Sheets("Cat1")
        For Each C In Plage
            If C.Value = 1 Then
                Col = Col + 1
                C.EntireColumn.Copy .Cells(1, Col)
            End If
        Next C
    End With
End Sub

[Wishguu]

Merci, c'est parfait !