Automatisation sous Excel

Automatisation sous Excel - VB/VBA/VBS - Programmation

Marsh Posté le 25-10-2018 à 15:37:36    

Bonjour,
j'ai automatiser une copie de data d'une page vers une autre
 
' Copier des DATA
    Sheets("Feuil1" ).Select
    ActiveWindow.SmallScroll Down:=-42
    Range("A4:G40" ).Select
    Selection.Copy
 
mais mon fichier grandit et j'ai la fin de ma sélection qui est passé à G58
comment faire pour que ma sélection grandisse avec l'augmentation de ligne
 
j'ai essayé de faire ceci....
 
' Dim Lig As Long
' Lig = 1 'première ligne à vérifier
' Do While Not IsEmpty(Range("C" & Lig))
'    Lig = Lig + 1
' Loop
' Range("A4:G" & Lig).Select
 
mais cela ne fonctionne pas
 
Auriez vous une solution pour m'aider.
 
Alex

Reply

Marsh Posté le 25-10-2018 à 15:37:36   

Reply

Marsh Posté le 25-10-2018 à 19:19:19    

Bonjour,
 
De souvenir, sans tester : https://msdn.microsoft.com/fr-fr/vb [...] erty-excel


---------------
C'est en écrivant n'importe quoi qu'on devient n'importe qui.
Reply

Marsh Posté le 27-10-2018 à 16:18:04    

Reply

Marsh Posté le 29-10-2018 à 10:00:46    

Merci a vous
j'ai trouvé et cela fonctionne

Reply

Sujets relatifs:

Leave a Replay

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