Discussion :

[chrismeun78]

Bonsoir,

Je débute en VBA. J'ai créé ce petit code qui me permet de calculer une évolution du chiffre par rapport à l'année précédente.

La macro se lance sur le changement de valeurs des cellules dans les colonnes B et E. Quand je modifie une cellule dans la colonne B, ca marche. Par contre, en partant de la colonne E, ca ne marche pas. la variable "Valeur_Annee_Precedente" reste vide en ligne 14. Pourtant, la variable firstAddress est bonne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
 
Sub Evolution_N_Moins_1(Onglet_Precedent, AdresseCellule, Colonne_Recherche)
'
'   On calcul l'évolution pour le poste de budget modifié
'
    Range(AdresseCellule).Select
    Valeur_Annee_Cours = Range(AdresseCellule).Value
    ActiveCell.Offset(0, -1).Select
    Poste_Budget = ActiveCell.Value
    '   On va chercher le chiffre de l'an dernier
    With Worksheets(Onglet_Precedent).Columns(Colonne_Recherche)
        Set Cell = .Find(Poste_Budget, LookIn:=xlValues)
        If Not Cell Is Nothing Then
            firstAddress = Cell.Address
            Valeur_Annee_Precedente = .Range(firstAddress).Offset(0, 1).Value
        Else
            Valeur_Trouve = "non"
        End If
    End With
 
 
    If Valeur_Trouve = "non" Then
        ActiveCell.Offset(0, 2).Value = "'-"
    Else
        If Valeur_Annee_Precedente = "0" And Valeur_Annee_Cours = "0" Then
            ActiveCell.Offset(0, 2).Value = "'-"
        ElseIf Valeur_Annee_Precedente = "0" And Valeur_Annee_Cours <> "0" Then
            ActiveCell.Offset(0, 2).Value = "1"
        Else
            ActiveCell.Offset(0, 2).Value = (Valeur_Annee_Cours / Valeur_Annee_Precedente) - 1
        End If
    End If
End Sub

Si vous avez une solution, je suis preneur car je sèche totalement sur cette énigme.

Merci

[BENNASR]

Bonjour chrismeun78, la forum
Si j'ai compris ta demande
supposons que :
1/ en colonne B tu as des chiffres d'affaire de l'année N
2/ en colonne E tu as des chiffres d'affaire de l'année N-1
3/ et que tu cherches la variations en colonne H lors de changement de l'une des deux colonne tu peux faire avec :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A1:H1")) Is Nothing Then Exit Sub 'Pour ne pas prendre en compte la première ligne réservée au titres
If Cells(Target.Row, 2) <> "" And Cells(Target.Row, 5) <> "" Then Cells(Target.Row, 8) = Cells(Target.Row, 2) - Cells(Target.Row, 5)
End Sub

BONNE CONTINUATION

[a_diard]

Bonjour

Je suppose que cette macro est lancée par une macro événementielle

si oui quel est ce code

je pense que les select ne sont pas nécessaire dans ton code.

[chrismeun78]

Je me suis mal expliqué. Désolé.

Sur une feuille j'ai les résultats d'une année. Quand je change une valeur dans la colonne B ou la colonne E, une macro se lance pour aller chercher sur la feuille "Année N-1" les résultats. Puis, cette macro inscrit en colonne C ou F, l'évolution entre les deux années.

Pour moi, la macro indiquée fonctionne car lors d'un changement en colonne B, j'ai le résultat en C. Mais quand je modifie en E, j'ai une erreur en ligne 30 car la variable "Valeur_Annee_Precedente" reste null.

Pour peut-être vous aider voici le code du lancement automatique :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
Private Sub Worksheet_Change(ByVal Target As Range)
    Adresse_Cellule = Target.Address
    Colonne_Cible = Split(Adresse_Cellule, "$")(1)
    Adresse_Recherche = Range(Adresse_Cellule).Offset(0, -1).Address
    Colonne_Recherche = Split(Adresse_Recherche, "$")(1)
    Onglet_Precedent = Recherche_Onglet
    If Not Intersect(Target, Columns("B")) Is Nothing Or Not Intersect(Target, Columns("E")) Is Nothing Then
        Call Module1.Evolution_N_Moins_1(Onglet_Precedent, Adresse_Cellule, Colonne_Recherche)
    End If
End Sub

Mais pour moi, le problème ne vient pas d'ici.

Merci pour vos premières réponses.

[eriiic]

Bonjour,

si firstAddress est correct alors c'est Colonne_Recherche qui ne l'est pas.
Split() retourne un tableau démarrant à l'indice 0.

Plutôt que de travailler avec la lettre, travaille avec son n° : Adresse_Recherche.Column
eric

[Philippe Tulliez]

Bonjour,

Mais pour moi, le problème ne vient pas d'ici.

Je ne partage pas le même avis.
Voir ligne 7 : A moins que tu n'aies déclaré une variable publique nommée Recherche_Onglet, la variable Onglet_Precedent n'a aucune valeur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Onglet_Precedent = Recherche_Onglet

Petite remarque pour t'éviter des déconvenues à l'avenir. Place l'instruction Option Explicit en tête de module et déclare toutes tes variables, cela t'éviteras des heures de recherches (voir chapitre III. Option Explicit) du tutoriel Utiliser les variables en VBA Excel)
Autre remarque, il est inutile de passer par une variable intermédiaire Adresse_Cellule pour connaître la colonne. l'argument Target étant un objet Range il a hérité de toutes les propriétés et méthode de cet objet donc

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Colonne_Cible = Split(Adresse_Cellule, "$")(1)

peut être remplacé par typée numérique et ainsi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Colonne_Cible = Target.Column

et de même

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Colonne_Recherche = Split(Adresse_Recherche, "$")(1)

deviendra

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Colonne_Recherche = Colonne_Cible-1

ou encore

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Colonne_Recherche = Target.Column-1

et plus besoin non plus de la variable Adresse_Recherche

[chrismeun78]

Bonjour,

Merci pour les réponses. J'ai fait le bon élève et j'ai appliqué vos conseils.

Malheureusement, j'ai toujours le même problème.
Je remets mes codes modifiés ainsi que la fonction Recherche_Onglet :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Adresse_Cellule As String
    Dim Colonne_Cible As Currency
    Dim Colonne_Recherche As Currency
    Dim Onglet_Precedent As String
 
    Adresse_Cellule = Target.Address
    Colonne_Cible = Target.Column
    Colonne_Recherche = Target.Column - 1
    Onglet_Precedent = Recherche_Onglet
    If Not Intersect(Target, Columns(2)) Is Nothing Or Not Intersect(Target, Columns(5)) Is Nothing Then
        Call Module1.Evolution_N_Moins_1(Onglet_Precedent, Adresse_Cellule, Colonne_Recherche)
    End If
End Sub

Ci dessus, code sur mes feuilles pour le lancement automatique de la macro.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Function Recherche_Onglet()
'
'   On récupère le nom de l'onglet de comparaison à partir de l'onglet actuel
'
    Dim Coupure_Nom_Onglet() As String              '   On déclare le tableau de coupure du nom de l'onglet
    Dim Annee_Precedente As Integer                 '   On déclare la variable pour l'année précédente
    Dim Nom_Onglet As String                        '   On déclare la variable pour le nom de l'onglet actif
 
    Nom_Onglet = ActiveSheet.Name                   '   On récupère le nom de l'onglet actif
    Coupure_Nom_Onglet = Split(Nom_Onglet, " ")     '   On coupe le nom de l'onglet
' On recompose le nom de l'onglet cible
    Annee_Precedente = Coupure_Nom_Onglet(1) - 1
    Recherche_Onglet = Coupure_Nom_Onglet(0) & " " & Annee_Precedente
End Function

Ci-dessus, code permettant de trouver le nom de la feuille de référence à partir de la feuille actuelle.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
 
Sub Evolution_N_Moins_1(Onglet_Precedent, AdresseCellule, Colonne_Recherche)
'
'   On calcul l'évolution pour le poste de budget modifié
'
    Dim Valeur_Annee_Cours As String        ' Valeur à comparer
    Dim Poste_Budget As String              ' Poste correspondant à la valeur
    Dim Valeur_Annee_Precedente As String   ' Valeur comparative
    Dim Valeur_Trouve As String             ' Variable indiquant si on a une valeur antérieure
    Dim Cell
    Dim Adresse_essai As String
 
    Range(AdresseCellule).Select
    Valeur_Annee_Cours = Range(AdresseCellule).Value
    ActiveCell.Offset(0, -1).Select
    Poste_Budget = ActiveCell.Value
    '   On va chercher le chiffre de l'an dernier
    With Worksheets(Onglet_Precedent).Columns(Colonne_Recherche)
        Set Cell = .Find(Poste_Budget, LookIn:=xlValues)
        If Not Cell Is Nothing Then
            Adresse_essai = .Range(AdresseCellule).Address
            Valeur_Annee_Precedente = .Range(AdresseCellule).Value
        Else
            Valeur_Trouve = "non"
        End If
    End With
    If Valeur_Trouve = "non" Then
        ActiveCell.Offset(0, 2).Value = "'-"
    Else
        If Valeur_Annee_Precedente = "0" And Valeur_Annee_Cours = "0" Then
            ActiveCell.Offset(0, 2).Value = "'-"
        ElseIf Valeur_Annee_Precedente = "0" And Valeur_Annee_Cours <> "0" Then
            ActiveCell.Offset(0, 2).Value = "1"
        Else
            ActiveCell.Offset(0, 2).Value = (Valeur_Annee_Cours / Valeur_Annee_Precedente) - 1
        End If
    End If
End Sub

Ci dessus, code permettant d'aller chercher la valeur de référence pour calculer l'évolution sur un an.
Pour rappel, mon problème provient de la ligne 22. La Variable "Valeur_Annee_Precedente" ne prend aucune valeur si je modifie une celllule dans la colonne 'E'. Mais fonctionne très bien si je change dans une cellule de la colonne 'B'. Pourtant, les colonnes sont strictement identiques.

Merci pour votre aide et le temps que vous y passez.

EDIT : Je viens de faire un nouveau test. La ligne 21 me cible la colonne H alors que "AdresseCellule" est en colonne E. Mais la ligne 21 me cible bien la colonne B si "AdresseCellule" est en B. Forcément, la valeur retournée par la ligne 22 ne peut pas être systématiquement bon. Pour ma part, c'est un sacré mystère.

[Philippe Tulliez]

Bonjour,
On sort tout de même d'une aide pour un point précis.
A la lecture rapide est-il normal d'avoir ce type de test If Valeur_Annee_Precedente = "0" And Valeur_Annee_Cours = "0" Then en lieu et place d'un test sur une valeur numérique ? (0 au lieu de "0")

[chrismeun78]

Merci, cela enlève un potentiel problème futur.

Mais cela ne change rien à mon problème initial qui se trouve en amont.

[Philippe Tulliez]

Bonjour,
Le nombre de lignes de code est trop important pour que j'y consacre du temps.

[chrismeun78]

Je comprends mais ne voyant pas d'où vient le problème, c'est mieux ainsi. Et comme indiqué dès le début, je débute en VBA. Je connais bien d'autres langage où j'ai rarement besoin d'aide. J'ai toujours réussi à me débrouiller en recherchant dans les forums et les cours. Mais, là, c'est incompréhensible
pour faire plus simple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Adresse_essai = .Range(AdresseCellule).Address

Si "AdresseCellule" = $B$6 alors "Adresse_essai" = $B$6
Si "AdresseCellule" = $E$6 alors "Adresse_essai" = $H$6
Vous comprenez mieux le problème ?

En attendant, merci pour vos quelques remarques de codage.

[Philippe Tulliez]

Bonjour,
T'aider à vérifier d'où vient ton problème reviendrait à copier/coller toutes tes procédures et encoder des valeurs de tests dont je ne sais même pas ce qu'elles représentent.

La meilleure manière pour savoir où se situe ton problème c'est d'utiliser les outils de débogage, il est ainsi possible de faire tourner ton programme au pas à pas je te conseille donc la lecture de ce tutoriel Le débogage sous Visual Basic 6 & Visual Basic pour Application (1ère partie)

[EDIT]
Je viens de réaliser que la procédure de départ est un événement dû au changement de la valeur d'une cellule et que tu fais appel à d'autres procédures qui écrivent dans d'autres cellules (je n'ai pas vérifié si c'est sur la même feuille mais si c'est le cas cela pourrait être une explication). Il faudrait alors désactiver momentanément l'interception de l'événement.

[chrismeun78]

Merci pour ce tutoriel, instructif pour la suite mais peu utile dans ce cas. Ma programmation me donne un seul bug très facilement corrigeable sur la base. Mais seulement si j'arrive à comprendre pourquoi la variable "Adresse_essai" n'est pas toujours cohérente.
Pourtant, pour moi, le code est bon avant, il est bon après mais pas sur la ligne annoncée.
Et malheureusement, dans ce cas, votre tutoriel ne donne rien.

Je suis dans une impasse maintenant.

Merci

[Philippe Tulliez]

Bonjour,
La réponse est sans doute dans ton explication de départ.

La macro se lance sur le changement de valeurs des cellules dans les colonnes B et E. Quand je modifie une cellule dans la colonne B, ca marche. Par contre, en partant de la colonne E, ca ne marche pas. la variable "Valeur_Annee_Precedente" reste vide en ligne 14. Pourtant, la variable firstAddress est bonne

Pourquoi cela fonctionne avec la colonne B et pas les autres ?
La réponse tu la trouveras grâce au débogage.

[chrismeun78]

J'ai résolu mon problème.

En ligne 18, j'indique une colonne et en ligne 21 et 22, je rajoute une cellule incohérente avec la colonne. Forcément, je n'avais pas de bug signalé.

Merci à vous tous pour avoir pris un peu de temps pour problème.

Merci Philippe pour tes astuces.

Bon dimanche à tous.

[zelion1973]

Bonsoir,
est ce que tu as des cellules fusionnées sur ta feuille ?