Explication d'un bout de VBA récupéré
Bonjour à toutes et à tous,
J'ai récupéré un bout de code vba sur internet, mais je ne comprend pas exactement ce qu'il fait.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim chemin As String, Sous_Dossier As String, Derlig As Long
Derlig = Range("A" & Rows.Count).End(xlUp).Row
'test si click sur plage de cellules avec le nom des sous-dossiers
If Not Application.Intersect(Target, Range("A2:A" & Derlig)) Is Nothing And Target <> Empty And Target.Count = 1 Then
chemin = "xxx"
'sous-dossier a ouvrir
Sous_Dossier = Target
'commande Shell pour ouvrir le sous-dossier
Shell "C:\windows\explorer.exe " & chemin & Sous_Dossier, vbMaximizedFocus
End If
End Sub
Est ce que quelqu'un pourrait me l'expliquer ligne par ligne, pour ne pas mourir idiot ?
Merci d'avance.
Bonjour,
En colonne a il y a des noms de sous dossier et si l'utilisateur clic sur un sous dossier alors le sous dossier s'ouvre dans une fenêtre windows... Non ?
Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'Dans le code de la feuille, s'exécute en cas de changement de valeur dans une cellule
Dim chemin As String, Sous_Dossier As String, Derlig As Long ' Définit les variables chemin et sous dossiers en texte et Derling en nombre
Derlig = Range("A" & Rows.Count).End(xlUp).Row 'La variable Derling égale le nombre de lignes utilisées dans la colonne "A" ou numéro de la dernière ligne utilisée de la colonne
'test si click sur plage de cellules avec le nom des sous-dossiers 'Commentaire
If Not Application.Intersect(Target, Range("A2:A" & Derlig)) Is Nothing And Target <> Empty And Target.Count = 1 Then 'Limite l'exécution de ce code aux changements de la plage A2 jusqu'à la dernière ligne remplie de la colonne "A"
chemin = "xxx" 'La variable Chemin égale xxx (à remplacer par un nom de chemin valide)
'sous-dossier a ouvrir 'Commentaire
Sous_Dossier = Target' La variable sous-dossier égale la valeur de la cellule active
'commande Shell pour ouvrir le sous-dossier 'Commentaire
Shell "C:\windows\explorer.exe " & chemin & Sous_Dossier, vbMaximizedFocus 'Ouverture de l'explorateurs WIndows sur le répertoire mentionné dans la cellule active
End If 'Fin de la boucle
End Sub 'Fin de la macro
Merci beaucoup, ma fonction ouvre effectivement un sous dossier dont le nom est contenu dans une cellule.
Les explications sont très claires.
Merci encore !!