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é.
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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