Références qui renvoie aux désignations.....

Le
Moyo
bonjours à toutes et à tous.

Je possède sur une feuille exel, 1er onglet, une liste
(réf+désignations+tarif). sur un deuxième onglet, je souhaiterai quand je
tape la référence, que la désignations et le tarif s'inscrivent
automatiquement
Quels conseils s'il vous plait pourriezvous me donner ?
merci d'avance
Chirs
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
JB
Le #18335051
Bonjour,

http://boisgontierjacques.free.fr/pages_site/recherchev.htm

JB
http://boisgontierjacques.free.fr

On 8 jan, 16:16, Moyo
bonjours à toutes et à tous.

Je possède sur une feuille exel, 1er onglet, une liste
(réf+désignations+tarif). sur un deuxième onglet, je souhaiterai qu and je
tape la référence, que la désignations et le tarif s'inscrivent
automatiquement......
Quels conseils s'il vous plait pourriezvous me donner ?
merci d'avance
Chirs


FFO
Le #18335371
Salut à toi

Dans le VBA de la feuille de saisie des références mets ce bout de code :

Private Sub Worksheet_Change(ByVal Target As Range)
Ligne = Sheets("Feuil1").Range("A1", "A" &
Sheets("Feuil1").Range("A65535").End(xlUp).Row).Find(What:=Target,
After:=Sheets("Feuil1").Range("A1"), LookIn:=xlValues, _
LookAt:=xlWhole).Row
Range(ActiveCell.Address, ActiveCell.Offset(0, 2).Address).Value =
Sheets("Feuil1").Range("A" & Ligne, "C" & Ligne).Value
End Sub

Les données à recopier doivent être en Feuil1 colonne A/B/C


Celà devrait convenir
Dis moi !!!!
Moyo
Le #18335351
Merci JB pour ta réponse rapide......mais je ne suis pas aussi experte que
toi....j'ai du mal à appliquer ce que tu m'a indiquée....
moyo

"FFO" a écrit :

Salut à toi

Dans le VBA de la feuille de saisie des références mets ce bout de code :

Private Sub Worksheet_Change(ByVal Target As Range)
Ligne = Sheets("Feuil1").Range("A1", "A" &
Sheets("Feuil1").Range("A65535").End(xlUp).Row).Find(What:=Target,
After:=Sheets("Feuil1").Range("A1"), LookIn:=xlValues, _
LookAt:=xlWhole).Row
Range(ActiveCell.Address, ActiveCell.Offset(0, 2).Address).Value =
Sheets("Feuil1").Range("A" & Ligne, "C" & Ligne).Value
End Sub

Les données à recopier doivent être en Feuil1 colonne A/B/C


Celà devrait convenir
Dis moi !!!!



garnote
Le #18345221
Bonjour,

Vas voir là :
http://cjoint.com/?bjrH032rz6

Ça te convient ?


Serge



"Moyo"
bonjours à toutes et à tous.

Je possède sur une feuille exel, 1er onglet, une liste
(réf+désignations+tarif). sur un deuxième onglet, je souhaiterai quand je
tape la référence, que la désignations et le tarif s'inscrivent
automatiquement......
Quels conseils s'il vous plait pourriezvous me donner ?
merci d'avance
Chirs


Publicité
Poster une réponse
Anonyme