XL 2010 Tri automatisé en VBA

[jojodu42]

Bonjour,
Je souhaiterais trier de manière automatique une plage de cellules Excel lorsque 5 d'elles sont modifiées.
La plage s'étend de A27( avec en-tête) à H1267.
Lorsque le tri est terminé, j'aimerais que la cellule sélectionnée soit celle qui suit la dernière ligne saisie soit A32 si la dernière ligne saisie est A31/

Si quelqu'un peut m'aider, je ne dis pas non. Merci

 

[_Thierry]

......trier de manière automatique ......... lorsque 5 d'elles [Cellules] sont modifiées...........

Bonjour @jojodu42 , le Forum
Je pense que cette automation bizarre, est la cause que tu n'aies pas encore de réponse...
Perso je ne comprends pas, 5 cellules modifiées ? où dans la même colonne ? dans le même tableau ? ... en combien de temps ? déjà que ca va être "coton" à détécter... je ne vois même pas l'utilité ?

Pourquoi pas un simple bouton de tri ? qui placerait le curseur en fin de traitement sur la prochaine cellule vide ?

Bien à toi, à vous
@+Thierry

 

[jojodu42]

Bonjour, je vous remrcie de m'avoir répondu.
Les 5 cellules modifiées, je me suis mal exprimé. Mon tableau, pour avoir une ligne valide en plus doit avoir au moins 5 colonnes de remplies.
Je veux trier si ces 5 colonnes sont remplies.
Pour l'instant j'ai un bouton de tri mais il n'est pas pratique.

 

[_Thierry]

Bonjour @jojodu42 , le Forum

Voici mon interprétation c'était plus simple avec tes dernières explications

Bien @ Toi, @ Vous
@+Thierry

 

[jojodu42]

Bonjour,
Voici un extrait du tableau que je voudrais trier.

Je veux trier les 50 dernières lignes de ma feuille.
1- Colonne H de Z à A
2- Colonne A de plus ancien au plus récent
3- Colonne B de A à Z

De manière automatique dès lors que la ligne contient au moins 5 valeurs (ABCD E ou F)

Je vous remercie pour votre aide.
Serait-il possible dans le code VBA de me dire en gros à quelle partie de la commande ça correspond svp ? Merci

A	B	C	D	E	F	G	H
16/05/2020	D1	Essai 1	15		15,00	-15

15/05/2020

C8

Essai 2

15

15

+15

 

[_Thierry]

Bonjour @jojodu42 , le Forum

Pour moi c'est un non-sense de faire ce genre de tri, tu vas détruire ton tableau (à moins que ce ne soit délibérément le but ?) plus rien se sera réellement face à face dans la ligne que tu viens de saisir :

1- Colonne H de Z à A
2- Colonne A de plus ancien au plus récent
3- Colonne B de A à Z

Ci-joint un autre exemple.

Bonne journée
@+Thierry

 

[jojodu42]

Bonjour @_Thierry
Le fichier correspond à mes attentes. Une dernière question, mes données à trier commencent à la ligne 28 (ou 27 si on prend l'en-tête). Pouvez-vous me dire ou le régler?
Merci.

 

[_Thierry]

Bonsoir Jojodu42

Pour régler, ca se passe ici :
Set Plage = Range("A2:H" & Range("A5000").End(xlUp).Row)

Tu peux changer :
Set Plage = Range("A28:H" & Range("A5000").End(xlUp).Row)

Bonne soirée
@+Thierry

 

[jojodu42]

Bonjour Thierry,
Lon fichier fonctione très bien, j'ai modifié la valeur comme convenu mais je me suis aperçu d'un bug. Ma colonne H ne se trie pas. Elle désynchronise le tableau.
On s'est peut-être ma; compris. Je veux trier les ligne 28 à 1267 d'un ficher par 3 critères
1- Colonne H de Z à A
2- Colonne A de plus ancien au plus récent
3- Colonne B de A à Z

Mais que les données d'une même ligne restent sur la même ligne.

L'automatisation du tri fonctionne parfaitement.

Jordan

 

[_Thierry]

Bonjour @jojodu42

Ce n'est pas un Bug, j'avais prévenu que je ne suivais pas vraiment ce que tu voulais faire :

Pour moi c'est un non-sense de faire ce genre de tri, tu vas détruire ton tableau (à moins que ce ne soit délibérément le but ?) plus rien se sera réellement face à face dans la ligne que tu viens de saisir

Bon maintenant je crois avoir compris cette fois !

Bonne journée
@+Thierry

 

[jojodu42]

Merci beaucoup