Les Snippets

Nouveaux snippets
Snippets les plus consultés
Proposer un snippet

 Abonnez vous à ce fil d'information Les rss

Rechercher :

Par langages :

Par Catégorie

Compteurs


Nombre de sujets : 508
Nombre de snippets : 1569
Connexion

Rechercher la Ligne Vide dans Excel

Niveau requis pour utiliser/comprendre cette source : 1 ( Débutant )
Créé le 26/08/2006 01:15:21 et initié par mortalino [Liste]
Vue : 6380
Catégorie(s) : Trucs & Astuces
Langages dispo pour ce code :
- VBA
- VB 2005
Proposer ce code dans un autre langage



Langage : VBA
Date ajout : 26/08/2006
Posté par mortalino [Liste]
Public Function PremiereLigneVide(Colonne As Integer) As Long 
    PremiereLigneVide = Columns(Colonne).Find("", , , , xlByRows, xlNext).Row 
End Function 
 Private Sub ExempleUtilisation() 
    Dim intColonne As Integer 
Sheets(1).Select 
intColonne = 1 
'*** il suffit de changer la valeur de intColonne, qui doit
 '    correspondre à la colonne de recherche
 
 MsgBox PremiereLigneVide(intColonne) 
End Sub
Langage : VB 2005
Date ajout : 10/11/2006
Posté par Drikce06 [Liste]

Public Function PremiereLigneVide(ByVal Colonne As Integer) As Integer
Public
If Not excelapp.ActiveWorkbook.ActiveSheet.cells(1, Colonne).value = "" Then
PremiereLigneVide = excelapp.ActiveWorkbook.Worksheets("Feuil1").Columns(Colonne).Find("").Row 
Return PremiereLigneVide
Else

Return PremiereLigneVide = 1 
End If

End Function
Remarque :
J'ai ajouté une condition car dans le cas ou la premiere ligne est vide une erreur est provoqué.

Snippets en rapport avec : Ligne, Rechercher, Excel, Vide

05/05/2008 - Colorier le 'binome parenthèses' dans une cellule Excel

18/02/2008 - Récupérer la position du curseur (ligne colonne du caret) dans une RichTextBox

04/02/2008 - Imprimer un fichier excel sans l'ouvrir

29/01/2008 - Info Bulle sur un objet VBA dans une feuille Excel

23/06/2007 - Rechercher et afficher une ou plusieurs occurences d'une chaîne dans un Txtbox ou un Richtextbox

13/06/2007 - recoder grep

04/03/2007 - Savoir si les cellules sélectionnées (Excel) sont en gras et italiques

04/03/2007 - Savoir si le nom d'une plage a été définie (Excel)

04/03/2007 - Récupérer les infos (propriétés) d'un classeur Excel

04/03/2007 - Déterminer le type de la cellule Excel donnée en paramètre



Codes sources en rapport avec : Ligne, Rechercher, Excel, Vide

{Visual Basic, VB6, VB.NET, VB 2005} PASSAGE DE MISE EN FORME PYRAMIDALE À LINÉAIRE DANS EXCEL
pour Gwad063 : passes d'une hiérarchie de lignes à un tableau avec des lignes droite (inexplicable...

{Visual Basic, VB6, VB.NET, VB 2005} SUPPRIMER LIGNES VIDES FICHIER TEXTE
Ce script supprime les lignes vides dans un fichier texte, vous pouvez parcourir les répertoires de ...

{Visual Basic, VB6, VB.NET, VB 2005} SUPPRIMER LES LIGNES VIDES DANS UN FICHIER TEXTE
Le module va supprimer les lignes vides du fichier en entrée. Le string passé en paramètre (fichier...

{Visual Basic, VB6, VB.NET, VB 2005} PERFORMANCE MEASURER
Cet utilitaire est à intégrer dans le code de vos projets VB6. Il mesure le temps d'éxécution de pro...

{Visual Basic, VB6, VB.NET, VB 2005} ACCESS TO ( XML,EXCEL )
Avez-vous déjà utilisé des données sous forme des fichiers xml ou excel ? Ce programme va t’aider...

{Visual Basic, VB6, VB.NET, VB 2005} CRÉATION DE FORM ET DE CONTRÔLES
Cherche est un programme qui démontre la création de Form et de Contrôles (ici: WebBrowser , TextBox...

{PHP} RESERVATION EN LIGNE DE GITE
le script vous permet : * d'administrer plusieurs locations * d'indiquer à vos visiteurs l'état ...

{JAVA / J2EE} IMPORTER FICHIER EXCEL DANS UN JTABLE
Cette permet à partir d'un fichier excel (sauf version 2007) de créer un JTable qui pourra être insé...

{Javascript / DHTML} DESSINER DES CERCLES/DISQUES/LIGNES EN JAVASCRIPT
Cette source permet de dessiner des cercles, des disques et des lignes en javascript sans utiliser d...

{Visual Basic, VB6, VB.NET, VB 2005} COMPARATEUR EXCEL EN MASSE, AMÉLIORATIONS
mabrouklepoux avait proposé un comparateur de fichiers Excel. http://www.vbfrance.com/code.aspx?ID=3...