date excel

date excel - VB/VBA/VBS - Programmation

Marsh Posté le 12-04-2006 à 14:10:16    

sous vba-6-pro  je coince en lisant excel.
j'analyse 1 feuille excel sur sa col A.Elle contient successivement des cellules vides puis des cellules a contenu alphanum puis enfin des cellules contenant des dates puis rien.Sur excel ces dates apparaissent ainsi : JJ/MM/YY.J'utilise, apres mise en position en A 1 :
 
Do While IsEmpty(ActiveCell.Value)
ActiveCell.Offset(1, 0).Activate
ctrcv = ctrcv + 1
Loop
' normalement je suis sur la 1ere cell non vide #A-ctrcv#
' est-ce un titre de colone ou data directement qui suit ? test de date
Do While Not IsDate(ActiveCell.Value)
ActiveCell.Offset(1, 0).Activate
ctrcv = ctrcv + 1
Loop
' je suis donc sur la 1ere date et ctrcv est son no de ligne
' test continu pour cell non vide c a d des lignes DETAIL
Do While Not IsEmpty(ActiveCell.Value)
ActiveCell.Offset(1, 0).Activate
ctrcv = ctrcv + 1
Loop
 
accident = depassement de capacite sur ctrcv qui vaut 32767 ( la limite d'excel ).
Comment associer les "formats" entre vb exl ,
meme pb avec une col de HEURE qui visuellement sous xl apparait sous HH:MM ?  
que faut-il faire ?  
merci de votre aide
 

Reply

Marsh Posté le 12-04-2006 à 14:10:16   

Reply

Marsh Posté le 12-04-2006 à 14:45:40    

Bonjour Gérard
Bonjour à tous
 
Je viens d'essayer ton code et tout se passe correctement (sur 97) oui je sais ........
Par contre "ctrcv " ne te donne pas la ligne actuelle mais la précédente, normal puisque tu pars à "0"
Que cherche tu exactement ?
 
Cordialement

Reply

Marsh Posté le 12-04-2006 à 15:37:38    

hello eric455 merci d'intervenir.Avec A1, en prealable , je fais
ctrcv=1
Dans cette analyse verticale je prepare les limites d'un tableau qui exploitera horizontalement chaque ligne detail de chaque ligne commencant par une date.D'ou egalement le pb de l'heure .Je suis sous excel 2000.Meilleurs sentiments

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed