(VBA) split

Hello le forum,

Pouvez-vous m'apporter quelques explications sur ce code en général svp :

    If Graphique_Form.Cbx_FREQ.Value = "Mois" Then
        If Graphique_Form.Cbx_VAL.Value <> "" Then
            mois = Graphique_Form.Cbx_VAL
            ThisWorkbook.Sheets("Synthese_ASR").Select
            Set find_mois = Range("E3:CL3").Find(What:=mois, LookIn:=xlValues, LookAt:=xlWhole)
            col_mois = find_mois.Column
            letter_debut = Split(Columns(col_mois).Address(ColumnAbsolute:=False), ":")(1)
            While ThisWorkbook.Sheets("Synthese_ASR").Cells(find_mois.Row, col_mois + 1).Value = ""
                If ThisWorkbook.Sheets("Synthese_ASR").Cells(4, col_mois + 1).Value = "S52" Then
                    col_mois = col_mois + 1
                    GoTo l
                End If
                col_mois = col_mois + 1
            Wend
l:            letter = Split(Columns(col_mois).Address(ColumnAbsolute:=False), ":")(1)
        Else
            MsgBox "Veuillez sélectionner une valeur svp!"
            Exit Sub
        End If
    End If

Il y a plus particulièrement le "(1)" de

letter_debut = Split(Columns(col_mois).Address(ColumnAbsolute:=False), ":")(1)

que je ne comprends pas.

La manipulation globale est que dans un USERForm on a le choix entre "MOIS" et "SEMAINE" et en fonction de ce choix, on a un graphique par mois ou par semaine.

Merci à vous

Bonjour,

letter_debut = Split(________texte_________, ":")(1)

Split découpe un texte selon le séparateur indiqué, ici :

Il crée un tableau à n valeurs, de 0 à n-1

S'agissant d'une adresse, il y aura 2 termes, celui indice 0 (le premier) et celui indice 1 (le second, juste après les :)

Bonjour,

Le plus simple pour bien comprendre une macro, c'est de l'exécuter en pas à pas et de regarder l'évolution des variables.

https://www.excel-pratique.com/fr/telechargements/doc-vba/debogage-no469

Sans oublier la touche magique : F1

Hello,

Merci a vous deux j'ai compris

R@g

Rechercher des sujets similaires à "vba split"