Apprentissage VBA

5apprentissage.xlsm (15.77 Ko)

Bonjour,

J'essaye de me former en VBA, j'arrive pas à résoudre certaines questions , j'aimerais avoir le corrigé de cet exercice si possible s'ils vous pait .

Merci beaucoup

img 8749

Bonjour Lee, bonjour le forum,

Tu veux peut-être aussi qu'on t'apporte le café au Lee, 1 ou 2 croissants ?!...

Bonjour,

Lol ! Thautheme..

C'est un exercice pour un examen scolaire ou pour votre apprentissage personnel ?
Cette question parce que se former en démarrant sur vos questions et de surcroit pour réaliser un planning n'est pas le meilleur chemin pour apprendre VBA.
Bien que le forum soit un lieu d'aide, si vous voulez apprendre VBA, je vous suggère en premier d'avancer personnellement en utilisant éventuellement l'enregistreur automatique d'excel et de posez vos questions sur vos problèmes rencontrés.

Autre question : Vous travaillez sous MAC je pense ?

Afin d'éviter au max les Select et Selection, votre sub grise peut être simplement celle-ci

Sub grise()
Sheets("EDT").Range("B6:H6,G2:H14,E13:E14").Interior.Color = RGB(200, 200, 200)
End Sub

Pour votre code num_col, il sera plus lisible comme ceci

Public Function num_col(jour As String)
Select Case jour
    Case Is = "Lundi": num_col = CInt(Range("B1").Column)
    Case Is = "Mardi": num_col = CInt(Range("C1").Column)
    Case Is = "Mercredi": num_col = CInt(Range("D1").Column)
......
......
End Select
End Function

Quand c'est possible, essayez d'éviter les IF THEN dans un code, c'est toujours moins lisible lorsqu'il y en a de trop

Cordialement

Rechercher des sujets similaires à "apprentissage vba"