Traduction langage VBA

[nam971]

Bonjour, je suis étudiant en licence de maths et m'ont demandé de traduire le langage VBA ci dessous rattaché à une macro. Je suis vraiment un débutant, et je ne compras ce ke ça veut dire, si quelqu'un pouvait m'aider






Sheets("Feuil1").Select
ActiveWindow.SmallScroll Down:=-6
Range("AE2:BG5").Select
Selection.ClearContents
Range("AE8:BG9000").Select
Selection.ClearContents
Selection.ClearFormats
ActiveWindow.SmallScroll Down:=-1
Range("AE2").Select
ActiveCell.FormulaR1C1 = "=Feuil3!R[18]C[-27]"
Range("AE3").Select
ActiveCell.FormulaR1C1 = "=Feuil3!R[17]C[-27]"
Range("AE4").Select
ActiveCell.FormulaR1C1 = "=Feuil3!R[16]C[-27]"
Range("AE5").Select
ActiveCell.FormulaR1C1 = "=Feuil3!R[15]C[-27]"
Range("AG12").Select
Range("A7:AC9001").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _
Range("AE1:BG5"), CopyToRange:=Range("AE7:BG9001"), Unique:=True
ActiveWindow.SmallScroll Down:=-6
Application.Goto Reference:="Extract"
Sheets("Feuil2").Select
ActiveWindow.ScrollColumn = 1
Range("A3:AC9000").Select
Selection.ClearContents
Selection.ClearFormats
Sheets("Feuil1").Select
Selection.Copy
Sheets("Feuil2").Select
Range("A2").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll ToRight:=5
Range("M1:Q1").Select
Application.CutCopyMode = False
Selection.ClearContents
ActiveWindow.SmallScroll ToRight:=-5
Range("A1").Select

 

[ROGER2327]

Re : Traduction langage VBA

Bonjour nam971

Demande insolite...
Le code proposé étant un extrait, il n'est pas facile d'en donner une interprétation certaine. D'autant moins facile que vous n'avez pas donné le classeur auquel il s'applique...
Dans un premier temps, je vous suggère de le nettoyer de toutes les instructions inutiles. Comme ceci par exemple :

[COLOR="DarkSlateGray"][B]Sub tutu()
   [COLOR="SeaGreen"]'Nettoyage de la feuil "Feuil1"[/COLOR]
   Sheets("Feuil1").Select
   Range("AE2:BG5").ClearContents
   With Range("AE8:BG9000")
      .ClearContents
      .ClearFormats
   End With

   [COLOR="SeaGreen"]'Insertion de la formule =Feuil3!$D$20 dans la plage AE2:AE5[/COLOR]
   Range("AE2:AE5").Formula = "=Feuil3!$D$20"

   [COLOR="SeaGreen"]'Création d'un filtre de sélection élaboré dont on ne sait pas grand chose _ 
   puisqu'on ne sait rien du contenu de Feuil3!$D$20[/COLOR]
   Range("A7:AC9001").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _
      Range("AE1:BG5"), CopyToRange:=Range("AE7:BG9001"), Unique:=True

   [COLOR="SeaGreen"]'Sélection de la zone d'extraction[/COLOR]
   Application.Goto Reference:="Extract"

   [COLOR="SeaGreen"]'Nettoyage de la feuil "Feuil2"[/COLOR]
   Sheets("Feuil2").Select
   With Range("A3:AC9000")
      .ClearContents
      .ClearFormats
   End With

   [COLOR="SeaGreen"]'Copie de l'extraction dans la feuille "Feuil2"[/COLOR]
   Sheets("Feuil1").Range("Extract").Copy Destination:=Sheets("Feuil2").Range("A2")

   [COLOR="SeaGreen"]'Encore un petit nettoyage, apparemment sans rapport avec l'extraction...[/COLOR]
   Range("M1:Q1").ClearContents

   [COLOR="SeaGreen"]'...et sélection de la cellule A1.[/COLOR]
   Range("A1").Select
End Sub[/B][/COLOR]

Vous y verrez peut-être plus clair.
Je ne saurais en dire plus au premier abord.

Ce qui m'intrigue le plus : quel rapport peut-il bien exister entre ce genre de problème et une licence de Mathématiques ?
​

ROGER2327
#3649

Samedi 21 Merdre 137 (Sainte Pyrotechnie, illuminée, SQ)
19 Prairial An CCXVIII
2010-W23-1T00:05:17Z

 

[Habitude]

Re : Traduction langage VBA

@Roger

Dans les 2 cas, tout n'est que logique. Pour le développement de cette dernière à mon avis.

 

[MOON_Coke]

Re : Traduction langage VBA

Bonjour,

Es que tu a essayé d'exécuter ce code voir ce qu'il fesait ? Peut-être tu y véra plus claire.
Si apres ça ca marche. lance le mode pas à pas pour détailler chacune des lignes.

 

[ROGER2327]

Re : Traduction langage VBA

Bonjour à tous,
Re...

Bonjour,

Es que tu a essayé d'exécuter ce code voir ce qu'il fesait ? Peut-être tu y véra plus claire.
Si apres ça ca marche. lance le mode pas à pas pour détailler chacune des lignes.

Le code fonctionne... ...si on l'applique à un classeur portant des données convenables. (J'ai vérifié, bien sûr.)
Quant à voir ce que fait ce code, c'est évident : voyez les commentaires qui accompagnent le code que j'ai simplifié.​

ROGER2327
#3657

Lundi 23 Merdre 137 (Interprétation de l'humour, ST)
21 Prairial An CCXVIII
2010-W23-3T07:59:18Z

 

[Staple1600]

Re : Traduction langage VBA

Bonsoir à tous

Pour compléter la réponse de ROGER2327

je remplacerai

[COLOR=Green]'Nettoyage de la feuil "Feuil1"[/COLOR]
   Sheets("Feuil1").Select
   Range("AE2:BG5").ClearContents
   With Range("AE8:BG9000")
      .ClearContents
      .ClearFormats
   End With

par

[COLOR=Green]'Nettoyage de la feuil "Feuil1"[/COLOR]
With Sheets("Feuil1")
.Range("AE2:BG5").ClearContents
.Range("AE8:BG9000").Clear
End With

 

[ROGER2327]

Re : Traduction langage VBA

Bonsoir Staple1600

Exact, on peut aussi écrire :

[COLOR="DarkSlateGray"][B]   With Sheets("Feuil")
      .Range("AE2:BG5, AE8:BG9000").ClearContents
      .Range("AE8:BG9000").ClearFormats
   End With[/B][/COLOR]

ROGER2327
#3677

Mardi 24 Merdre 137 (Sainte Purge, sage-femme, SQ)
22 Prairial An CCXVIII
2010-W23-4T21:25:34Z

 

[Staple1600]

Re : Traduction langage VBA

Re


J'avais pourtant édité (22h54) mon précédent message en ce sens avant que vous ne publiez votre dernier message (23h22) 😕

(j'avais bien vu qu'il ne fallait effacer le format, d'où l'édition)