OVH Cloud OVH Cloud

recherche 2em ligne libre

7 réponses
Avatar
lematou
Bonjour à tous
J'utilise xls2000 sous xp pro et je ne trouve pas de solution simple pour
localiser la seconde ligne dispo .
1 02/01/2006 Nok bcksrv01
2 bcksrv01
3 bcksrv01
4 bcksrv01
5 bcksrv01
6 bcksrv01
7 bcksrv01
8
9 03/01/2006 RAS
10
11

voilà shématiquement la tronche de mon fichier, je voudrais me positionner
sur la ligne 11
nb: la col 1 n'existe pas en réalité.

merci pour votre aide
jacks

7 réponses

Avatar
JB
Bonjour,

Sub essai()
[B65000].End(xlUp).Offset(2, 0).Select
End Sub

Cordialement JB
Avatar
LANIMAL
Bonjour lematou
As-tu résolu ton pb de format date du 1.02 à 15:21
Si oui, je suis intéressé de comprendre ce qui se passait,
sinon, merci.
LANIMAL
Avatar
lematou
Merci JB
Ok, cela fonctionne sur une col (ici la B)
ici, c'est la col B qui a la derniere cellule d'occupée.
a ton avis si c'est la col C qui a la derniere cellule d'occupée?
en fait je ne sais pas qu'elle est la col la plus longue.
as tu une idée?
merci beaucoup pour ta collaboration
Jacks


Bonjour,

Sub essai()
[B65000].End(xlUp).Offset(2, 0).Select
End Sub

Cordialement JB




Avatar
lematou
Bonjour lanimal
pour le moment j'utilise une méthode de contournement
en fait je prends le champs complet (date + heure) "Maintenant" et ainsi il
ne me change pas le format

merci tout de meme pour votre aide
jacks


Bonjour lematou
As-tu résolu ton pb de format date du 1.02 à 15:21
Si oui, je suis intéressé de comprendre ce qui se passait,
sinon, merci.
LANIMAL



Avatar
AV
Pour sélectionner la 2° cellule vide après la dernière cellule de la colonne
contenant la ligne de la dernière cellule renseignée de la feuille :

Sub zzz()
x = Cells.Find("*", , 1, , 1, 2).Column
y = Cells.Find("*", , 1, , 1, 2).Row
Cells(y + 2, x).Select
End Sub

AV
Avatar
lematou
Merci AV
voici ce que j'en ai fait pour me positionner en col " A " 2 lignes après
la dernière. et écrire la date du control
Sub zzz()
' Macro pour se positionner 2 lignes après la dernière
Dim MyDate
Cejour = Date
x = Cells.Find("*", , 1, , 1, 2).Column
y = Cells.Find("*", , 1, , 1, 2).Row
Cells(y + 2, x - x + 1).Select
ActiveCell.FormulaR1C1 = Cejour
End Sub

Merci encore et à plus
qui sait, peut être à charge de revanche mais je ne suis pas encore un pro

Merci a tous
JACKS

Pour sélectionner la 2° cellule vide après la dernière cellule de la colonne
contenant la ligne de la dernière cellule renseignée de la feuille :

Sub zzz()
x = Cells.Find("*", , 1, , 1, 2).Column
y = Cells.Find("*", , 1, , 1, 2).Row
Cells(y + 2, x).Select
End Sub

AV





Avatar
LANIMAL
Pour ton information, et là est peut-être le pb :
La fonction Date existe dans Excel et aussi dans VBA,
or, dans VBA, le format par défaut est "mm/dd/aa" (format anglo-saxon)
avec le séparateur désigné dans :
Panneau de configuration / Options régionales et linguistiques.
Par exemple, pour les anglo-saxons :
le 02-03-06 est bien le 3 février 2006.
... quoique... je crois qu'ils évoluent un peu, pour faire comme tout le
monde... mais c'est très dure pour eux !
Enfin, peut-être as-tu eu vent de leur projet pour le 1.04.06 :
Les voitures vont rouler à droite.
... et s'il n'y a pas trop de pb, 3 mois après, les camions aussi ;-))))
Ah ! - ces Anglais !
LANIMAL