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

Dranreb

XLDnaute Barbatruc
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

Dranreb

XLDnaute Barbatruc
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
 

Bearn 64

XLDnaute Occasionnel
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.
1566656305096.png


merci
 

Statistiques des forums

Discussions
311 725
Messages
2 081 943
Membres
101 849
dernier inscrit
florentMIG