Traduction MFC en Macro

herve62

XLDnaute Barbatruc

• 3 Novembre 2016

• #2

romss82 à dit:

je galère avec ma macro

Cliquez pour agrandir...

Bin alors montre la nous , dans ton fichier je ne l'ai pas vu ?

 

Vote positif 0 Vote négatif

R

romss82

Guest

• 4 Novembre 2016

• #3

bonjour herve62 en fait la MFC est dans l'onglet DDE pour la voir il faut que ton curseur soit actif sur une des case et à partir de la tu peux voir la MFC

merci d'avance pour ton aide

 

Vote positif 0 Vote négatif

R

romss82

Guest

• 4 Novembre 2016

• #4

petite précision en fait je suis incapable de faire une macro !!

c'est peu être pour ça que tu ne la voie pas en fait il y a juste la MFC

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 4 Novembre 2016

• #5

Bonjour romss82, herve62, le forum,

La macro de la feuille "DDE" (clic droit sur l'onglet et Visualiser le code) :

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim d As Object, t, i&, matrice()
Set d = CreateObject("Scripting.Dictionary")
d.CompareMode = vbTextCompare 'la casse est ignorée
Application.ScreenUpdating = False
'---liste sans doublon des concaténations en 1ère feuille---
t = Feuil1.[A2].CurrentRegion.Resize(, 12) 'CodeName Feuil1
For i = 2 To UBound(t)
  d(Left(t(i, 3), 6) & t(i, 10) & t(i, 12)) = ""
Next
'---tableau matrice sur 2ème feuille---
t = [A1].CurrentRegion.Resize(, 7)
ReDim matrice(1 To UBound(t), 1 To 1)
For i = 2 To UBound(t)
  If Not d.exists(t(i, 3) & t(i, 6) & t(i, 7)) Then matrice(i, 1) = True
Next
'---restitution en 3ème feuille---
With Feuil3.[A1].Resize(UBound(t)) 'CodeName Feuil3
  .Parent.Columns(1).ClearContents
  .Value = matrice
  .Name = "Matrice" 'plage nommée pour la MFC
End With
End Sub

Elle permet de créer la plage "Matrice" utilisée dans la MFC sur les colonnes A:O entières :

Code:

=INDEX(Matrice;LIGNE())

Grâce aux tableaux VBA et au Dictionary l'exécution est très rapide.

Pour tester j'ai recopié le tableau A2:O4 de la feuille "DDE" sur 60000 lignes.

Sur Win 10 - Excel 2013 la modification d'une cellule s'exécute alors en 0,53 seconde, c'est très acceptable.

Fichier joint.

A+

 

Pièces jointes

• MFC(1).xlsm

  31.8 KB · Affichages: 64

Dernière édition: 4 Novembre 2016

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 4 Novembre 2016

• #6

Re,

J'ai ajouté une 2ème condition à la MFC pour appliquer les bordures au tableau :

Code:

=LIGNE()<=LIGNES(Matrice)

J'ai coché les cases "Interrompre si Vrai" pour que cela fonctionne sur les versions antérieures à Excel 2007.

Fichier (2).

A+

 

Pièces jointes

• MFC(2).xlsm

  29.3 KB · Affichages: 52

Vote positif 0 Vote négatif

R

romss82

Guest

• 4 Novembre 2016

• #7

merci job75

j'ai retravaillé ta macro avec les bonnes cellules et ça fonctionne parfaitement


tu me tire une belle épine du pied

merci encore

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 4 Novembre 2016

• #8

Re,

La solution que j'ai donnée fonctionne sans problème sur un tableau organisé en tableau Excel.

Sur un tel tableau tous les formats, couleurs, bordures, MFC, se recopient sur les nouvelles lignes.

J'ai inséré la ligne 2 (masquée) par sécurité.

Fichier joint.

A+

 

Pièces jointes

• MFC sur tableau Excel(1).xlsm

  33.3 KB · Affichages: 54

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 4 Novembre 2016

• #9

Re,

Pour finir, le tableau en feuille "Base" pouvant être modifié, j'ai ajouté cette macro :

Code:

Private Sub Worksheet_Activate()
Worksheet_Change [A1]
End Sub

Ci-joint les 3 fichiers complétés.

A+

 

Pièces jointes

• MFC(1 bis).xlsm

  32.1 KB · Affichages: 52
• MFC(2 bis).xlsm

  32 KB · Affichages: 57
• MFC sur tableau Excel(1 bis).xlsm

  36.2 KB · Affichages: 59

Vote positif 0 Vote négatif

R

romss82

Guest

• 4 Novembre 2016

• #10

excellent vraiment merci !!

 

Vote positif 0 Vote négatif