Sub ColorierPlageVerte()
' Sélectionne la plage de cellules A3 à B7
Range("A3:B7").Select
' Applique la couleur de remplissage verte
[Link] = RGB(0, 255, 0)
End Sub
Sub MettreTexteEnForme()
' Insère le texte dans la cellule C2
Range("C2").Value = "Je suis très heureux de faire le cours de VBA"
' Met le texte en gras
Range("C2").[Link] = True
' Met le texte en italique
Range("C2").[Link] = True
' Change la couleur de la police en bleu
Range("C2").[Link] = RGB(0, 0, 255)
End Sub
Sub SaisirDate()
Dim dateEntree As String
' Demande à l'utilisateur d'entrer une date
dateEntree = InputBox("Entrez la date du jour (jj/mm/aaaa) :")
' Affiche la date saisie dans la cellule B4
Range("B4").Value = dateEntree
End Sub
Sub AffecterEtEffacer()
' Affecte "Inp-hb" à la cellule B2
Range("B2").Value = "Inp-hb"
' Efface le contenu de la cellule B2
Range("B2").ClearContents
' Écrit un message de confirmation dans la cellule C4
Range("C4").Value = "Le contenu de B2 a été bien effacé"
End Sub
Sub CopierCollerEtSelection()
' Sélectionne et copie la plage B4:B8
Range("B4:B8").Copy
' Colle le contenu dans la cellule D4
Range("D4").PasteSpecial Paste:=xlPasteAll
' Sélectionne la cellule D10
Range("D10").Select
End Sub
Sub AjouterFeuilleSynthese()
Dim nouvelleFeuille As Worksheet
' Ajoute une nouvelle feuille
Set nouvelleFeuille = [Link]
' Renomme la feuille
[Link] = "synthèse"
' Insère un texte dans la cellule A1
[Link]("A1").Value = "Récapitulatif des devis"
End Sub
Sub MiseEnFormeTexteEtPlage()
' Écrit le texte dans la cellule B3
Range("B3").Value = "Bonjour M. KOFFI Arsène"
' Change la police
Range("B3").[Link] = "Arial Narrow"
' Change la taille de la police
Range("B3").[Link] = 14
' Change la couleur de la police en rouge
Range("B3").[Link] = RGB(255, 0, 0)
' Ajuste la largeur de la colonne de la cellule B3
Range("B3").[Link]
' Sélectionne la plage A2 à C4
Range("A2:C4").Select
End Sub
Sub VariableEtAddition()
Dim valeur As Double
' Donne une valeur initiale à la variable
valeur = 10
' Affiche la valeur initiale
MsgBox "Valeur initiale : " & valeur
' Ajoute le contenu de la cellule A1 à la variable
valeur = valeur + Range("A1").Value
' Affiche la nouvelle valeur après l'addition
MsgBox "Nouvelle valeur après addition avec A1 : " & valeur
End Sub