VBA recherche derniere ligne vide
Résolu/Fermé
Bilux
-
2 juil. 2008 à 12:28
Darkito Messages postés 1191 Date d'inscription vendredi 7 décembre 2007 Statut Membre Dernière intervention 26 mai 2010 - 2 juil. 2008 à 17:23
Darkito Messages postés 1191 Date d'inscription vendredi 7 décembre 2007 Statut Membre Dernière intervention 26 mai 2010 - 2 juil. 2008 à 17:23
A voir également:
- VBA recherche derniere ligne vide
- Aller à la ligne excel - Guide
- Formate pour taxer client frigo vide - Forum Loisirs / Divertissements
- Recherche automatique des chaînes ne fonctionne pas - Guide
- Supprimer page word vide - Guide
- Site de vente en ligne particulier - Guide
3 réponses
j'ai finalement utiliser ce bout de code en me disant que si les 10 premieres cellules était vide alors la ligne serait surrement entierement vide
Function ligne_vide() As Integer
ligne_vide = 1
While ActiveSheet.Cells(ligne_vide, 1) <> "" _
Or ActiveSheet.Cells(ligne_vide, 2) <> "" _
Or ActiveSheet.Cells(ligne_vide, 3) <> "" _
Or ActiveSheet.Cells(ligne_vide, 4) <> "" _
Or ActiveSheet.Cells(ligne_vide, 5) <> "" _
Or ActiveSheet.Cells(ligne_vide, 6) <> "" _
Or ActiveSheet.Cells(ligne_vide, 7) <> "" _
Or ActiveSheet.Cells(ligne_vide, 8) <> "" _
Or ActiveSheet.Cells(ligne_vide, 9) <> ""
ligne_vide = ligne_vide + 1
Wend
MsgBox "ligne vide" & ligne_vide
End Function
Merci
Function ligne_vide() As Integer
ligne_vide = 1
While ActiveSheet.Cells(ligne_vide, 1) <> "" _
Or ActiveSheet.Cells(ligne_vide, 2) <> "" _
Or ActiveSheet.Cells(ligne_vide, 3) <> "" _
Or ActiveSheet.Cells(ligne_vide, 4) <> "" _
Or ActiveSheet.Cells(ligne_vide, 5) <> "" _
Or ActiveSheet.Cells(ligne_vide, 6) <> "" _
Or ActiveSheet.Cells(ligne_vide, 7) <> "" _
Or ActiveSheet.Cells(ligne_vide, 8) <> "" _
Or ActiveSheet.Cells(ligne_vide, 9) <> ""
ligne_vide = ligne_vide + 1
Wend
MsgBox "ligne vide" & ligne_vide
End Function
Merci
Darkito
Messages postés
1191
Date d'inscription
vendredi 7 décembre 2007
Statut
Membre
Dernière intervention
26 mai 2010
545
2 juil. 2008 à 17:23
2 juil. 2008 à 17:23
C'est effectivement à ça que je voulais arriver (mais ma syntaxe était vraiment à l'arrache...)
Bonne continuation
Bonne continuation
Darkito
Messages postés
1191
Date d'inscription
vendredi 7 décembre 2007
Statut
Membre
Dernière intervention
26 mai 2010
545
2 juil. 2008 à 12:41
2 juil. 2008 à 12:41
Bonjour,
tu fais la même chose que pour trouver la dernière cellule vide sauf que dans la condition, tu rajoutes les autres colonnes.
tu fais la même chose que pour trouver la dernière cellule vide sauf que dans la condition, tu rajoutes les autres colonnes.
Darkito
Messages postés
1191
Date d'inscription
vendredi 7 décembre 2007
Statut
Membre
Dernière intervention
26 mai 2010
545
>
Bilux
2 juil. 2008 à 14:21
2 juil. 2008 à 14:21
je ne me rapelle plus très bien de la syntaxe VBA mais ca donne un truc du genre :
a la sortie compteur correspond à la première ligne vide.
(je ne suis pas sur de la syntaxe pour cells, de même pour les ET logique etc...)
var compteur = 0
while (isempty(activesheet.cells(0,compteur)) && isempty(activesheet.cells(1,compteur)) && ... && isempty(activesheet.cells(14,compteur))) {
compteur++
}
a la sortie compteur correspond à la première ligne vide.
(je ne suis pas sur de la syntaxe pour cells, de même pour les ET logique etc...)
