Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Traduction langage VBA

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion nam971
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
N

nam971

Guest
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
 
Trier par date Trier par votes
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 :
Code: 
[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
 
Vote positif 0 Vote négatif
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.
 
Vote positif 0 Vote négatif
Re : Traduction langage VBA

Bonjour à tous,
Re...
MOON_Coke à dit:
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.
Cliquez pour agrandir...
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
 
Vote positif 0 Vote négatif
Re : Traduction langage VBA

Bonsoir à tous

Pour compléter la réponse de ROGER2327

je remplacerai
Code: 
[COLOR=Green]'Nettoyage de la feuil "Feuil1"[/COLOR]
   Sheets("Feuil1").Select
   Range("AE2:BG5").ClearContents
   With Range("AE8:BG9000")
      .ClearContents
      .ClearFormats
   End With
par
Code: 
[COLOR=Green]'Nettoyage de la feuil "Feuil1"[/COLOR]
With Sheets("Feuil1")
.Range("AE2:BG5").ClearContents
.Range("AE8:BG9000").Clear
End With
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Traduction langage VBA

Bonsoir Staple1600
Exact, on peut aussi écrire :
Code: 
[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
 
Dernière édition:
Vote positif 0 Vote négatif
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)
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

V
  • Question Question
XL 2016 transformer en boucle une macro créer avec l'enregistreur automatique
Réponses
3
Affichages
241
vazvaz
V
R
  • Question Question
XL 2010 Effacement de données dans plusieurs feuilles de calcul dans un même classeur
Réponses
3
Affichages
827
robbynasch
R
K
  • Question Question
Microsoft 365 vba :Vlookup + incrémentation d'une plage de donnée
Réponses
1
Affichages
440
vgendron
S
  • Résolu(e)
Autres ActiveWorkbook.Worksheets("vierge").AutoFilter.Sort.SortFields.Clear
2
Réponses
23
Affichages
3 K
AtTheOne
Q
  • Résolu(e)
XL 2019 réduire vba
Réponses
14
Affichages
963
Quicksland
Q
M
  • Question Question
Microsoft 365 Problème VBA insertion ligne au-desus
Réponses
3
Affichages
806
Mr.Adrien
M
D
  • Question Question
XL pour MAC Langage VBA
Réponses
4
Affichages
600
Delorme
D
  • Résolu(e)
XL 2019 Réussir à exécuter une macro VBA sur différentes feuilles à la fois
2
Réponses
19
Affichages
2 K
Yazeubi
  • Question Question
XL 2013 Fonction vba copie coller
Réponses
1
Affichages
1 K
job75
M
  • Question Question
Microsoft 365 Formulaire automatique - vba - erreur 1004
Réponses
11
Affichages
2 K
mymymymymymy
M
J
  • Question Question
XL 2019 Borné une extraction par date
2
Réponses
22
Affichages
3 K
jui42
J
P
  • Résolu(e)
Microsoft 365 VBA mise en forme tableau
Réponses
2
Affichages
1 K
Pdedieu
P
S
  • Question Question
XL 2016 Appliquer des formules sur des cellules filtrées (VBA)
Réponses
1
Affichages
2 K
Staple1600
L
  • Résolu(e)
XL 2010 Tri Multi-Criteres par VBA suivant valeurs des cellules
Réponses
6
Affichages
3 K
LEIYAZ
L
C
  • Résolu(e)
XL 2016 Code VBA pour garder les filtres d'entête actifs - Excel 2016
Réponses
2
Affichages
958
Cat678
C
M
  • Question Question
XL 2010 code VBA pour trier une colonne de mon tableau
Réponses
8
Affichages
2 K
Michelrib
M
T
  • Résolu(e)
XL 2010 VBA boucle pour copier/coller cellules avec condition
Réponses
4
Affichages
6 K
ThomasGLT
T
L
  • Question Question
XL 2010 Code VBA à simplifier et/ou corriger
Réponses
7
Affichages
1 K
LAPIN-53
L
P
  • Question Question
XL 2010 Code erreur entre excel 2010 et 2013
Réponses
1
Affichages
628
piwi
P
M
  • Question Question
Autres vba copier coller date dans une colonne
Réponses
2
Affichages
3 K
maxim47
M
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…