correction ou modi du code

[Ilino]

Forum Bonsoir
je souhaite avoir plus de eclaircissement concernant ce Code ci dessous

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Range, c As Range
Set r = Intersect(Target, Range("J11:J" & Rows.Count), Me.UsedRange)
If r Is Nothing Then Exit Sub
With Feuil1 'Codename de la feuille FGP 2014
  .[AX:BG].EntireColumn.Hidden = False 'affiche le tableau modèle
  For Each r In r 'en cas d'entrées multiples
    If IsDate(r) Then
      If IsError(Application.Match(r, .Rows(28), 0)) Then
         Set c = .Cells(27, .Columns.Count).End(xlToLeft)(2, 3)
        .[AX:BG].Copy c.EntireColumn
        c.EntireColumn.Resize(26, 10).Clear
        
        c = r 'entrée de la date
      End If
    End If
  Next
  .[AX:BG].EntireColumn.Hidden = True 'masque
End With
End Sub

A quel niveau je modifier le code pour afficher la date (titre du tableau) a la ligne 26 ?
j'ai testé la ligne suivante du code et ça n a pas marché

If IsError(Application.Match(r, .Rows(26), 0)) Then

Merci pour votre aide
Edit: ce code est elaboré par Notre AMI JOB (grazie)😱

 

[job75]

Re : correction ou modi du code

Bonjour Ilino, le forum,

Plusieurs remarques sur le fichier que tu viens de joindre.

1) C'est typiquement ce que l'on appelle une "usine à gaz".

2) Dans la SelectionChange de la feuille "FGP 2014" remplace "BJ" par "BI" :

Columns("BI").Resize(, Columns.Count - Columns("BI").Column + 1).Validation.Delete

C'est à cause de ça que tu avais un bug.

3) Dans cette feuille il n'y a pas de titres en BA27:BG27 du tableau modèle, il faut absolument en mettre.

4) Dans la feuille "Facturation" l'entrée d'une nouvelle date prend un temps fou.

Je ne vois pas comment améliorer ça, modifie quand même la macro Change :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Range, c As Range
Set r = Intersect(Target, Range("J11:J" & Rows.Count), Me.UsedRange)
If r Is Nothing Then Exit Sub
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
With Feuil1 'Codename de la feuille FGP 2014
  .Unprotect "mdp" 'mot de passe à adapter
  .[AY:BG].EntireColumn.Hidden = False 'affiche le tableau modèle
  For Each r In r 'en cas d'entrées multiples
    If IsDate(r) Then
      If IsError(Application.Match(r, .Rows(26), 0)) Then
        Set c = .Cells(27, .Columns.Count).End(xlToLeft)(0, 3)
        .[AY:BG].Copy c.EntireColumn
        c = r 'entrée de la date
      End If
    End If
  Next
  .[AY:BG].EntireColumn.Hidden = True 'masque
  .Protect "mdp" 'mot de passe à adapter
End With
Application.Calculation = xlCalculationAutomatic
End Sub

Je viens d'ajouter les Application.Calculation dans mon fichier (7).

A+

 

[Ilino]

Re : correction ou modi du code

Bonjour MAITRE
MERCI je vais l'adapter a mon fichier
A+

 

[Ilino]

Re : correction ou modi du code

Re maitre
la ligne du code initial a ete supprimé dans ce code

 r.EntireRow.Calculate 'recalcul de la ligne '<===== A ETE SUPPRIMER

A+

 

[job75]

Re : correction ou modi du code

Re,

Oui, cette ligne est inutile, je l'avais mise dans mes essais car je travaillais en calcul manuel.

A+

 

[Ilino]

Re : correction ou modi du code

Re
Oky , c'est noté
et l'ouverture du fichier selon les codes , pourquoi il est tres lent ( et pourtant la taille n'est pas vraiment importante)
est ce que les code de Private Sub Workbook_Open qui pose ce pblm ?
GRAZIE

 

[job75]

Re : correction ou modi du code

Re,

Ce qui plombe surtout ton fichier c'est le grand nombre de formats différents dans la feuille "FGP 2014".

Fais le test suivant sur une copie de ton fichier :

- active la feuille "FGP 2014" et sélectionne toutes les cellules

- onglet Accueil, groupe Edition => Effacer les formats

- enregistre, ferme et rouvre le fichier, c'est nettement plus rapide.

Et surtout quand tu entres une nouvelle date en feuille "Facturation", la création du nouveau tableau est immédiate.

A+

 

[Ilino]

Re : correction ou modi du code

Re
je vais le tester
A+

 

[Ilino]

Re : correction ou modi du code

Re,

Ce qui plombe surtout ton fichier c'est le grand nombre de formats différents dans la feuille "FGP 2014".

Fais le test suivant sur une copie de ton fichier :

- active la feuille "FGP 2014" et sélectionne toutes les cellules

- onglet Accueil, groupe Edition => Effacer les formats

- enregistre, ferme et rouvre le fichier, c'est nettement plus rapide.

Et surtout quand tu entres une nouvelle date en feuille "Facturation", la création du nouveau tableau est immédiate.

A+

Re,
mais comme ça j'ai tous perdu la mise en forme des tableaux?
A+

 

[Ilino]

Re : correction ou modi du code

Re,
si tu permits MAITRE, la mise en forme dans mon fichier ,elle est necessaire, je ne peux pas me depasser d'elle?!!!
y a t elle d'autre astuce ?
grazie par avance
A+&B.W

 

[Ilino]

Re : correction ou modi du code

Re
et si je repartage l'ensemble de mes tableaux de la feuille FGP 2014 dans d'autre feuille de mon classeur ( avec meme format) est ce que dans ce cas je peux résoudre le PBLM de la lenteur?
A+

 

[job75]

Re : correction ou modi du code

Bonjour Ilino,

y a t elle d'autre astuce ?

L'effacement des formats que je t'ai dit de tester c'est uniquement pour que tu vois bien d'où vient le problème.

Bien sûr qu'il faut une mise en forme, mais il faudrait que tu la simplifies beaucoup.

Et d'abord en supprimant les petites lignes vides intermédiaires qui sont totalement inutiles.

A+

 

[Ilino]

Re : correction ou modi du code

Bonjour MAITRE
Merci pour les remarques
GRAZIE A+&B.W