Discussion :

[bosk1000]

bonjour à tous

je cherche à copier des valeur du ligne que je sélectionne dans une feuille A pour les copier à divers endroits d'une feuille B

exemple
Dans la ligne 35 que je sélectionne en feuille A cellule
je veux que la valeur dans la cellule a35 se copy en c8 de la feuille B

l'idée est que sur la feuille A j'ai un suivie de facturation et sur la feuille B le modèle de la facture

Cette manip me permettrais de ré-imprimer la facture facilement

merci

[p0l1n]

Dans ta cellule C8 de la Feuille B inscrit simplement :

Code :

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

=FeuilA!A35

tout simplement et fait de même pour tes autres cases, pas vraiment besoin de code, a moins qu'il y est autre condition dans ton application...

[bosk1000]

non, car la ligne peux être différente a chaque fois
j'aurais du mettre
Cette manip me permettrais de ré-imprimer les factures facilement
au lieu de
Cette manip me permettrais de ré-imprimer la facture facilement

chaque ligne de la page A correspond à une facture

[p0l1n]

donc en gros, tu vas remplir tes factures sur la Feuille B et tu veux un suivi sur la feuille A pour pouvoir les consulter plus tard comme tu veux ?

donc chaque facture aura un # surement pour pouvoir la retracer ? ou tu veux rechercher par nom de client ?

[rvtoulon]

Slt, bosk1000, p0l1n
voila ce que je ferais, je mettrai dans la feuil1 en ligne 1 un controle zone de liste déroulante (controle activeX) .... (Combobox1), que j'alimenterai avec les éléments de la colonne A (si j'ai compris).
je mets le code directement dans la feuil1 avec l'évènement Activate, donc à chaque fois que l'on active la feuille, la combo ce met à jour.

Code :

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

1
2
3
4
5
6
7
8
Private Sub Worksheet_Activate()
Dim derlign As Long
derlign = Range("A65000").End(xlUp).Row
ComboBox1.Clear
For i = 3 To derlign
ComboBox1.AddItem (Range("A" & i))
Next i
End Sub

Ensuite, lorsque je sélectionne un élément de la combo, il se copie dans la cellule C8 de la feuil2

Code :

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

1
2
3
Private Sub ComboBox1_Change()
Sheets("Feuil2").Range("C8") = ComboBox1.Value
End Sub

Une idée comme une autre a adapter.
A+

[bosk1000]

donc en gros, tu vas remplir tes factures sur la Feuille B et tu veux un suivi sur la feuille A pour pouvoir les consulter plus tard comme tu veux ?

donc chaque facture aura un # surement pour pouvoir la retracer ? ou tu veux rechercher par nom de client ?

simplement, lorsque j'ai besoins de ré-imprimer une facture
je veux juste en sélectionnant la ligne et en cliquant sur une icône, les éléments de la ligne dont j'ai besoins se copieront sur certaine cellule de la feuille b la facture s'imprimera

ma seule difficulté et de déclenché la copie sur la ligne active

[bosk1000]

Slt, bosk1000, p0l1n
voila ce que je ferais, je mettrai dans la feuil1 en ligne 1 un controle zone de liste déroulante (controle activeX) .... (Combobox1), que j'alimenterai avec les éléments de la colonne A (si j'ai compris).
je mets le code directement dans la feuil1 avec l'évènement Activate, donc à chaque fois que l'on active la feuille, la combo ce met à jour.

Code :

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

1
2
3
4
5
6
7
8
Private Sub Worksheet_Activate()
Dim derlign As Long
derlign = Range("A65000").End(xlUp).Row
ComboBox1.Clear
For i = 3 To derlign
ComboBox1.AddItem (Range("A" & i))
Next i
End Sub

Ensuite, lorsque je sélectionne un élément de la combo, il se copie dans la cellule C8 de la feuil2

Code :

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

1
2
3
Private Sub ComboBox1_Change()
Sheets("Feuil2").Range("C8") = ComboBox1.Value
End Sub

Une idée comme une autre a adapter.
A+

je n'ai jamais utilisé de contrôle active x
d'où mon incapacité à faire fonctionné la zone de liste
j'ai inserer la zone de liste, dans la feuille j'ai copié le code
mais lorsque je passe la souris sur la zone de liste, ma flèche de souris devient une croix fléché qui me permet de déplacer la zone de liste, donc impossible d'obtenir le moyen de choisir un élément de la colonne a

[rvtoulon]

Slt bosk1000,

mais lorsque je passe la souris sur la zone de liste, ma flèche de souris devient une croix fléché qui me permet de déplacer la zone de liste

c parce que lorsque tu insères le contrôle (zone de liste déroulante), excel passe en mode "Création". il suffit de cliquer sur l'icône ou il y a une équerre avec un crayon et une règle.

Ensuite comme l'initialization est faite avec l'événement activate de la feuille1 il faut sélectionner la feuille 2 et resélectionner la feuille 1.
il y a la possibilité de faire autrement pour l'initialization mais c pour l'exemple.
A+

[bosk1000]

merci
ce systeme fonctionne

mais hélas n'est pas pratique, due à la présentation du fichier
chaque ligne correspondant a une facture, avec 500 factures, je me perdrais vite a chaque fois a défiler le menu déroulant,

je pensais partir sur une manip plus simple, en un cliq tout d'abord sur la ligne que je selectione et ensuite j'aurais voulu cliqué sur un bouton qui aurait a ce moment là déclenché la manip de copie éléments par éléments de la ligne que j'aurais sélectionné

quelqu'un a un moyen de declanché sur la ligne active, un code du genre activerow ou row.active

[rvtoulon]

slt,
et avec l'événement beforedoubleclick de la feuille1 un ex:

Code :

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

1
2
3
4
5
6
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
i = Target.Row
Sheets("Feuil2").Range("C8") = Range("A" & i).Value
Sheets("Feuil2").Range("F8") = Range("F" & i).Value
'etc....
End Sub

tu double clic sur la cellule et sa déclenche la copie

ou bien avec un bouton de commande toujours dans la feuille :

Code :

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

1
2
3
4
5
Private Sub CommandButton1_Click()
i = Selection.Row
Sheets("Feuil2").Range("C8") = Range("A" & i).Value
Sheets("Feuil2").Range("F8") = Range("F" & i).Value
End Sub

comme tu l'as dit tu sélectionne une cellule de la ligne et tu appuies sur le bouton
A+

[laetitia]

bonjour bosk rvtoulon le forum un autre exemple copy la ligne selectionne de la cell a&x A e&x sur sheets 2 en a2

Code :

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

Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row, 5)).Copy Destination:=Sheets(2).[a2]

tu utilises un bouton ou double click comme le dit l'ami rvtoulon

[bosk1000]

genial
ça fonctionne
la solution se trouvais dans le" i = Selection.Row"

merci

[rvtoulon]

Slt, bosk1000, laetitia
la solution de copie de laetitia est interessante car elle remplace le

Code :

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

i = Selection.Row

par le "Activecell" dans sa ligne

Code :

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

1
2
Cells(ActiveCell.Row, 1)
'Cells (numlign, numcolon)

Je n'y avais pas pensé. Merci
Bonne journée