Vérifier dans une colonne si les valeurs sont triées

Question

Bonjour,

j'ai un une feuille excel sur laquelle j'inscris des valeurs en ligne. Via VBA, chaque valeurs qui composent ces lignes sont recopiées dans plusieurs feuilles. Pour faire simple, je fais le tour d'un bâtiment en relevant différent niveau selon l'ordre de mon tour, puis je recopie mes données telles quelles. Ensuite la macro recopie ces données dans les feuilles correspondant aux types de produits relevés. ça classe les infos donc.  

A présent, j'ai besoin de palier aux erreurs de frappe : je veux vérifier sur les feuilles de compteur que les valeurs sont naturellement en ordre croissant. en effet, un compteur ne va jamais en arrière, si c'est le cas, alors il y a erreur de saisie. Il n'y a donc pas de tri à faire, "simplement" (hum) une vérification

Un msgbox doit envoyer ensuite quelle cellule ou ligne contient une valeur inférieur à la précédente.

Avez vous une idée ? les lignes 5 et inférieurs sont du texte, il considère cela comme inférieur et renvoie un message. de plus, il compare la première ligne vide aussi, ce qui n'est pas bon non plus...

Help ?

     Sub test()    ' MsgBox d'erreur compteurFor i = 6 To Range("a65536").End(xlUp).RowIf Sheets("Compteur eau gaz").Cells(i, 2) < Sheets("Compteur eau gaz").Cells(i - 1, 2).Value ThenMsgBox ("ligne " & i & " erreur compteur inférieur")End IfNextEnd Sub

ucfoutu · Answer

Bonjour
La "vérification" que tu veux faire-là serait plus gourmande en temps d'exécution que le tri lui-même !
Autant donc trier systématiquement : cela ira plus vite.

stitchbouck · Answer

Bon, j'ai trouvé une solution... elle est moche et barbare, mais elle fonctionne !!

Sub erreur_relevé()    ' MsgBox d'erreur compteur eau gazFor i = 7 To Range("A65536").End(xlUp).RowIf Sheets("Compteur eau gaz").Cells(i, 2) <> "" And Sheets("Compteur eau gaz").Cells(i, 2) < Sheets("Compteur eau gaz").Cells(i - 1, 2).Value ThenMsgBox ("ligne " & i & Chr(10) & "Erreur : relevé 'Compteur EAU GAZ' inférieur au précédent." & Chr(10) & "A vérifier et modifier aussi sur feuille 'Ordre de relevé'.")End IfEnd subNext

Ma première ligne est la 6 et il ne va plus chercher la 5 :) il ne m'embête plus avec la 1ère vide qu'il trouve non plus.

Et comme je ne m'y connais pas bien ben... ce code est répété autant de fois qu'il y a de colonne sur mes 2  feuilles soit un total de 23 colonnes, donc 23 fois le même texte de msgbox... 
J'ai bien essayé un timide GoTo message pour ne faire qu'un seul message mais il ne renvoie qu'une fois le texte, pour la 1ère ligne d'erreur, peu importe le nombre d'erreur. 

Si kkun sait comment simplifier et/ou nettoyer ce code, je suis preneur :)

en attendant, ça fonctionne, c'est le principal.
Merci !

cs_MPi · Answer

Bonjour,

Plutôt que de mettre systématiquement un MsgBox à chaque erreur, emmagasine-les numéros de lignes dans une chaîne de caractères.

À la fin, si ta chaîne est vide, tu passes droit sinon tu affiches la chaîne dans un MsgBox.

Vérifier dans une colonne si les valeurs sont triées

3 réponses

Votre réponse

Discussions similaires