Discussion :

[ludojojo]

Bonjour,
Je cherche a copier le contenu de certains champs d'une ligne de ma feuil1 dans certain champs de ma feuil2 à la suite des données déjà présentes.

Je vais donner un exemple pour être le plus clair possible
Je voudrai copier le contenu de la colonne 1 de la ligne contenant ma cellule active de ma feuil1, vers la colonne 1 de ma feuil2 à la suite des données qui existe genre ligne 44...
Mais je souhaite aussi récupérer le contenu de la colonne 4 de cette meme ligne de la feuil1, pour le mettre dans ma colonne 2 de ma seconde feuille....

Je suis vraiment perdu!
Merci par avance

[Kalvin_20]

Malheureusement je suis aussi debutant en excel

mais commence par la sa pourra t'aider bonne chance

http://excel.developpez.com/faq/

[fring]

Bonjour tlm,

Une solution éventuelle :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub test()
Dim R As Integer
 
'trouver la première ligne vide de la feuille 2
R = Sheets(2).Cells(Rows.Count, 1).End(xlUp)(2).Row
 
'feuille 1 colonne 1 de la ligne active vers feuille 2 colonne 1
Sheets(2).Cells(R, 1) = Sheets(1).Cells(ActiveCell.Row, 1)
'feuille 1 colonne 4 de la ligne active vers feuille 2 colonne 2
Sheets(2).Cells(R, 2) = Sheets(1).Cells(ActiveCell.Row, 4)
 
End Sub

[ludojojo]

Génial cela fonctionne très bien...
En fait j'ai trouvé quasiment le même code par moi même...
Seul problème je ne connaissait pas (2)!!!
Alors mon code se compliquai... et foirai!

En tout cas merci bcp!

[zyhack]

Bonjour

j'allais envoyer ma réponse (trop tard)

par contre j'ai une question

tu as trouvé ou et comment fonctionne le (2) qui precede .Row dans ton code ? car je reste ébahi par le bon fonctionnement

Code :

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

Cells(Rows.Count, 1).End(xlUp)(2).Row

[fring]

Je ne peux pas vraiment t'expliquer le comment du pourquoi

End(xlUp)(0) = End(xlUp).Offset(-1, 0)
End(xlUp)(1) = End(xlUp)
End(xlUp)(2) = End(xlUp).Offset(1, 0)
End(xlUp)(3) = End(xlUp).Offset(2, 0)
etc...

[zyhack]

ok merci pour l'info j'aime bien apprendre de nouvelle chose mais la je pense que je vais garder mon basic

Code :

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

Cells(Rows.Count, 1).End(xlUp).Row + 1

qui me semble plus naturel.