XL 2016 Relance de la discussion Trier 2 feuilles ou classeur

Bearn 64

XLDnaute Occasionnel
Bonjour Dranreb,

Depuis 1 mois ce message est apparu.

Fichier : GrpOrgBearn64.xlsm

1566120969282.png



Dans Module MClassement

Rem. ——— PROCÉDURES À USAGE INTERNE

Private Sub InterpréterParam(ByVal ColOrd As Variant)


Peu être une mise a jour d'excel 2016 !!!!

Merci de votre regard.
 

Pièces jointes

  • GrpOrgBearn64.xlsm
    82.1 KB · Affichages: 14

Bearn 64

XLDnaute Occasionnel
Re ;

La je suis vraiment un peu confus mais je n'est pas votre niveau de recherche.

MeFCR1C1(Rng, "=AND(RC45=""Modifié"",R[-1]C=RC)", True).Interior.Color = &HC9F100

divergences sur le module1.
ci dessus ligne en trop par rapport a votre dernière version.


Merci, merci.
 

Dranreb

XLDnaute Barbatruc
Oui parce que s'il à joué une MeFC qui teste =AND(RC45="Modifié",R[-1]C<>RC)
Il est inutile qu'une autre teste derrière =AND(RC45="Modifié",R[-1]C=RC)
Il suffit quelle teste =RC45="Modifié" puisque si R[-1]C<>RC est faux, alors R[-1]C=RC est forcément vrai.
Mais je ne pense pas que c'était ça qui plantait, si ?
 

Bearn 64

XLDnaute Occasionnel
bonjour,

La seule différence entre les macros était cette ligne en plus.
Les divergences étaient toutes trouvées et dons dans l'onglet resultat.

Set MeFCR1C1 = Rng.FormatConditions.Add(Type:=xlExpression, Formula1:=.RefersToLocal)
erreur porté sur

MeFCR1C1 =Nothing

Merci et je suis un utilisateur primaire des macros je vais voir pour déboguer

"Sur quelle instruction, et quelle instruction appelante si vous affichez la pile ?
Que disent les espions sur les expressions impliquées ? Apprenez donc un peu à déboguer"

Merci de votre patience et disponibilité
 

Bearn 64

XLDnaute Occasionnel
Bonjour Dranreb,

Apres ne nombreuses heures de recherche à taton l'erreur viens du fait que sur mes feuilles j'utilisé Style de référence L1C1.
Le fait est que de basculer de l'un vers l'autre cela fonctionne !!!!!!

Questions complémentaires :
- ou trouver la correspondance entre couleur et code hexa.
- pour apprendre a déboguer.


Merci encore de votre intervention.
 

Dranreb

XLDnaute Barbatruc
Bonjour.
Corrigée comme ça, la MeFCR1C1 tient compte du style de référence courant.
VB:
Private Function MeFCR1C1(ByVal Rng As Range, ByVal Formule As String, ByVal StopIfTrue As Boolean) As FormatCondition
   With ActiveSheet.Names.Add(Name:="NomTemporairePourMeFC", RefersToR1C1:=Formule)
      Application.GoTo Rng(1, 1)
      Dim F As String: If Application.ReferenceStyle = xlR1C1 Then F = .RefersToR1C1Local Else F = .RefersToLocal
      Set MeFCR1C1 = Rng.FormatConditions.Add(Type:=xlExpression, Formula1:=F)
      .Delete: End With
   MeFCR1C1.StopIfTrue = StopIfTrue
   End Function
 

Bearn 64

XLDnaute Occasionnel
Bonjour Dranreb,

Modification faite OK.

j'ai ajouté des colonnes OK.

J'ai ajouté une feuille pour mettre un bouton de comparaison.
(Et là si je lance la macro Comparaison1 en cliquant sur un des 2 boutons je n'est pas la bonne couleur pour ligne supprimée).

Si je lance la macro en passant par developpeur, Visual Basic, Module1, Comparaison1 les couleurs sont bonnes.

???????
 

Pièces jointes

  • GigogneBearn64bis.xlsm
    251 KB · Affichages: 4

Dranreb

XLDnaute Barbatruc
Trouvé.
Le Application.GoTo Rng(1, 1) n'étais pas à la bonne place, en premier, alors il mettait la 1ère condition pour la colonne 59 de la feuille active de départ.
Dans ma version du classeur j'ai mis une procédure paramétrable et s'ajustant automatiquement au nombre de colonnes.
Elles ne vous plaisaient pas mes couleurs ???
 

Pièces jointes

  • GigogneBearn64.xlsm
    75.3 KB · Affichages: 6

Dranreb

XLDnaute Barbatruc
Alors en fonçant un peu les couleurs des lignes qui ne sont plus d'actualité ?
Essayez peut être celles ci :
1568039833999.png

Il suffit dans le CouleurCls.xlsm de cliquer dans la colonne "Hexa Long" pour copier le code dans le presse papier.
Remarque on peut peut être aussi diminuer de 125 les E des …(pareil) (et effacer les F pour qu'il en recalcule les maxi possibles).
 

Dranreb

XLDnaute Barbatruc
Mettre la même instruction que dans ma Worksheet_Activate. Si la procédure est ailleurs que dans le module Feuil3 remplacer Me par Feuil3.
Mais quel est l'intérêt du bouton ? On risque d'oublier de l'utiliser, alors que si la feuille résultat est toujours le reflet de la comparaison c'est mieux à mon avis.
 

Bearn 64

XLDnaute Occasionnel
Bonjour Dranreb,

Le fichier comparaison est un fichiers parmi plusieurs autres traitements.

De plus le remplissage des feuilles ancien et nouveau se font par une macro.

Le but est que l’opérateur n'est pas a réfléchir sur les traitements.


Merci
 

Statistiques des forums

Discussions
311 733
Messages
2 082 008
Membres
101 864
dernier inscrit
elrecruiter