thomasf007
Messages postés36Date d'inscriptionvendredi 23 mai 2008StatutMembreDernière intervention31 mars 2013
-
5 juin 2010 à 21:54
thomasf007
Messages postés36Date d'inscriptionvendredi 23 mai 2008StatutMembreDernière intervention31 mars 2013
-
7 juin 2010 à 08:47
Bonsoir à tous,
Mon soucis est assez délicat à expliquer, mais je me lance...
POur mes déplacements pro, je fais un fichier excel avec toutes sorte de données, avec particulièrement des dates.
Il y a 2 sortes de dates : les connues et inconnues. Les inconnues, sont balancé à la prochaine ligne vide, avec un motif spécial : xlgray8. J'utilise while et tout se passe bien.
If checkbox_dateinconnue.value = false
i=1
while feuil1.cell(i,1).value <>""
i=i+1
wend
traitement
Ceci fonctionne.
Mon souhait, c'est que le programme face la différence entre les date connue et inconnues j'ai une chexkbox pour faire la différence). En autre, si une date est connue, au lieu de la balancer à la fin, je souhaiterai qu'elle soit insérer avant la première date inconnue... Vous voyez ce que je veux dire?
LEs cellules serai plus ordonnée de ce style là...
Date connue
Date connue
Date connue
Date inconnue(avec xlgray8)
Date inconnue(avec xlgray8)
cs_Jack
Messages postés14006Date d'inscriptionsamedi 29 décembre 2001StatutModérateurDernière intervention28 août 201579 6 juin 2010 à 04:11
Salut
Bah dans ce cas, il te faut chercher la première cellule avec ton motif spécial au lieu de chercher un contenu vide.
If checkbox_dateinconnue.Value = True
i=1
While feuil1.cell(i,1).Motif <> xlgray8 ' (syntaxe exacte à rechercher)
i=i+1
Wend
Insersion ligne
traitement
Vala
Jack, MVP VB NB : Je ne répondrai pas aux messages privés
Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)