[VBA] Trouve la derniere cellule non-vide d'une colonne.

Trouve la derniere cellule non-vide d'une colonne. [VBA] - VB/VBA/VBS - Programmation

Marsh Posté le 16-06-2003 à 09:58:14    

Code :
  1. ' ----------- Debut -------
  2. ligne1
  3. ligne2
  4. ligne5
  5. ligne7
  6. ligne8
  7. ' ------------- Fin ---------


 
Comment puis-je faire pour que le programme trouve la ligne8 comme derniere cellule non-vide de la colonne ?
 
Merci.


---------------
flick r
Reply

Marsh Posté le 16-06-2003 à 09:58:14   

Reply

Marsh Posté le 16-06-2003 à 13:10:15    

topikalakon de classe internationale [:rofl]


---------------
"Dieu a exploité tous nos complexes d'infériorité, en commençant par notre incapacité de croire à notre propre divinité." - Emil Michel Cioran
Reply

Marsh Posté le 16-06-2003 à 16:50:33    

cherche un peu!! :heink:

Reply

Marsh Posté le 04-06-2006 à 13:22:28    

très constructif la réponse de dane et surtout très utile. la réponse à la question serait à mon avis plus interressante. Au fait ça m'intéresserait aussi. Merci

Reply

Marsh Posté le 04-06-2006 à 14:46:22    

Reply

Marsh Posté le 07-06-2006 à 11:46:57    

voici une fonction dispo dans tout bon bouquain VBA
 
Function DERNIERDANSCOLONNE  
    Dim DerniereCellule As Range
 
    Application.Volatile
    With plage.Parent
          With .Cells(.Rows.Count, plage.Column)
                If Not IsEmpty(.Value) Then
                       DERNIERDANSCOLONNE = .Value
                ElseIf IsEmpty(.End(xlUp)) Then
                       DERNIERDANSCOLONNE = ""
                Else
                       DERNIERDANSCOLONNE = .End(xlUp).Value
                End If
          End With
     End With
End Function


---------------
Merci d'avance
Reply

Marsh Posté le 07-06-2006 à 15:04:24    

Voilà un bout de code qui va surement t'aider, si tu as des questions n'hésite pas!
 
Dim objexcel As Excel.Application
Dim wbExcel As Excel.Workbook
Dim wsExcel As Excel.Worksheet
 
'sachant qu'il y a 65536 cellules ds la colonne A, la ligne ci-dessous nous trouve la première cellule vide la colonne A:
objexcel.ActiveCell.Range("A65536" ).End(xlUp).Offset(1, 0)
'pour connaitre le numéro de la ligne ou se trouve la dernière cellule pleine:
objexcel.ActiveCell.Range("A1" ).End(xlDown).Row
 
   wbExcel.Close SaveChanges:=True 'Fermeture du classeur Excel
   objexcel.Quit
 
    Set wsExcel = Nothing
    Set wbExcel = Nothing
    Set objexcel = Nothing

Reply

Marsh Posté le 10-06-2006 à 18:26:12    

Il me semble que sous VBA Excel, il y a un fonction du genre:
"UseCol" (et UseRow pour les lignes) te donnant le numéro de la derniere cellule utilisé.
Pour le reste...MSDN reste ton ami ;)

Reply

Marsh Posté le 28-12-2006 à 12:32:11    


Merci pour vos réponses. :D
:jap:
 
 
 
 


Message édité par ptibat le 28-12-2006 à 12:32:25

---------------
flick r
Reply

Marsh Posté le 28-12-2006 à 14:56:33    

déterrage de topikalacon  :o

Reply

Marsh Posté le 28-12-2006 à 14:56:33   

Reply

Marsh Posté le 29-12-2006 à 17:53:37    

jpcheck a écrit :

déterrage de topikalacon  :o


 
L'important n'est pas de le déterrer, mais d'y apporter une réponse.  [:aloy]  
 


---------------
flick r
Reply

Sujets relatifs:

Leave a Replay

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