Discussion :

[myayo001]

Bonjour,

j'aimerai faire une recherche dans une ligne lorsque le nom correspond à celui rechercher j'aimerai copier la colonne du tableau sur 15 lignes
je pense avoir une partie du code mais le comprend pas comment copier la colonne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 For Each celle In .[B408:I408]
               If celle.Value = Choix Then
                ???     .Copy Sh.[A217]
                 End If
            Next

[Menhir]

Je ne sais pas où tu as récupéré ce code mais il semble plutôt... étrange.

Déjà, pour commencer par réparer la syntaxe :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
For Each celle In Range[B408:I408]
     If celle.Value = Choix Then
          celle.Copy
          Col = celle.Column
          Range((celle.Row, celle.Column),(celle.Row, celle.Column+15)).PasteSpecial(xlPasteAll)
     End If
Next celle

[myayo001]

merci par contre ça me donne une erreur à la compilation!

avec ce code comment puis-je copier la colonne sur ma feuille Sh en A218?

[Menhir]

merci par contre ça me donne une erreur à la compilation!

Comme ça, ça devrait aller mieux.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range(Cells(celle.Row+1, celle.Column),Cells(celle.Row+15, celle.Column)).PasteSpecial(xlPasteAll)

avec ce code comment puis-je copier la colonne sur ma feuille Sh en A218?

Pour copier sur une autre feuille, il suffit de précéder le Range de la ligne contenant le PasteSpecial du nom de la feuille avec un Worksheets(Sh) (sans oublier de séparer par un point).

Pour placer la copie sur l'autre feuille, il suffit de modifier le contenu du Range.
Il contient deux objets Cells. Chacun donne les limites de la zone où copier les cellules sources.
Chaque objets Cells contient deux éléments : un numéro de ligne et un numéro de colonne.

Dans le code que j'ai donné, le numéro de colonne est celui de la cellule source : celle.Column
Le numéro de ligne est celui de la cellule source (celle.Row) en ajoutant +1 (pour le début de la zone) ou +15 (pour la fin de la zone).
Si tu veux les placer ailleurs dans ta feuille cible, il faut modifier ces valeurs.

[myayo001]

désolé mais je débute en vba
ça devrait ressembler à quelque chose comme ça ou je me plante complètement?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

     Worksheets(Sh).Cells(218, 2).Range(Cells(celle.Row + 1, celle.Column), Cells(celle.Row + 15, celle.Column)).PasteSpecial (xlPasteAll)

[Menhir]

Si ton onglet destination s'appelle "Sh" et s'il se trouve dans le même fichier que ta source, ça devrait s'appeler comme ça.

Pour ce qui est du contenu des deux Cells, ça dépend des positions des cellules dans lesquelles tu veux copier tes données.