Résultats de la recherche

  1. E

    VBA condition copie colle

    Re : VBA condition copie colle Bonjour J'ai essayé le code proposé mais cela ne fonctionne pas rien ne s'affiche. JE ne comprends pas pourquoi
  2. E

    VBA condition copie colle

    Re : VBA condition copie colle Merci de vos retours, j'ai essayé mais cela ne fonctionne pas. Un fichier test.
  3. E

    VBA condition copie colle

    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...
  4. E

    Tri par ordre alphabétique au sein d'une même cellule

    Re : Tri par ordre alphabétique au sein d'une même cellule Je vais essayer de faire la même chose pour les autres colonnes merci
  5. E

    Tri par ordre alphabétique au sein d'une même cellule

    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.
  6. E

    Tri par ordre alphabétique au sein d'une même cellule

    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.
  7. E

    Tri par ordre alphabétique au sein d'une même cellule

    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?
  8. E

    Tri par ordre alphabétique au sein d'une même cellule

    Re : Tri par ordre alphabétique au sein d'une même cellule Toujours le même problème.
  9. E

    Tri par ordre alphabétique au sein d'une même cellule

    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
  10. E

    Tri par ordre alphabétique au sein d'une même cellule

    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 ?
  11. E

    Tri par ordre alphabétique au sein d'une même cellule

    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?
  12. E

    Tri par ordre alphabétique au sein d'une même cellule

    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
  13. E

    Tri par ordre alphabétique au sein d'une même cellule

    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...
  14. E

    Tri par ordre alphabétique au sein d'une même cellule

    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:
  15. E

    Tri par ordre alphabétique au sein d'une même cellule

    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é.
  16. E

    Tri par ordre alphabétique au sein d'une même cellule

    Re : Tri par ordre alphabétique au sein d'une même cellule Et bien quand lance la procédure SUb test, le module 3 de la procédure Ajouter s'ouvre en m'indquant "erreur de compilation SUb ou Funtion non définie" Voir ci joint
  17. E

    Tri par ordre alphabétique au sein d'une même cellule

    Re : Tri par ordre alphabétique au sein d'une même cellule J'ai rajouter ce module mais visiblement il a en manque un autre? Que veux dire le ByVal on passe l'argument sous forme de valeur? Je suis un peu perdu ;)
  18. E

    Tri par ordre alphabétique au sein d'une même cellule

    Re : Tri par ordre alphabétique au sein d'une même cellule J'ai modifié oui mais j'ai toujours ce problème de fonction ajouter non définie Sub Test() Application.ScreenUpdating = False Dim WsS As Worksheet, WsC As Worksheet, TDévia(), Ld&, TWorkon(), Lw&, TRésu() Set WsS =...
  19. E

    Tri par ordre alphabétique au sein d'une même cellule

    Re : Tri par ordre alphabétique au sein d'une même cellule Visiblement j'ai un problème avec Ajouter ici If InStr(TDévia(Ld, 1), TWorkon(Lw, 1)) > 0 Then Ajouter TWorkon(Lw, 2) J'ai une pop up erreur de compilation SUb ou Function non définie.
  20. E

    Tri par ordre alphabétique au sein d'une même cellule

    Re : Tri par ordre alphabétique au sein d'une même cellule Exact pour plusieurs mots clés en colonne S je renvoie la même valeur en colonne T. Donc si ma phrase en colonne AG contient plusieurs mots clés qui ont la même valeur en colone T, je ne veux afficher qu'une seule fois cette valeur...