Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1751 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

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

 



 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

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

n°428768
ptibat
Posté le 16-06-2003 à 09:58:14  profilanswer
 

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
mood
Publicité
Posté le 16-06-2003 à 09:58:14  profilanswer
 

n°429099
Tetragramm​aton IHVH
dieu unique => pensée unique
Posté le 16-06-2003 à 13:10:15  profilanswer
 

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
n°429593
dane
Posté le 16-06-2003 à 16:50:33  profilanswer
 

cherche un peu!! :heink:

n°1380756
dragon25
Je demande à apprendre
Posté le 04-06-2006 à 13:22:28  profilanswer
 

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

n°1380774
juju2k
Posté le 04-06-2006 à 14:46:22  profilanswer
 
n°1382741
Ms Argon
Blop!!!!!!!!!!!!!!!
Posté le 07-06-2006 à 11:46:57  profilanswer
 

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
n°1382913
acorsa
Posté le 07-06-2006 à 15:04:24  profilanswer
 

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

n°1385189
thefrereto​ck
Posté le 10-06-2006 à 18:26:12  profilanswer
 

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 ;)

n°1496555
ptibat
Posté le 28-12-2006 à 12:32:11  profilanswer
 


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


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

---------------
flick r
n°1496620
jpcheck
Pioupiou
Posté le 28-12-2006 à 14:56:33  profilanswer
 

déterrage de topikalacon  :o

mood
Publicité
Posté le 28-12-2006 à 14:56:33  profilanswer
 

n°1497183
ptibat
Posté le 29-12-2006 à 17:53:37  profilanswer
 

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

Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

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

 

Sujets relatifs
[VBA excel] rouddown et nombres décimaux[VBA + Access] Récupérer tous les champs de mes tables Access...
[PHP] Je ne trouve pas l'erreur ... [Résolu][VBA] Lire à partir d'un fichier texte
[VBA] - Incompatibilité Excel 2000 --> Excel Xp.[VBA Excel] Que renvoit open qd l'ouverture du fichier échoue?
dans quel fichier se trouve le copyright phpBB ?Un SGBD sans architecture client/serveur ? [trouvé]
[mysql] copie de colonne dans une autre[HTML] Cellule de tableau qui utilise la largeur restante
Plus de sujets relatifs à : [VBA] Trouve la derniere cellule non-vide d'une colonne.


Copyright © 1997-2018 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR