Discussion :

[eurekgeez]

Bonjour,

Connaissez-vous un moyen de copier un enregistrement se trouvant dans un onglet Feuil1, vers un onglet Feuil2, en ayant comme argument une case de cet enregistrement. :S

Pour etre plus clair, je voudrais recopier la ligne correspondant à la case D4 (donc la ligne D) de la Feuil1 dans Feuil2...en VBA.

Je précise que j'utilise Excel 2002...

Merci d'avance

Cordialement,

[Theze]

Bonjour,

Là, j'ai un doute, la ligne D ? Pas plutôt la ligne 4 ?
Regarde ce qui suit si ça peut t'aider :

Code :

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

Worksheets("Feuil1").Rows.EntireRow(4).Copy Worksheets("Feuil2").Rows(4)

Hervé.

[eurekgeez]

oui la ligne 4 ^^
Je vais essayer d'adapter ca a mon code Theze, merci

Bonjour Theze,

effectivement, ca marche du tonnerre, malheureusement j'aimerai au lieu de donner "4" comme argument, j'aimerai donner un numero de case...comme D4.

Mais ca m'a l'air un peu tordu...

A partir d'une variable x contenant une réf de case, peut-on récupérer le numero de la ligne?
Soit x = "D4"
fct_magique(x) returns 4 existe-t-elle?

J'en profite si tu connais ^^ sinon je devrais me débrouiller

Merci encore

EDIT :

X.Row fait apparement très bien l'affaire, désolé, on est toujours tentés de demander plutôt que de chercher...merci et bon courage ^^

[Theze]

Re,

Soit le numéro de la ligne à copier est en D4, soit c'est la ligne de la cellule indiquée (ici, D4) qui est copiée :

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
16
17
 
Sub CopierLigne()
 
    Dim Ligne As Long
    Dim X As Range
 
    'Adapter la bonne instruction...
    'le numéro de ligne à copier se trouve en D4
    Ligne = Worksheets("Feuil1").Range("D4")
 
    'c'est la ligne de la cellule D4 qui est copiée
    Set X = Worksheets("Feuil1").Range("D4")
    Ligne = X.Row
 
    Worksheets("Feuil1").Rows.EntireRow(Ligne).Copy Worksheets("Feuil2").Rows(Ligne)
 
End Sub

Hervé.

[eurekgeez]

Super,

merci beaucoup, pour info j'étais dans le cas n°2, mais je suis content d'avoir aussi la soluce quand le numero de la ligne a copier est la valeure contenue dans la cellule

merci et bonne continuation !

[patricktoulon]

bonjour


pour le fun

Code :

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

1
2
 
Worksheets("Feuil1").Rows.EntireRow(sheets("Feuil1").Range("D4").row).Copy Worksheets("Feuil2").Rows(sheets("Feuil1").Range("D4").row)