end.(xldown) sur une seule ligne ...[..pardon]

end.(xldown) sur une seule ligne ...[..pardon] - VB/VBA/VBS - Programmation

Marsh Posté le 30-06-2005 à 15:45:39    

ouala mon pitit probleme :  
 
je dois régulièrement redéfinir une base avec le end.(xldown), base que ma macro copy et colle ailleurs.  
 
Ca marche très bien sauf que si il n'y a qu'une seule entrée dans la base, mon xldown séléctionne toute la feuille (jusqu'à la ligne 65 000 et des poussières).  
 
Je voudrais qu'elle ne sélectionne qu'une seule ligne s'il n'y en a qu'une ... Ca doit etre posible mais alors comment ???
 
merci à "Ceux Qui Savent"


Message édité par cocal le 30-06-2005 à 18:18:53
Reply

Marsh Posté le 30-06-2005 à 15:45:39   

Reply

Marsh Posté le 30-06-2005 à 16:13:31    

Hello!
tu n'as qu'à faire un truc tout con (si j'ai bien compris ta question): je connais pas trop le code (c'est du Visual Basic sur excel?) mais voilà la philosophie.
 
Tu regardes la deuxième entrée de ta base, si elle est vide, tu utilisa la méthode range sinon tu utilise ton xldown.

Reply

Marsh Posté le 30-06-2005 à 18:21:24    

... et parfois la honte vous gagne ...  
et je peux même plus dire que je suis un grand dévbutant sur VBA ...  
bon je poste mon code; on sait jamais si un autre bloque la dessus un soir de grande fatigue :  
 
If Range("A3" ) <> "" Then
    Range("A2:AB2", Range("A2:AB2" ).End(xlDown)).Select
    Selection.Copy
    Else
    Rows("2:2" ).Select
    Selection.Copy
    End If
 

Reply

Marsh Posté le 30-06-2005 à 18:46:57    

la honte mais merci quand meme, passque l'air de rien j'y avais pas pensé....

Reply

Marsh Posté le 30-06-2005 à 21:05:07    

Pour connaître la dernière ligne utilisée:
 
ActiveSheet.UsedRange.Row


---------------
Si on vous donne une info qui marche, DITES-LE!!!! ------ Si vous trouvez seul, AUSSI, votre solution peut servir à d'autres! ------ Je dois la majorité de mes connaissances à mes erreurs!
Reply

Marsh Posté le 01-07-2005 à 08:47:09    

Hello,
de rien bonhomme,
ça fait plaisir de pouvoir aider.
C la chaleur qui grille les neurones...
@+

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed