Discussion :

[Danieldu54]

Bonsoir à tous,

je butte sur un petit soucis : je souhaiterai copier une colonne entière qui contient un certain intitulé dans une autre feuille sans aller sur la feuille source. Voici mon code de départ qui va sur la feuille source :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
    Sheets("feuil1").Select
    Rows("1:1").Select
    Selection.Find(What:="AFF_CODE", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
    ActiveCell.EntireColumn.Select
    Selection.Copy
    Sheets("feuil2").Select
    Range("A1").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False

je l'ai transformé en :

Code :

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

1
2
3
4
5
6
Sheets("feuil1").Rows("1:1").Find(What:="AFF_CODE", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate 'ligne 1
    ActiveCell.EntireColumn.copy 'ligne2
    Sheets("feuil2").Range("A1").Paste
    Application.CutCopyMode = False

Je souhaiterai assembler la ligne 1 et la ligne 2 pour supprimer le .activate de la ligne 1. Mais ce code ne fonctionne pas :

Code :

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

1
2
3
Sheets("feuil1").Rows("1:1").Find(What:="AFF_CODE", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).copy

Je suis sûr que ça de doit pas être grand chose mais je ne trouve pas ...

si une bonne âme connait la solution ou une meilleur voie je suis preneur !

[jfontaine]

Bonjour,

Si la raison pour laquelle tu ne veux pas aller sur la feuille est que tu ne veux pas que l'utilisateur ait vision de cette feuille, tu peux soit la masquer, soit (et c'est encore mieux) désactiver la mise a jour de l'affichage

Code :

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

Application.ScreenUpdating = False

Bien penser a le remettre à True à la fin du traitement

[Danieldu54]

Bonsoir jfontaine,

Merci mais ce n'est pas ce que je recherche, j'utilise déjà cette fonction.

Je cherche à optimise mon code, et vu que je fais que de copier des infos d'une feuille à une autre je souhaite gagner un peu de temps à chaque opération (j'en ai beaucoup).

Je précise que ma feuille n'est pas masquée mais c'est tout comme, je dois supprimer donc tous mes select ! En vain ....

[gFZT82]

Bonjour,

As-tu essayé

Code :

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

1
2
3
Sheets("Feuil1").Rows("1:1").Find(What:="AFF_CODE", After:=Sheets("Feuil1").Range("A1"), LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).EntireColumn.Copy Destination:=Worksheets("Feuil2").Range("A1")

Cordialement.

[Danieldu54]

Bien vu gFZT82 ça fonctionne impec !

Merci !

Bonne soirée

[Danieldu54]

Le sujet étant le même j'en profite.
Dans le même genre et avec la même fonction :

Je recherche sur la feuil3 la valeur x dans la plage A1:B10. x se trouvant dans la plage A1:A10 et un paramètre y se trouvant dans B1:B10 en face de x.

Et toujours sans sélectionner la feuil3.

Ma formule actuelle (retournant une erreur incompatibilité de type 13) est la suivante :

Code :

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

1
2
3
Sheets("feuil3").Range("A1:B10").Find(What:=x, After:=Sheets("feuil3").Range("A1"), LookIn:=xlFormulas, _
    LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
    MatchCase:=False, SearchFormat:=False).Offset(0, 1).Value = y

une autre proposition ?

[gFZT82]

Il faut que tu définisses tes variables x et y.
Dans l’exemple suivant, il s’agit de caractères.

Code :

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

1
2
3
    Sheets("feuil3").Range("A1:A10").Find(What:="x", After:=Sheets("feuil3").Range("A1"), LookIn:=xlValues, _
    LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
    MatchCase:=False, SearchFormat:=False).Offset(0, 1).Value = "y"

De plus, je traduirais plutôt ton code par : je recherche sur la feuil3 la valeur « x » dans la plage A1:A10 et j’inscris la valeur « y » dans la colonne adjacente.

Si tu souhaites rechercher sur la feuil3 la valeur « x » dans la plage A1:A10 et retourner la valeur « y » de la colonne adjacente, il faut écrire :

Code :

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

1
2
3
    Résultat = Sheets("feuil3").Range("A1:A10").Find(What:="x", After:=Sheets("feuil3").Range("A1"), LookIn:=xlValues, _
    LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
    MatchCase:=False, SearchFormat:=False).Offset(0, 1).Value

Cordialement.

[Danieldu54]

Effectivement c'est bien ça ...

Je n'avais pas précisé que mon "x" est une variable comme "y", le bon code qui répond donc à ma demande est:

Code :

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

1
2
3
Sheets("feuil3").Range("A1:A10").Find(What:=x, After:=Sheets("feuil3").Range("A1"), LookIn:=xlValues, _
    LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
    MatchCase:=False, SearchFormat:=False).Offset(0, 1).Value = y

Car c'était la cellule recherchée qui doit être remplie par la valeur de la variable "y" (j'ai parfois un peu de mal à exprimer mon besoin avec les bons mots)

Merci gFZT82 !