Excel les macros: Initiation à la programmation en Visual Basic

A- Initiation: Les vidéos avec le code à copier coller (récap ci-dessous)

• Vidéo 1	Configurer excel afficher onglet développeur
  	Enregistrer au format xlsm
  	Présentation des outils principaux du ruban
  Vidéo 2	Concept de programmation mode objet
  	Exemples d'objets sur excel
  	les propriétés des objets: pratique pour les modifier !
  	enregistrement d'une macro qui modifie des propriétés
  Vidéo 3	présentation de l'éditeur Visual Basic pour application
  	fenêtre propriétés
  	fenêtre éditeur
  	fenêtre contenant les objets
  	modules de code, c'est quoi
  	qu'est-ce qu'une macro, une "sub"
  	comment la déclarer, créer, la fermer
  	comment commenter son code
  	créer un bouton pour lancer sa macro (2 méthodes)
  	retrouver facilement sa macro
  Vidéo 4	Toilettage de la macro dans visual basic
  	principe de robustesse: exemple concret
  	lancer l'execution dans VBA
  	identification des d'instructions importantes
  	identification et suppression d'instructions superflues
  	Bloc With end With: pour éviter de répéter
  	appeler l'aide contextuelle par F1
  Vidéo 5	comment tester le code, utiliser les commentaires
  	gérer, classeur les modules, les renommer
  	enregistrement d'une macro simple générant un bloc with
  	Simplification d'un bloc With End With
  	Mode pas à pas F8
  Vidéo 6	Comment sélectionner une cellule ou une plage avec VBA
  	Avec les références (adresse de la plage) ou le nom de la cellule
  	Définir la propriété value de la cellule
  	Comment appliquer une méthode (clear, effacer)
  Vidéo 7	Interagir avec l'utilisateur
  	Première boite de dialogue
  	Première variable
  Vidéo 8	Affecter la valeur d'une cellule à une variable
  	Afficher les variables locales et la fenetre execution
  	organiser son travail sur Visual basic, fenetres modules
  Vidéo 9	Affecter la Valeur d'une cellule nommée à une Variable
  	Importance de la référence à une plage nommée pour la robustesse du code.
  	Remarques sur le nommage des feuilles
  Vidéo 10	Affecter les valeurs d'une plage nommée à une variable tableau
  	Explications sur le fonctionnement des variable locales (tableau)
  	Affecter le contenu d'un élément du tableau à une cellule

  
  
  

• 01 macros Excel afficher VBA, intro
  

  PROGRAMME: - Paramétrer excel pour afficher Visual Basic - format excel macro XLSM - présentation de l'onglet développeur du ruban Prochaine vidéo: la programmation en mode objet c'est quoi ? et création de votre première macro.
  

  
  

• 02 Macros Excel, première macro la programmation en mode objet c'est quoi ?
  

  PROGRAMME: - concept "mode objet" - exemples d'objets sur excel - les propriétés des objets: pratique pour les modifier ! - création de la première macro Prochaine vidéo: (3) Enregistrez votre première macro
  

  
  

• 03 Programmer Excel Editer son code, Visual Basic

  PROGRAMME: - présentation de l'éditeur Visual Basic pour application - fenêtre propriétés - fenêtre éditeur - fenêtre contenant les objets - modules de code, c'est quoi - qu'est-ce qu'une macro, une "sub" - comment la déclarer, créer, la fermer - comment commenter son code - créer un bouton pour lancer sa macro (2 méthodes) -retrouver facilement sa macro
  

  
  

• 04 Macros VBA Excel toiletter le code
  

  
  

  • Toilettage de la macro dans visual basic
  • principe de robustesse: exemple concret
  • lancer l'execution dans VBA
  • identification des  d'instructions importantes
  • identification et suppression d'instructions superflues
  • Bloc With end With: pour éviter de répéter
  • appeler l'aide contextuelle  par F1

  
  

  Sub grasItalique()

  ' grasItalique Macro cette macro place la cellule en gras italique

  ' Macro simplifiée des vidéos 1 à 3
      With Selection
      .Interior.Color = RGB(117, 154, 171)
      .Font.ColorIndex = 13
      .Font.Bold = True
      .Font.Italic = True
  
      .Borders(xlEdgeLeft).LineStyle = xlContinuous
      .Borders(xlEdgeLeft).Weight = xlMedium
      .Borders(xlEdgeTop).LineStyle = xlContinuous
      .Borders(xlEdgeTop).Weight = xlMedium
      .Borders(xlEdgeBottom).LineStyle = xlContinuous
      .Borders(xlEdgeBottom).Weight = xlMedium
      .Borders(xlEdgeRight).LineStyle = xlContinuous
      .Borders(xlEdgeRight).Weight = xlMedium 
      End With
  End Sub
  

  
  

• 05 Macros VBA Excel tester simplifier le code
  

  comment tester le code, utiliser les commentaires
  gérer, classeur les modules, les renommer
  enregistrement d'une macro simple générant un bloc with
  Simplification d'un bloc With End With
  Mode pas à pas F8
  

  
  

• 06 Macros VBA Excel selectionner modifier plage et cellule
  

  
  

  Comment sélectionner une cellule ou une plage avec VBA
  Avec les références (adresse de la plage) ou le nom de la cellule
  Définir la propriété value de la cellule
  Comment appliquer une méthode (clear, effacer)
  

  
  

• 07 Macros VBA Excel  Variable et boite de dialogue
  

  Interagir avec l'utilisateur
  Première boite de dialogue
  Première variable
  

  
  

  Sub boite_dialogue_variable()
  'ma première  boite de dialogue et variable
  monMessage = "Bonjour à moi meme"
  MsgBox monMessage
  End Sub
  

• 08 Macros VBA Excel affecter le contenu d'un cellule à une variable
  

  Affecter la valeur d'une cellule à une variable
  Afficher les variables locales et la fenêtre exécution
  organiser son travail sur Visual basic, fenêtres modules
  

  
  

  Sub cellule_variable()
  Dim ma_cellule
  

  ma_cellule = Range("C44").Value
  'Range("C44").Value = "texte dans C44"
  

  MsgBox ("Le contenu de la cellule est :" & ma_cellule)

  End Sub
  

  
  

• 10 macros Excel :  affecter une plage de cellules nommée a une variable tableau
  

  Affecter les valeurs d'une  plage nommée à une variable tableau
  Explications sur le fonctionnement des variable locales (tableau)
  Affecter le contenu d'un élément du tableau à une cellule
  

  
  

  Sub plageNommeeVersVariableTableau_()
  'video 10 Affecter les valeurs d'une  plage nommée à une variable tableau
  tableauPlageBd = Range("plageBd")
  Range("C56").Value = tableauPlageBd(2, 3)
  End Sub
  

• 11 EXCEL VBA MACROS Les premiers Tests Conditionnels Si Alors (If...Then)
  

  Les tests, les conditions (SI…. Alors)
  "EXCEL VBA MACROS Vidéo 11:
  Les premiers Tests Conditionnels 
  Si Alors (If...Then)"
  Executer un code Si une condition est remplie (tester)
  Concept Boolean  0/1 ou False True
  Test Conditionnel simple sur le contenu de la cellule
  

  
  

  Sub exploiter_liste()
  'récupérer les infos d'une ligne de la liste vidéo 11
  contenuDeLaCelluleActive = ActiveCell.Value
  numeroColCelluleActive = ActiveCell.Column
  If contenuDeLaCelluleActive = "" Then MsgBox "la cellule sélectionnée est vide"
  If numeroColCelluleActive <> 3 Then MsgBox "veuillez sélectionner un nom dans la colonne C SVP"
  'If ActiveCell.Value = "" Then MsgBox "la cellule sélectionnée est vide"
  End Sub
  

• 12 Macros VBA Excel _tests multiple and _ if then variable booléenne
  

  test ET (And) et multiconditions Ecrire une ligne de code très longue sur plusieurs lignes IF.. Then et msgbox Boite de dialogue
  

  Sub exploiter_liste()
  'récupérer les infos d'une ligne de la liste vidéo 11
  contenuDeLaCelluleActive = ActiveCell.Value 'contenu de la cellule
  numeroColCelluleActive = ActiveCell.Column  ' dans quelle colonne
  numeroLigneCelluleActive = ActiveCell.Row   ' dans quelle ligne
  testPositionCellule = numeroLigneCelluleActive > 61 _
  And numeroLigneCelluleActive < 67 _
  And numeroColCelluleActive = 3 _
  And contenuDeLaCelluleActive <> ""
  If testPositionCellule Then MsgBox "Bravo cette cellule contient un nom"
  End Sub
  

• 13 Macros VBA Excel test if then enchainer plusieurs instructions sur une ligne avec : et exit sub
  

    

    
  

  Formation Macros VBA Excel N1_13_tests_if_then_complet_exit_sub
  

  Sub exploiter_liste()
  'récupérer les infos d'une ligne de la liste vidéo 13
  contenuDeLaCelluleActive = ActiveCell.Value 'contenu de la cellule
  numeroColCelluleActive = ActiveCell.Column  ' dans quelle colonne
  numeroLigneCelluleActive = ActiveCell.Row   ' dans quelle ligne
  
  testPositionCellule = numeroLigneCelluleActive supérieur à 61 _
  And numeroLigneCelluleActive inférieur 67 _
  And numeroColCelluleActive = 3 _
  And contenuDeLaCelluleActive  différent  ""
  
  ' testPositionCellule =
  'True si OK,
  'False si il faut que l'utilisateur sélectionne une autre cellule
  If testPositionCellule = False Then MsgBox "sélectionner un nom SVP": Exit Sub
  MsgBox "bravo vous avez sélectionné une cellule valide"
  End Sub

  
  

• 14 Macros VBA Excel test if then else 

  Sub exploiter_liste()
  'récupérer les infos d'une ligne de la liste vidéo 14
  
  contenuDeLaCelluleActive = ActiveCell.Value 'contenu de la cellule
  numeroColCelluleActive = ActiveCell.Column  ' dans quelle colonne
  numeroLigneCelluleActive = ActiveCell.Row   ' dans quelle ligne
  
  testPositionCellule = numeroLigneCelluleActive superieur 61 _
  And numeroLigneCelluleActive inferieur 67 _
  And numeroColCelluleActive = 3 _
  And contenuDeLaCelluleActive different ""
  
  ' testPositionCellule =True si OK, False si il faut que l'utilisateur sélectionne une autre cellule
  
  If testPositionCellule Then
      MsgBox "bravo vous avez sélectionné une cellule valide"
  Else
      MsgBox "votre cellule est soit vide soit ne contient pas de Nom"
  
  End If
  

• 15 Macros VBA Excel propriete offset pour acceder aux cellules voisines
  

  
  

  Sub accederCelluleVoisine()
  'La propriété offset pour accéder aux cellules voisines
  nom = ActiveCell.Value
  prenom = ActiveCell.Offset(0, 1).Value
  dateNaissance = ActiveCell.Offset(0, 2).Value
  departement = ActiveCell.Offset(0, 3).Value
  infos = nom & " " & prenom & " Né le: " & dateNaissance & " " & departement
  MsgBox infos
  End Sub