Discussion :

[mathioustone]

Bonjour à tous,

Sur mon programme, j'ai trois fonctions qui sont les suivantes:


•sub worksheet_change(Byval target as range) qui effectue une première saisie
•sub saisie2() qui permet une saisie manuelle des cellules restantes
•sub calcul() qui effectue les calculs selon les infos précédemment remplies

Le problème est le suivant:
j'utilise dans la fonction worksheet_change
i = Target.Row afin d'avoir la ligne sélectionnée => date_travaux = Range("AV" & i)

cependant, la valeur de i disparaît dès que je quitte ma fonction sub worksheet_change...
A quoi celà est dû? puis-je parer ce problème et si oui comment?
Merci de l'attention et bonne continuation
Math'

[el_slapper]

de deux choses l'une.

soit tu veux garder i dans ta procédure, même quand tu la quitte. Auquel cas, il te faut déclarer i en static au début de ta procédure :

Code :

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

1
2
3
Sub worksheet_change(ByVal target As Range)
Static i As Long
(.../...)code

soit tu veux que i se balade d'une procédure à l'autre en gardant toujours sa valeur, auquel cas il faut la déclarer en variable globale, une seule fois, hors des procedures(en général en haut) :

Code :

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

1
2
Public i As Long
Sub MaProcedure......

[casefayere]

Bonjour,
1 - Déclares i en "public" en haut d'un module de base

2 - Dans l'évènement change, target représente la cellule sélectionnée et dont la valeur a changé, donc à manier avec précaution, si tu ne mets pas de conditions.

[mathioustone]

ma déclaration est ainsi faite:
Public i, saisie As Integer
Dim reference, energie, zone, activite As String

ensuite j'utilise ma procédure:
sub Worksheet_Change(ByVal Target As Range)
i = target.row

du coup, i prend la valeur de ma cellule sélectionnée à chaque fois que l'action se déroule.

ma deuxième procédure est:
Sub ok_Click()
R = Range("BH" & i).Value
If reference = "BAR-EN-01" Then
a = 12
End If
prime = cumac * 0.015
Range("BJ" & i).Value = cumac
End Sub

si je sélectionne ma cellule afin de définir une données, mon "i" prendra la valeur de la ligne affectée à la cellule ( ce que je recherche). cependant, lorsque j'ai fini ma saisie, je souhaite utiliser cette même ligne pour continuer à remplir certaines cellules manuellement en amenant l'utilisateur sur la cellule à l'aide d'un focus et une fois les cellules concernées remplies, je voudrais effectuer les calculs à l'exemple de la procédure: ok_click.
ne devrais-je pas utiliser des "function" qui, elles, renvoient une valeur?
La fameuse valeur de i ne se sauvegarde pas du worksheet à ok_click, mais les procédures ne renvoient pas de valeurs, c'est peut-être le pourquoi du comment?

[casefayere]

re,
excuses-moi mais je ne comprends pas trop,

si ton évènement "change ne contient que cette ligne,

Code :

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

1
2
3
Sub Worksheet_Change(ByVal Target As Range)
i = Target.Row
End Sub

ce code est inutile, il vaut mieux passer la valeur dans :

Code :

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

1
2
3
4
5
6
7
8
9
Sub ok_Click()
i = ActiveCell.Row
R = Range("BH" & i).Value
If reference = "BAR-EN-01" Then
   a = 12
End If
prime = cumac * 0.015
Range("BJ" & i).Value = cumac
End Sub

mais je n'ai peut-être pas tout saisi.