Forums Rue-Montgallet.com
Rue-Montgallet.comRue-Hardware.comRue-Occasion.comRue-DVD.comRue-Jeuxvideo.comRue-AudioVideo.comRue-Telephone.comForums
S'inscrire | S'identifier |
| Recherche avancée | Aide
 
 

Il y a 79 utilisateurs connus et inconnus. Pour voir la liste des connectés connus, cliquez ici

 Mot :   Pseudo :  
 
Bas de page
Auteur
 Sujet :

recopie de cellules dans un tableau

 
n°18022
cibox
Profil : Jeune recrue
Posté le 12-12-2006 à 09:04:26  profilanswer
 

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

n°18023
kiki29
Profil : Membre
Posté le 12-12-2006 à 10:40:43  profilanswer
 

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
n°18025
cibox
Profil : Jeune recrue
Posté le 12-12-2006 à 12:48:06  profilanswer
 

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

n°18026
kiki29
Profil : Membre
Posté le 12-12-2006 à 13:53:52  profilanswer
 

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


Message édité par kiki29 le 12-12-2006 à 13:55:01
n°18027
cibox
Profil : Jeune recrue
Posté le 12-12-2006 à 15:41:33  profilanswer
 

ouai merci je l'avais fait


Aller à :
Ajouter une réponse