XL 2016 Relance de la discussion Trier 2 feuilles ou classeur

Dranreb

XLDnaute Barbatruc

• 19 Août 2019

• #2

Bonsoir.
Il semble en effet qu'il y ait quelque chose qui ne passe plus dorénavant, c'est de retransmettre à une procédure un ParamArray sous forme de Variant quand il est vide. Je vais devoir corriger ça aussi dans mon GigIdx.xlsm destiné à être installé en complément xlam.
En tout cas j'ai modernisé le classeur avec les modules de service de ce dernier, déjà corrigés ici.

 

Pièces jointes

• GigogneBearn64.xlsm

  75 KB · Affichages: 8

Vote positif 0 Vote négatif

Bearn 64

XLDnaute Occasionnel

• 19 Août 2019

• #3

Bonjour @Dranreb,

Merci pour cette réponse très rapide.

J'ai un deuxième fichier a comparer avec 58 colonnes.
j'ai déplacé le résultat dans la colonne 60 OK.
Mais je perd les couleurs des cellules ?

Que dois je modifier.

Merci

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 19 Août 2019

• #4

Bonjour.
Les couleurs du résultat sont données par des mises en forme conditionnelles fixe.

 

Vote positif 0 Vote négatif

Bearn 64

XLDnaute Occasionnel

• 19 Août 2019

• #5

Re ;

Ok ci joint mon deuxième fichier sans données.

Pouvez vous m'expliquer comment appliquer les mises en forme conditionnelles fixe.


A plus

 

Pièces jointes

• GigogneBearn64_ok.xlsm

  79 KB · Affichages: 10

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 19 Août 2019

• #6

Comprends pas votre question.
Menu Accueil, groupe Styles, commande Mise en forme conditionnelle et Gérer les règles….

 

Vote positif 0 Vote négatif

Bearn 64

XLDnaute Occasionnel

• 19 Août 2019

• #7

Re ;

Ok encore merci pour cette intervention rapide et efficace.

 

Vote positif 0 Vote négatif

Bearn 64

XLDnaute Occasionnel

• 24 Août 2019

• #8

Bonjour @Dranreb,

GrpOrgBearn64.xlsm
quand les fichiers sont identiques.

erreur 1004

Module1
avant derniere ligne.
Feuil3.[A2].Resize(Ls, UBound(TS, 2)).Value = TS

comment gérer cette erreur.

Merci

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 24 Août 2019

• #9

Bonjour.
Mettez devant :

VB:

If Ls = 0 Then MsgBox "Aucun changement n'a été trouvé.", vbInformation, "Comparaison1": Exit Sub

Pour information, dans le fichier que j'ai gardé la procédure se termine maintenant comme ça :

VB:

Feuil3.Rows(2).Resize(1000).ClearContents
If Ls = 0 Then MsgBox "Aucun changement n'a été trouvé.", vbInformation, "Comparaison1": Exit Sub
Set Rng = Feuil3.[A2].Resize(Ls, UBound(TS, 2))
Rng.Value = TS
Rng.FormatConditions.Delete
Set Rng = Rng.Resize(, Rng.Columns.Count - 1)
MeFCR1C1(Rng, "=RC45=""Supprimé""", True).Interior.Color = &H7B96FD
MeFCR1C1(Rng, "=RC45=""Ajouté""", True).Interior.Color = &HFF00&
MeFCR1C1(Rng, "=AND(RC45=""Modifié"",R[-1]C=RC)", True).Interior.Color = &HC9F100
MeFCR1C1(Rng, "=AND(RC45=""Modifié"",R[-1]C<>RC)", True).Interior.Color = &HFFA5&
MeFCR1C1(Rng, "=R[1]C<>RC", True).Interior.Color = &HCEAFFF
Rng.Interior.Color = &HBABABA
End Sub

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)
      Set MeFCR1C1 = Rng.FormatConditions.Add(Type:=xlExpression, Formula1:=.RefersToLocal)
      .Delete: End With
   MeFCR1C1.StopIfTrue = StopIfTrue
   End Function

 

Vote positif 0 Vote négatif

Bearn 64

XLDnaute Occasionnel

• 24 Août 2019

• #10

Bonjour.
Mettez devant :

VB:

If Ls = 0 Then MsgBox "Aucun changement n'a été trouvé.", vbInformation, "Comparaison1": Exit Sub

Cela fonctionne.

Avec Pour information, dans le fichier que j'ai gardé la procédure se termine maintenant comme ça :
J'ai cette erreur.


merci

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 24 Août 2019

• #11

Ah ouais, je n'ai pas reproduit la ligne des déclarations en tête. La voici :

VB:

Dim TE(), LE&, TS(), LS&, Code As SsGr, Détail, C&, VLgNou(), VlgAnc(), Différent As Boolean, Cas As Byte, Rng As Range

 

Vote positif 0 Vote négatif

Bearn 64

XLDnaute Occasionnel

• 24 Août 2019

• #12

Re ;

Merci beaucoup, réponses très rapide et efficace.

Un grand merci

 

Vote positif 0 Vote négatif

Bearn 64

XLDnaute Occasionnel

• 30 Août 2019

• #13

Bonjour Dranreb,

Fichier mensuel avec erreur ci jointe.

vingt modifications dans nouveau fichier.



Erreur signalée sur Private Function MeFCR1C


merci de votre retour.

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 30 Août 2019

• #14

Bonsoir.
Ben enlevez simplement la End Function en double et en trop.

 

Vote positif 0 Vote négatif

Bearn 64

XLDnaute Occasionnel

• 30 Août 2019

• #15

Re ;


Enleve End Fuction


nouvelle erreur



?????

 

Vote positif 0 Vote négatif