Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
Bonjour le forum
Encore un copier coller mais avec des conditions.
Je souhaite copier coller des cellules dans un autre feuille mais avec des conditions :
J'avais bricolé cette formule mais je souhaite l'optimiser :
Sub Copy_paste()
'
Dim WsScr As Worksheet, WsDest As...
Re : Tri par ordre alphabétique au sein d'une même cellule
Impécable je passe de 35 min de macro à même pas 30s !
Merci vraiment j'ai appris beaucoup de choses.
Re : Tri par ordre alphabétique au sein d'une même cellule
Puis je avoir votre fichier ?
Cela ne fonctionne pas, je suis trop nul ce n'est pas possible
Cela fonctionne merci c'est incroyable merci beaucoup
Je teste avec beaucoup de ligne tout de suite.
Re : Tri par ordre alphabétique au sein d'une même cellule
merci :)
Visiblement le problème est ici maintenant
.Init 0, Le: While .Actif: .BInfA = Te(.B) < Te(.A): Wend
Dois je déclarer B et A as String?
Re : Tri par ordre alphabétique au sein d'une même cellule
Je l'ai fait mais cela ne fonctionne pas.
Toujours le même problème ici
ReDim Ts(0 To Le - 1): Ls = -1
Re : Tri par ordre alphabétique au sein d'une même cellule
Toujours pareil plantage.
Je ne sais plus où mettre cette ligne
Dim Te(1 To 500) As String, Le As Long ' Variables globales module
JE l'ai mise en module 2
Mais je ne sais pas où la mettre en module 12 ?
Re : Tri par ordre alphabétique au sein d'une même cellule
C'est bien ce que j'ai fait mais cela ne fonctione pas, il y a quelque chose qui m'échappe.
Est ce blocant que Te soit < 500 car je vais avoir beaucoup de lignes en colonne AG?
Re : Tri par ordre alphabétique au sein d'une même cellule
JE suis désolé je suis totalement au fraises.
Dois je mettre cette ligne dans module 2 donc?
Dim Te(1 To 500) As String, Le As Long ' Variables globales module
Re : Tri par ordre alphabétique au sein d'une même cellule
Merci je viens de le faire, dois je donc déclarer Te et le dans le processus ajouter?
Car cela ne marche pas non plus.
Puis je ajouter en fin de module 2 un
application.calculation = xlautomatic juste avant le end sub afin de...
Re : Tri par ordre alphabétique au sein d'une même cellule
Oui j'avais vu mon erreur, j'avais modifié merci.
Mais cela ne fonctione toujours pas malgré le nouveau code j'ai un souci ici
ReDim Ts(0 To Le - 1): Ls = -1
:confused:
Re : Tri par ordre alphabétique au sein d'une même cellule
Merci alors j'ai rajouté les modules et mis le module ajouter dans le module RésultatCellClassé.
Par contre j'ai maintenant un Erreuc de compilation argument non facultatif dans la macro test.
Ceci pour Résultatcellclassé.
Ce site utilise des cookies pour personnaliser le contenu, adapter votre expérience et vous garder connecté si vous vous enregistrez.
En continuant à utiliser ce site, vous consentez à notre utilisation de cookies.