Collage conditionnée et automatisé

[ados99]

bonjour;
j'ai développé un macro incomplet qui permet de copier les éléments de la Feuil1 à la Feuil2 selon un autre ordre.

Toutefois, je sollicite votre soutien pour les développements suivants:
je souhaite que la colonne L et M dans la Feuil 2 soient multiplier par 12

 

[phlaurent55]

Re : Collage conditionnée et automatisé

Bonjour Adoc,

remplace ton code par celui-ci

Sub traiter()
    Dim i&, fin&, col As Variant
    Dim cellule As Range
    i = 1
    For Each col In Array(100, 4, 1, 5, 6, 100, 7, 100, 100, 5, 100, 20, 20, 100, 100, 100, 100, 100, 100, 100, 100)
        Feuil1.Columns(col).Copy Feuil2.Columns(i): i = i + 1
    Next
    Feuil2.Columns("A:M").AutoFit
    For Each cellule In Range("L2:M" & Range("L65535").End(xlUp).Row)
    cellule = cellule * 12
    Next cellule
End Sub

à+
Philippe

 

[ados99]

Re : Collage conditionnée et automatisé

merci Philippe,
ça répond parfaitement à mon souci,
pouvez juste, svp, me rajouter cette modification:

la colonne H et I de la Feuil 2; je souhaite que leur cellules contiennent la lettre "L"


merci à vous

ados

 

[phlaurent55]

Re : Collage conditionnée et automatisé

Re,

avec ceci

Sub traiter()
    Dim i&, fin&, col As Variant
    Dim cellule As Range
    i = 1
    For Each col In Array(100, 4, 1, 5, 6, 100, 7, 100, 100, 5, 100, 20, 20, 100, 100, 100, 100, 100, 100, 100, 100)
        Feuil1.Columns(col).Copy Feuil2.Columns(i): i = i + 1
    Next
    Feuil2.Columns("A:M").AutoFit
    For Each cellule In Range("L2:M" & Range("L65535").End(xlUp).Row)
    cellule = cellule * 12
    Next cellule
    For Each cellule In Range("H2:I" & Range("L65535").End(xlUp).Row)
    cellule = "L"
    Next cellule
End Sub

à+
Philippe

 

[ados99]

Re : Collage conditionnée et automatisé

Merci énormément philipe