Excell adresse première cellule vide dans colonne
Résolu
Rob1Rob1
Messages postés
3
Date d'inscription
dimanche 10 avril 2005
Statut
Membre
Dernière intervention
13 mars 2008
-
25 août 2006 à 22:38
mortalino Messages postés 6786 Date d'inscription vendredi 16 décembre 2005 Statut Membre Dernière intervention 21 décembre 2011 - 26 août 2006 à 06:15
mortalino Messages postés 6786 Date d'inscription vendredi 16 décembre 2005 Statut Membre Dernière intervention 21 décembre 2011 - 26 août 2006 à 06:15
3 réponses
mortalino
Messages postés
6786
Date d'inscription
vendredi 16 décembre 2005
Statut
Membre
Dernière intervention
21 décembre 2011
18
25 août 2006 à 23:16
25 août 2006 à 23:16
Salut,
admettons on recherche dans la première colonne (A) :
Dim PreLiVide As Long
PremLiVide = Columns(1).Find("", [A1], , , xlByRows, xlByNext).Row
'*** Si tu cherches dans la troisième colonne :
PremLiVide = Columns(3).Find("", [C1], , , xlByRows, xlByNext).Row
'*** observe les éléments en orange, ils doivent correspondre obligatoirement !
'*** pour l'utilisation :
Cells(PremLiVide, 1).Value = "Ce que tu veux, s'incrémente à la cellule vide (1ère colonne)
@++
<hr size="2" width="100%" />
--Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
<!--
admettons on recherche dans la première colonne (A) :
Dim PreLiVide As Long
PremLiVide = Columns(1).Find("", [A1], , , xlByRows, xlByNext).Row
'*** Si tu cherches dans la troisième colonne :
PremLiVide = Columns(3).Find("", [C1], , , xlByRows, xlByNext).Row
'*** observe les éléments en orange, ils doivent correspondre obligatoirement !
'*** pour l'utilisation :
Cells(PremLiVide, 1).Value = "Ce que tu veux, s'incrémente à la cellule vide (1ère colonne)
@++
<hr size="2" width="100%" />
--Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
<!--
Molenn
Messages postés
797
Date d'inscription
mardi 7 juin 2005
Statut
Membre
Dernière intervention
23 février 2011
7
26 août 2006 à 03:15
26 août 2006 à 03:15
Et donc, si tu veux récupérer l'adresse de la première cellule vide, il te suffit de faire :
Cells(PremLiVide, 1).address
Si tu fais par ex, MsgBox Cells(PremLiVide, 1).address, tu auras une réponse du style $A$12 ... Ce qui peut être utile quand on veut travailler sur une adresse qui change régulièrement.
Molenn
P.S. : Personnellement, je n'utilise pas la méthode Find, mais Mortalino étant décidément le plus rapide, je lui laisse le plaisir de sa solution
Cells(PremLiVide, 1).address
Si tu fais par ex, MsgBox Cells(PremLiVide, 1).address, tu auras une réponse du style $A$12 ... Ce qui peut être utile quand on veut travailler sur une adresse qui change régulièrement.
Molenn
P.S. : Personnellement, je n'utilise pas la méthode Find, mais Mortalino étant décidément le plus rapide, je lui laisse le plaisir de sa solution
mortalino
Messages postés
6786
Date d'inscription
vendredi 16 décembre 2005
Statut
Membre
Dernière intervention
21 décembre 2011
18
26 août 2006 à 06:15
26 août 2006 à 06:15
Salut Molenn,
bah juste pour infos, j'ai fait 2 snippets cette nuit pour l'occasion :
http://www.codyx.org/snippet_rechercher-ligne-vide-dans-excel_205.aspx
http://www.codyx.org/snippet_rechercher-premiere-ligne-ou-colonne-vide-partir-cellule_206.aspx
Bonne journée à tous !
++
bah juste pour infos, j'ai fait 2 snippets cette nuit pour l'occasion :
http://www.codyx.org/snippet_rechercher-ligne-vide-dans-excel_205.aspx
http://www.codyx.org/snippet_rechercher-premiere-ligne-ou-colonne-vide-partir-cellule_206.aspx
Bonne journée à tous !
++