Bonjour,
J'ai un petit souci dans un fichier que je suis entrain d’écrire. Je fais a partir d'excel un petit fichier texte avec des heures
que je mets dans une application de pointage mais j'ai des blancs dans mes lignes que l'application ne lis pas et mets une erreur.
Je voudrais décaler le dernier pointage (pointage de fin de travail) vers la gauche jusqu’à la première ligne non vide qu'il lis et comme cela
je n'aurais plus de ligne vide entre les pointages mais je bloque sur la fonction à utiliser.
Je sectionne ma plage avec
Range("D1").Select (première cellule avec un pointage)
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select (je sélectionne toutes les plages avec des pointages + les blanc)
Mais ensuite est ce que je dois utilisé Décaler (Offset) mais comment trouver la cellule non vide et déplacer le dernier pointage vers la gauche?
Si vous avez une idée, en dessous mon fichier avec les cellules vide
Merci d'avance pour votre aide.
J'ai un petit souci dans un fichier que je suis entrain d’écrire. Je fais a partir d'excel un petit fichier texte avec des heures
que je mets dans une application de pointage mais j'ai des blancs dans mes lignes que l'application ne lis pas et mets une erreur.
Je voudrais décaler le dernier pointage (pointage de fin de travail) vers la gauche jusqu’à la première ligne non vide qu'il lis et comme cela
je n'aurais plus de ligne vide entre les pointages mais je bloque sur la fonction à utiliser.
Je sectionne ma plage avec
Range("D1").Select (première cellule avec un pointage)
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select (je sélectionne toutes les plages avec des pointages + les blanc)
Mais ensuite est ce que je dois utilisé Décaler (Offset) mais comment trouver la cellule non vide et déplacer le dernier pointage vers la gauche?
Si vous avez une idée, en dessous mon fichier avec les cellules vide
Merci d'avance pour votre aide.