Bonsoir à tous
Je traite une appli. de relevé d'heures , tout va bien … sauf que j'ai plusieurs cas d'horaires Codés ( RP4:00, MAT7:00 … etc) au début 2 ou 3 en VBA ca va ,, j'ai su faire
Maintenant j'en ai + de 15 donc le code va bougrement s' alourdir et j'ai peur de m' y perdre
Je demande juste s'il n'y a pas une autre manière de s'y prendre ?? pour tester ces codes de 2 a 4 caracteres , ( matrice , appel à sub … ?)
Mon code est déjà dans un "bouton clic"
Une idée , un bout de code , c'est juste pour la manière, le reste je me debrouille
Pour une bonne comprehension : lorsque je tombe sur un de ces codes comme MAT7:00 par exemple , je dois recopier simplement 7:00 pour faire un TOTAL JOUR correct
L'exemple joint montre cela ( c'est juste un petit bout pour vous aider ) , sinon je traite un relevé annuel de 365jours x par 2 ( matin et am)
Merci de votre aide , je cherche simplement l'idée de comment faire autrement que :
If Left(Cells(dat + j, orig + 1).Value, 2) = "RP" Or Left(Cells(dat + j, orig + ).Value, 3) = "RHS" Or Left(Cells(dat + j, orig + 1).Value, 3) = "MAT" Or Left(Cells(dat + j, orig + 1).Value, 4) = "CREA" ......... Then ……..
car la liste va être TRES longue ... et gérer les variables et constantes sans se tromper !!!!!
Sinon je ferais avec ....
Bonne soirée
Hervé
Je traite une appli. de relevé d'heures , tout va bien … sauf que j'ai plusieurs cas d'horaires Codés ( RP4:00, MAT7:00 … etc) au début 2 ou 3 en VBA ca va ,, j'ai su faire
Maintenant j'en ai + de 15 donc le code va bougrement s' alourdir et j'ai peur de m' y perdre
Je demande juste s'il n'y a pas une autre manière de s'y prendre ?? pour tester ces codes de 2 a 4 caracteres , ( matrice , appel à sub … ?)
Mon code est déjà dans un "bouton clic"
Une idée , un bout de code , c'est juste pour la manière, le reste je me debrouille
Pour une bonne comprehension : lorsque je tombe sur un de ces codes comme MAT7:00 par exemple , je dois recopier simplement 7:00 pour faire un TOTAL JOUR correct
L'exemple joint montre cela ( c'est juste un petit bout pour vous aider ) , sinon je traite un relevé annuel de 365jours x par 2 ( matin et am)
Merci de votre aide , je cherche simplement l'idée de comment faire autrement que :
If Left(Cells(dat + j, orig + 1).Value, 2) = "RP" Or Left(Cells(dat + j, orig + ).Value, 3) = "RHS" Or Left(Cells(dat + j, orig + 1).Value, 3) = "MAT" Or Left(Cells(dat + j, orig + 1).Value, 4) = "CREA" ......... Then ……..
car la liste va être TRES longue ... et gérer les variables et constantes sans se tromper !!!!!
Sinon je ferais avec ....
Bonne soirée
Hervé