Selction colonne

Bonjour à tous,

Je suis novice en VBA, je cherche a copier les 50 cellules de cette colonne a partir de ma celule active, et de les coller (les 50 valeurs) dans un autre endroit de la feuille.MAIS JE NY ARRIVE PAS

voici mon script

Private Sub UserForm_initialize()

Sheets("feuil1").Select

Range("A1").Select

vComposants = Range("Feuil1!a1").Value

Do While ActiveCell.Value <> "Composants"

ActiveCell.Offset(0, 1).Select

Loop

ActiveCell.Offset(1, 0).Select

Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Column, 10)).Copy

vComposants = ActiveCell.Value

Range("Feuil1!a8").Value = vComposants

End Sub

MERCI pour votre aide

Bonjour et bienvenue,

un fichier simplifié serait le bienvenu !

pourquoi passer par un userform ?

Bonjour,

Avec un fichier exemple ce serait plus simple pour nous !

D'autant qu'avec des plages de cellules le plus simple est encore d'écrire refplagedestination.value=Plageàcopier.value

A adapter mais vu tes Range("A1").select et tes activecell.offset qui pour moi ne servent à rien on n'y comprend rpour ta plage à copier.

Bonjour et merci

Je passe par userform pour créer une sorte d'application !

tu aurais une idée de comment je pourrais faire ?

Merci de ton aide

Merci les gars

j'ai mis un fichiers exemple

Voici

Sub recopie()

    ' je sélectionne la plage
    Range("D2:D" & Range("D" & Rows.Count).End(xlUp).Row).Select

    ' pour recopier en valeur, je mets le contenu de la plage dans un tableau ou array en VBA applé ici composants
    composants = Selection

    ' je recolle le tableau à partir de I12
    Range("I12").Resize(UBound(composants), 1) = composants

End Sub

tu peux appeler cette sub dans ton userform si tu le souhaites ! ou l'appeler directement par un bouton.

en faite c'est pas mal mon souci surtout.

C’est que ma colonne D « composant » peux varier de position suivant la personne qui me la place.

C’est pour ca que j’ai une boucle pour trouver ma colonne.

et après avoir trouver ma colonne je veux copier les 50 donnée de cette colonne et les coller en I12

tu vois ce que je veux dire et faire

Merci encore a toi tu es génial

Bonjour,

Normalement, il n'y a pas besoin de boucle pour trouver la colonne. Il suffit de rajouter une ligne en début du code de Steelson et d'adapter la suivante :

Sub recopie()

    MaCol = application.match("Composants", rows(1), 0) 'numéro de colonne avec titre "Composants" en ligne 1

    ' je sélectionne la plage
    Range(cells(2, Macol), cells(rows.count, MaCol).End(xlUp)).Select

    ' pour recopier en valeur, je mets le contenu de la plage dans un tableau ou array en VBA applé ici composants
    composants = Selection

    ' je recolle le tableau à partir de I12
    Range("I12").Resize(UBound(composants), 1) = composants

End Sub

Cdlt,

... et j'ajoute que si tes données étaient en tableau excel, alors la macro saurait où aller chercher les données avec listobjects(1)

MERCI BEAUCOUP

Avec vous je me rends compte du boulot qu'il me reste a apprendre pour vous égaler.

Ca marche super

Merci A TOUS