Signification formules VBA

aurore -
lermite222 Messages postés 8724 Date d'inscription Statut Contributeur Dernière intervention - 26 mai 2010 à 15:34

Bonjour,

je cherche à comprendre une macro VBA dans un fichier que je dois remettre à jour. La voici:

Sub blancheur()
Dim k As Integer, pre As Single, i As Integer, m As Integer
k = 4
pre = 0
i = 4
m = 3

Do While IsEmpty(Sheets("PLANNING SV").Cells(k, 1).Value) = False
x = (Sheets("PLANNING SV").Cells(k, 1).Value)
'instruction A
Do While IsEmpty(Sheets("BASE DONNEES_SV").Cells(m, 1).Value) = False
'1ere instruction
If Sheets("BASE DONNEES_SV").Cells(m, 1).Value = x Then
pre = pre + Sheets("BASE DONNEES_SV").Cells(m, 24).Value
End If
'2eme instruction
Do While Sheets("PLANNING SV").Cells(i, 1).Value <> x
i = i + 1
Loop
'3eme instruction
Sheets("PLANNING SV").Cells(i, 5).Value = pre
i = 4
m = m + 1
Loop
'instruction B
pre = 0
m = 3
'instruction C
k = k + 1
Loop
End Sub

quelqu'un pourrait-il m'expliquer les différentes fonctions demandées.
J'ai pu comprendre que "i" désigné les colonnes d'un de mes onglets "planning SV" et "m" désigné également les colonnes d'un autre onglet "base donnees_sv" me servant dans cette macro.
Le reste des formules est pour moi compliquer à comprendre: que signifie l'ensemble des variables du début "i=4, m=3 ..."

je vous remercie de votre aide

aurore

A voir également:

Signification formules VBA
Formules - Télécharger - Études & Formations
Signification :p - Forum Mail
^^ Signification message ✓ - Forum Mobile
Signification smiley :3 ✓ - Forum Loisirs / Divertissements
Bvv signification - Forum Facebook

1 réponse

Réponse 1 / 1

lermite222 Messages postés 8724 Date d'inscription Statut Contributeur Dernière intervention 1 191

Bonjour,
1°) Quand tu présente un code tu dois le formatter en code..c'est déja plus clair à lire.

Sub blancheur()
Dim k As Integer, pre As Single, i As Integer, m As Integer
    'Initialisation des variables
    k = 4: pre = 0: i = 4: m = 3
    'Tant que .. pas clair empty = Vide et False aussi.....
    Do While IsEmpty(Sheets("PLANNING SV").Cells(k, 1).Value) = False
        x = (Sheets("PLANNING SV").Cells(k, 1).Value)
        'instruction A
            'Tant que .. pas clair empty = Vide et False aussi.....
            Do While IsEmpty(Sheets("BASE DONNEES_SV").Cells(m, 1).Value) = False
            '1ere instruction
                If Sheets("BASE DONNEES_SV").Cells(m, 1).Value = x Then
                    pre = pre + Sheets("BASE DONNEES_SV").Cells(m, 24).Value
                End If
                '2eme instruction
                'Recherche la valeur de x
                Do While Sheets("PLANNING SV").Cells(i, 1).Value <> x
                    i = i + 1
                Loop
                '3eme instruction
                'A trouver la valeur de x et l'attribue  a..??? 
                Sheets("PLANNING SV").Cells(i, 5).Value = pre
                i = 4
                m = m + 1
            Loop
            'instruction B
            pre = 0
            m = 3
            'instruction C
            k = k + 1
    Loop
End Sub

2°)Soit, ta macro est bourrée d'erreur, soit il faudrait avoir les données pour la comprendre.
A+

Discussions similaires

Que veut dire "Susu" ?

signification du smiley :* ?

Signification de ^^

Que signifie ce smiley o/

Livres & catégories

Votre réponse

Discussions similaires