J'ai un tableau de (d17:e27) je voudrais effectuer une recherche dans le tableau afin qu'il me sélectionne la dernière ligne non vide (exemple: d20:e20) et qu'il aille me la reccopier ailleurs
merci
kiki29
Profil : Membre
Posté le 12-12-2006 à 10:40:43
A tester et adpater
Option Explicit
Sub Tst()
Dim r1 As Long, r2 As Long,r as long
r1 = Range("D65536" ).End(xlUp).Row
r2 = Range("E65536" ).End(xlUp).Row
r = Application.Max(r1, r2)
Range("D" & r & ":E" & r).Copy Range("H25" )
End Sub
Message édité par kiki29 le 12-12-2006 à 10:57:05
cibox
Profil : Jeune recrue
Posté le 12-12-2006 à 12:48:06
merci mais comme j'ai des données en dessous du tableau il me recopie ces données là mais pas ce qui m'interesse en tous cas si g rien endessous c impeccable je compte sur ton savoir pour m'aider encore
merci en tous cas
kiki29
Profil : Membre
Posté le 12-12-2006 à 13:53:52
Tu as la réponse devant tes yeux : tu remplaces 65536 par la dernière ligne que tu consideres comme appartenant à ton tableau , si c'est 27 tu remplaces donc 65536 par 27