Copier 2 éléments d'une ligne après un "scrolling"

Le
Pierre F.
Bonjour;

JB m'a fabriqué un code qui me permet en entrant des nombres ou du text=
e
dans H2 de scroller et positionner la cellule active dans la première
cellule qui contient le nombre ou le texte tapé.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$H$2" Then
On Error Resume Next
[A:A].Find(what:=Target, LookIn:=xlValues).Select
[B:B].Find(what:=Target, LookIn:=xlValues).Select
Else
ActiveWindow.ScrollRow = ActiveCell.Row
End If

End Sub

Ce que je souhaiterais maintenant, c'est récupérer le contenu des
colonnes B et C de la ligne atteinte afin de le copier et de le coller
ailleurs (en H1 et I1 précisément)

J'ai essayé la macro ci-dessous mais rien ne se passe :-((
Cette macro intervient après que le module ci-dessus ait fait effet; la=

cellule active est donc sur la bonne ligne, en colonne A ou B selon que
j'ai entré un nombre ou du texte.

Sub Copieresul()

Range("B:C").Select
Selection.Copy
Range("I1").Select
ActiveSheet.Paste

End sub

Qu'est-ce qui est faux ???

Merci de votre collaboration.

Cordialement,
Pierre F.
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
LSteph
Le #4355551
Bonjour,
Ce que je souhaiterais maintenant, c'est récupérer le contenu des
colonnes B et C de la ligne atteinte afin de le copier et de le coller
ailleurs (en H1 et I1 précisément)



sans aucune macro, exemple:
en h1
=INDEX($B$1:$B$1000;EQUIV($H$2;$A$1:$A$1000;0))
en i1
=INDEX($c$1:$c$1000;EQUIV($H$2;$A$1:$A$1000;0))

Cordialement.

lSteph


Pierre F.
Le #4355531

sans aucune macro, exemple:
en h1
=INDEX($B$1:$B$1000;EQUIV($H$2;$A$1:$A$1000;0))
en i1
=INDEX($c$1:$c$1000;EQUIV($H$2;$A$1:$A$1000;0))



Trop fort !! Merci!

Cordialement,
Pierre F.

Publicité
Poster une réponse
Anonyme