Discussion :

[m_leila]

Bonjour à tous,

Je vous explique ce qui me tracasse depuis un moment :

Je dispose d''un outil informatique sous excel où je fais des extractions automatique de BO , et qui ne concerne qu'un de mes clients ( Client A) , or depuis un moment, mes responsables me demande de rajouter a ce client un dexiéme ( Client B ).

Or , pour obtenir les données du deuxième client ( Client B) , je dois faire une extraction de données du SAP sous excel.

Le but étant biensur et de copier les données du ( Client B ) en dessous de celle du ( Client A) , pour permettre ensuite à mon outils de faire son travail correctement.

Le seul problème est que je voudrais automatiser cette fonction, c'est a dire , demander a Excel, via une macro, de me trouver la derniere ligne pleine du tableau, et ensuite coller les données du ( Client B) juste en dessous , c'est a dire (derniere cellule pleine + 1).

J'espere que vous avez une réponse pour moi, je suis débutante sur Excel / VBA... je vous en serait reconnaissante !!

Merciii
Cordialement

[keygen08]

Bonsoir,

Ce lien vous emmene sur tout ce qu'il faut savoir :

http://support.microsoft.com/kb/291308/fr

Sinon j'ai cela :
Cellules vides ( voir des exemples )

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sélectionner une plage de la première à la dernière cellule non-vide d'une colonne
Range("A1", Range("A1").End(xlDown)).Select
Range(ActiveCell, ActiveCell.End(xlDown)).Select
 
Sélectionner une plage de la dernière cellule non vide jusqu'à la première
Range("A25", Range("A25").End(xlUp)).Select
Range(ActiveCell, ActiveCell.End(xlUp)).Select
 
Sélectionner une plage de la première cellule de la colonne ou de la ligne jusqu'à la dernière cellule non-vide
Range("A1", Range("A1").End(xltoRight)).Select
Range(ActiveCell, ActiveCell.End(xltoLeft)).Select
 
Sélectionner la première cellule vide au bas de la colonne
Range("B3").End(xlDown).Offset(1, 0).Select
 
Sélectionner la première cellule vide à droite
Range("A1").End(xltoRight).Offset(1, 0).Select