Simplification de procèdures

[br44]

Bonjour le forum


voilà après avoir enregistré ma procèdure je me suis apperçu qu'elle ètait peut-être un lourde (168ko) .

je voudrais savoir si l'on peut allerger des procèdures en faisant en sorte que l'on joue sur des plages au lieu de cellules .

Exemple :
procèdure 1
If Range("A1").Value=Sheets("Feuil1).Range("A1")+Sheets("Feuil2").Range("C5").value
End If

Cette formule ètant valable pour les cellules consernées allant de "A1:A6"

Procèdure 2

je doit séparer mes clients en deux groupes mais pour ce faire j'ai une mis condition IF presque pour chaqu'un deux en fonction de leur code .Est-il possible d'alleger car dans l'exmple je n'est que 15clients (pour essais) ,mais le fichier final en aurrais une centaines ?

Espèrant avoir été claire dans ma demande je dis à bientôt sur ce fil et vous remercie par avance .Ci-joint les procèdures : BR44

 

[Hervé]

Re : Simplification de procèdures

bonjour

pour la premiere procedure, tu peux essayer comme ceci :

Dim ws1 As Worksheet
Dim ws2 As Worksheet
Dim ws3 As Worksheet
Dim colonne As Integer

Set ws1 = Sheets("Facture")
Set ws2 = Sheets("Détail")
Set ws3 = Sheets("Récap2")
colonne = 2

Select Case Range("G03").Value
    'Premier groupage
    Case "C03"
        For i = 26 To 36 Step 2
            ws1.Cells(i, "c") = ws2.Cells(29, colonne) + ws3.Cells(29, colonne)
            colonne = colonne + 1
        Next i

    'Deuxième groupage
    Case "C06"
        For i = 26 To 36 Step 2
            ws1.Cells(i, "c") = ws2.Cells(29, colonne) + ws3.Cells(136, colonne)
            colonne = colonne + 1
        Next i

    'Troisième groupage
    Case Range("G03").Value = "C15"
        For i = 26 To 36 Step 2
            ws1.Cells(i, "c") = ws2.Cells(29, colonne) + ws3.Cells(243, colonne) + ws3.Cells(272, colonne)
            colonne = colonne + 1
        Next i
        
    Case Else
        For i = 26 To 36 Step 2
            ws1.Cells(i, "c") = ws2.Cells(29, colonne)
            colonne = colonne + 1
        Next i

End Select

j'ai rien testé.

salut

 

[Gorfael]

Re : Simplification de procèdures

Salut à tous
Procédure 1 : devait pas marcher bien fort ? Sauf dans le cas de valeur "C15"

'Condition du calcul pour le groupage des clients
 'Premier groupage
 Select Case Range("G03")
    Case "C03"
        y = 29
    Case "C03"
        y = 136
    Case "C15"
        y = 243
    Case Else
        y = 0
 End Select
 
  For x = 0 To 5
    Sheets("Facture").Range("C" & 26 + (x * 2)) = Sheets("Détail").Cells(29, x + 2) + _
    iff(y > 0, Sheets("Récap2").Cells(y, x + 2), 0)
  Next x

La seconde me semble trop incohérente pour que je trouve des solutions :
un coup on copie les valeurs, un coup la cellule, un coup sur la première ligne vide en A, un coup sur la dernière non vide en A. Je patauge trop pour trouver quoi faire

A+

 

[ODVJ]

Re : Simplification de procèdures

Bonjour à tous,

autre possiblité pour la procédure 1 :

' groupage
[facture!c26] = [Détail!B29] + [récap2!B29]*([G03]="C03")+ [récap2!B136]*([G03]="C06") + ([récap2!B243] + [récap2!B272])*([G03]="C15")
[facture!c28] = [Détail!C29] + [récap2!C29]*([G03]="C03")+ [récap2!C136]*([G03]="C06")+ ([récap2!C243] + [récap2!C272])*([G03]="C15")
[facture!c30] = [Détail!D29] + [récap2!D29]*([G03]="C03")+ [récap2!D136]*([G03]="C06")+ ([récap2!D243] + [récap2!D272])*([G03]="C15")
[facture!c32] = [Détail!E29] + [récap2!E29]*([G03]="C03")+ [récap2!E136]*([G03]="C06")+ ([récap2!E243] + [récap2!E272])*([G03]="C15")
[facture!c34] = [Détail!F29] + [récap2!F29]*([G03]="C03")+ [récap2!F136]*([G03]="C06")+ ([récap2!F243] + [récap2!F272])*([G03]="C15")
[facture!c36] = [Détail!G29] + [récap2!G29]*([G03]="C03")+ [récap2!G136]*([G03]="C06")+ ([récap2!G243] + [récap2!G272])*([G03]="C15")

A+

 

[br44]

Re : Simplification de procèdures

re:Bonjour à Hervé,Gorfael,ODVJ,le forum

Tout d'abord un grand merci à vous trois ,je prend le temps de tester vos propositions et vous tient au courant .

pour Gorfael:

En se qui conserne la deuxième procèdure tu dis que tu patauge ,mais tu pressise pas trop ce que tu ne comprend pas .

Es-ce au niveau des copies où au niveau de l'ensemble de la procèdure ?

Sur se je vous dis a plus pour le rèsultat et merci encore pour la rapiditée de vos rèponses . br44

 

[Gorfael]

Re : Simplification de procèdures

re:Bonjour à Hervé,Gorfael,ODVJ,le forum

Tout d'abord un grand merci à vous trois ,je prend le temps de tester vos propositions et vous tient au courant .

pour Gorfael:

En se qui conserne la deuxième procèdure tu dis que tu patauge ,mais tu pressise pas trop ce que tu ne comprend pas .

Es-ce au niveau des copies où au niveau de l'ensemble de la procèdure ?

Sur se je vous dis a plus pour le rèsultat et merci encore pour la rapiditée de vos rèponses . br44

Salut à tous

If Range("G3").Value = "C01" Then
Sheets("Détail").Range("A1:G29").Copy Destination:=Sheets("Récap2") _
.Range("A65536").End(xlUp)
End If
si G3 = "C01" on copie A1:G29 de détail à la place de la dernière ligne de Récap2

If Range("G3").Value = "C02" Then
Sheets("Détail").Range("A1:G29").Copy Destination:=Sheets("Récap1") _
.Range("A65536").End(xlUp)
si G3 = "C02" on copie A1:G29 de détail à la place de la dernière ligne de Récap1
Sheets("Facture").Range("1:50").Copy
With Sheets("Récap1").Range("A65536").End(xlUp).Offset(1, 0)
.PasteSpecial Paste:=xlValues
.PasteSpecial Paste:=xlFormats
End With
puis on colle à la suite de de ce qu'on vient de coller les 50 premières lignes de facture, mais uniquement les valeurs et les formats, sans les formules

Le reste du code est dans le même style : pour simplifier un code, il faut trouver sa logique de travail, et après seulement, on peut simplifier. Mais je ne comprends pas ce que tu fais Pourquoi tu effaces la dernière cellule de A de feuille recap1 dans un cas et pas dans l'autre par exemple.

Donc, je ne peux pas simplifier en cherchant une autre manière d'y arriver sans risquer de faire des erreurs.

A+

 

[br44]

Re : Simplification de procèdures

Re: Bonjour à Hervé ,Gorfael,OVDJ et le forum

bon j'ai tester vos procèdure j'en ais trouvé une qui me convient .

merci pour toutes ses sujestions.

Gorfael : J'ai lu ton dernier message et je crois pouvoir répondre à t'es interrogation.

1°) le découpage est dans l'ordre des codes clients c'est à dire

"C01" vers la "récap2"
"C02" vers la "récap1"
"C03" vers la "Récap2" ect....

2°) Si c'est le faite de copier la "Facture" sans les formules cela vient du faite qu'a chaque fois j'enregistrais une nouvelle facture cela me donnais les même rèsultat sur toutes les copies .

je te joints de nouveau la procédure 2 avec des explications pour les plages .
Si cela ne vas pas dis le moi je postrerais le fichier integrale avec le résultats des copies .

En espèrant avoir rèpondus à t'as question je te dis à plus et merci à vous trois et à tous ceux qui ont pris le temps de visiter se fil .
à Bientôt br44

 

[br44]

Re : Simplification de procèdures

Re:bonsoir le forum

Ce petit message pour un point sur la procèdure 2

j'ai essayé de simpliffier ma procédure en me basant un peut sur celle d'Hervé et d'un procèdure de Dan que j'ai trouvé sur le forum.

Il y a un petit soucis dessus elle exute l'alignement des lignes et des colonnes mais pas la copie . Je n'est pas de bug signaler .

Vous trouverez ci-joint mon fichier avec:

en 1 la procèdure à simplifier
en 2 mon essais
en 3 la base sur la quelle j'ai essayé d'adapter

Si vous pouver m'aider serais sympas où du moin m'expliquer où j'ai pu faire une erreur

En vous remerciant par avance je vous dit à bientôt sur ce fil
BR44

 

[Gorfael]

Re : Simplification de procèdures

Salut br44 et au forum

Private Sub CommandButton2_Click() 'bouton "Enregistrer la fiche"
'Déclare les variables Ws1,2,3 et 4
Dim Ws1 As Worksheet
Dim Ws2 As Worksheet
Dim Ws3 As Worksheet
Dim Ws4 As Worksheet
'Déclare les variables I et Y pour la hauteur et la largueur
Dim I As Integer
Dim y As Integer
'Définit les Variable Ws1,2,3 et4
Set Ws1 = Sheets("Détail")
Set Ws2 = Sheets("Facture")
Set Ws3 = Sheets("Récap1")
Set Ws4 = Sheets("Récap2")
Jusqu'à là, ça va comme dissait le mec tombé du 15me étage en passant devant le 3me

Application.ScreenUpdating = True
remise en route du rafraîchissement écran : normalement, tu dois la mettre à False, pour la bloquer le temps de l'exécution de la macro, pour accélérer le traitement

'Répatitions des codes pour les Récap1 et 2
With Ws1
c'ets pas utile si tu ne l'utilise qu'une seule fois, mais c'est pas faux

Select Case Range("G3").Value
tu mets en variable à tester la cellule G3 de la feuille active : je pense que c'est d'une feuille précise donc, soit précis : Ws1.range("G3") si c'est celle de la feuille "Détails" ou Ws2, Ws3 ou Ws4. Si la feuille active n'est pas celle que tu veux tester, le résultat ne sera pas celui espéré

Case "01"
si activesheet.Range("G3") = "01"

.Range("A1:G29").Copy Ws4.Range("A65536").End(xlUp)
On copie A1:G29 de Détail sur dernière ligne non-vide de la colonne A de la feuille Recap2. Je verrais plutôt la première ligne vide en A de Recap2 :
.Range("A1:G29").Copy Ws4.Range("A65536").End(xlUp).offset(1,0)[/i]

End Select
End With

Application.ScreenUpdating = False
là, je verrais plutôt une remise en route du rafraîchissement écran : Le principe, c'est de bloquer le rafraîchissement écran qui prend des ressources systèmes tant qu'on en à pas besoin, pendant l'exécution de la macro.et on le remet en route en sortant de la macro False en début de macro, True en sortie de macro
End Sub

Amuses-toi bien 🙂

A+

 

[br44]

Re : Simplification de procèdures

Re: Bonjour Gorfael ,le forum

Grand merci à toi pour ses explications qui vont m'aider à avancer . je teste tout ça et je vous tient au courant.

Juste une petite question en passant que singnifi le singne [/i] que tu à place à la fin de la ligne?:
.Range("A1:G29").Copy Ws4.Range("A65536").End(xlUp).offset(1,0)[/i]

Bon sur ce je vous dis à plus sur se fil BR44

 

[br44]

Re : Simplification de procèdures

re: ReBonjour au forum

Bon je viens de tester et finir une parti de ma procédure et ça marche!

Sauf que j'ai un petit soussi avec la definition des hauteures de lignes sur la feuille déstination (Ws4).

Ci-joint ma procèdure en l'état :
With Ws1
Select Case Ws1.Range("G3").Value
Case "C01"
.Range("A1:G29").Copy Ws4.Range("A1")
Case "C03", "C06", "C15"
.Range("A1:G29").Copy Ws4.Range("A65536").End(xlUp).Offset(1, 0)
Ws2.Range("A1:G50").Copy
With Ws4.Range("A65536").End(xlUp).Offset(1, 0)
.PasteSpecial Paste:=xlValues
.PasteSpecial Paste:=xlFormats
End With
Case "C04", "C10"
.Range("A1:G29").Copy Ws4.Range("A65536").End(xlUp)(15)
Case "C13"
.Range("A1:G29").Copy Ws4.Range("A65536").End(xlUp).Offset(1, 0)
End Select
With Sheets("Récap2")
For I = 1 To .Range("A1:G29").Columns.Count
.Columns(I).ColumnWidth = Sheets("Détail").Columns(I).ColumnWidth
Next
y = 1
For I = 2 To .Range("A1:G29").Rows.Count le Problème est là
Rows(I).RowHeight = Sheets("Détail").Rows(y).RowHeight
Next
y = IIf(y > 15 / 2, 1, y + 1)
End With
End With
Application.ScreenUpdating = True
Application.CutCopyMode = False


End Sub




Si quelqu'un peut m'aider à résoudre se problème qui ne doit pas grand chose ou m'expliquer comment le résoudre se serais sympas merci d'avance
je dis à plus et à bientôt sur se fil br44

 

[Gorfael]

Re : Simplification de procèdures

Re: Bonjour Gorfael ,le forum

Grand merci à toi pour ses explications qui vont m'aider à avancer . je teste tout ça et je vous tient au courant.

Juste une petite question en passant que singnifi le singne [/i] que tu à place à la fin de la ligne?:
.Range("A1:G29").Copy Ws4.Range("A65536").End(xlUp).offset(1,0)[/i]

Bon sur ce je vous dis à plus sur se fil BR44

Salut à toutes et à tous
Prout 😛 Na !!! J'ai oublié la balise [ i] en début pour passer le texte en italique dans le poste
ça m'apprendra à me relire

For I = 2 To .Range("A1:G29").Rows.Count le Problème est là
Rows(I).RowHeight = Sheets("Détail").Rows(y).RowHeight

t'as écrit :
Activesheet.Rows(I).RowHeight = Sheets("Détail").Rows(y).RowHeight 🙂

Juste mettre un point devant le Rows(I) devrait résoudre ton problème :
.Rows(I).RowHeight = Sheets("Détail").Rows(y).RowHeight

Application.CutCopyMode = False À mon sens, tu peux supprimer, c'est la valeur par défaut et tu ne la modifies pas

A+

 

[br44]

Re : Simplification de procèdures

re: bonjour à toutes et tous

Bon alors doubles Prout Na!! car mois aussi je devrais relire se que j'écrit .

Pour se qui conserne l'Application cutCopyMode=False est que si je ne le mets pas dans la procèdure cela entraine la doublure de la copie .

Je m'explique une click sur mon bouton d'enregistrement la copie s'effectue normalement mais en bas de ma feuille Excel je la phrase suivante :

Selectionner une cellule (de destination ) et appuyer sur entrée . Cette phrase s'annule avec cette procèdure .

Bon j'aurais encore deux petites questions :

1°) Peut-on modifier cette variables

For I = 2 To .Range("A1:G29").Rows.Count
Rows(I).RowHeight = Sheets("Détail").Rows(y).RowHeight

De manière à ce quelle execute même la hauteur de ligne à chaque nouvel enregistrement ? j'avais pensé à un truc du style

For y = 1 To 29 step 50 (où 30 selon Ws3 où Ws4 ).Rows . Count
.Rows(Y).RowHeight=WS1.Rows(y).RowHeight

Je n'ais pas encore tester mais suis-je sur la bonne voie ?

2°) qui n'a rien avoir avec le fil ,mais qui me serais util pour le forum :

Où se trouve la fonction pour changer la "Police" Et/ou la couleure d'ecriture
pour la rèdaction des messages ? exemple: "Gras" "Italique" En "Rouge de taille "12" ?


Bon du coup je crois que cet tout j'ai relu est il n'y a pas de valises à trainées (Ho pardon je voulais dire :Balises bienzure Hi Hi Hi !!!!! ) .

A bientôt donc sur ce fil et merci encore du coup de main . BR44

 

[Gorfael]

Re : Simplification de procèdures

Salut br44, et le forum

Pour se qui conserne l'Application cutCopyMode=False est que si je ne le mets pas dans la procèdure cela entraine la doublure de la copie

À force d'épurer les macro faites par Excel, on en oublit que certaines instructions ont une raison d'être. Faut que je regarde ce qu'elle fait réellement.

For I = 2 To .Range("A1:G29").Rows.Count
Rows(I).RowHeight = Sheets("Détail").Rows(y).RowHeight

De manière à ce quelle execute même la hauteur de ligne à chaque nouvel enregistrement ? j'avais pensé à un truc du style

For y = 1 To 29 step 50 (où 30 selon Ws3 où Ws4 ).Rows . Count
.Rows(Y).RowHeight=WS1.Rows(y).RowHeight

Comme je ne comprends pas, (j'ai repris ton original avec le point bien sûr)

y = 1
For I = 2 To .Range("A1:G29").Rows.Count le Problème est là
.Rows(I).RowHeight = Sheets("Détail").Rows(y).RowHeight
Next
y = IIf(y > 15 / 2, 1, y + 1)

Tu fixes Y à 1 tu fais ta boucle, Y=Y+1 et tu sorts
Comme c'est pas logique, j'ai supposé que c'était un extrait de code, ou un code en cours d'élaboration et que tu continuais par une autre boucle plus tard dans le code
Si tu reboucles au-dessus, le Y=1 annulera ton calcul de Y et le remettra à 1

Dans ta demande :
For I = 2 To .Range("A1:G29").Rows.Count
ça revient à écrire :
For I = 2 To 29
C'est une manière un peu alembiquée de l'écrire, mais je fais des instructions de ce style (des fois, pas souvent) pour me rappeller d'où je tire le nombre. ça me permet de ne pas m'arracher le reste de mes pauvres cheveux quand, des mois plus tard, je cherche d'où j'ai bien pu extraire ce #censuré# de nombre à la #censuré#.

For I=2 to 29 step 30
Next I

1er passage
I=2 => I>29(FAUX) => instruction suivante
Next retour à ligne For

2me passage
I=I+step => I=2+30=32 => I>29(Vrai) => instruction après Step

Donc ton instruction devra sans doute avoir un style du genre :
Y=iif(.name = "Facture",30,50)
For I = 2 To .Range("A1:G29").Rows.Count
.Rows(I).RowHeight = Sheets("Détail").Rows(I+Y).RowHeight
ou
.Rows(I).RowHeight = Sheets("Détail").Rows(I*Y).RowHeight

Où se trouve la fonction pour changer la "Police" Et/ou la couleure d'ecriture
pour la rèdaction des messages ? exemple: "Gras" "Italique" En "Rouge de taille "12" ?

Il n'y en a pas
Tu peux la créer avec un Userfprm, ou faire une recherche sur le site : il y a des solutions pour trouver un remplacement, mais je me souviens plus du sujet. J'avais vu une solution de MichelXLD (enfin je crois)
A+

 

[br44]

Re : Simplification de procèdures

re: Salutations à Gorfael ,le forum

En rèponse a ton dernier message et aprés avoir tester t'as solution :

Donc ton instruction devra sans doute avoir un style du genre :
Y=iif(.name = "Facture",30,50)
For I = 2 To .Range("A1:G29").Rows.Count
.Rows(I).RowHeight = Sheets("Détail").Rows(I+Y).RowHeight
ou
.Rows(I).RowHeight = Sheets("Détail").Rows(I*Y).RowHeight


j'ai le regret de t'informer que cela ne fonctionne pas .

la hauteur de mes lignes ne se modifient pes (toujours 12.75 ,sur la deuxièmes copies au lieu de 24.75 hauteur des lignes pour la plage consernée ("A1:G29").

Moi au départ j'avais mis un "UsedRange " à la place du"Range("A1:G29")",qui fonctionne mais cela mets une hauteur de lignes de 24,75 sur toute la page ,ce qui et logique puisque cet la première hauteur enregistrée lors de la copie .

Moi je ne vois pas d'autres solutions à moins quand s'èparants la varibles lignes de la variable colonnes ,mais je ne voie pas du tout comment faire ?

En tout les cas merçi de t'on aide et des explications qui les accompagnes .
A bientôt Br44

A P.S: j'ai bien noter pour le réponses à la 2 ème question . Je ferais des recherches plus tard . Merçi BR44