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.

[casefayere]

C'est bien ce que je pensais, tu n'as pas que cette instruction dans l'évènement change et c'est peu dire .

tu n'as pas mis de condition pour les valeurs de i ou de j, donc dans l'évènement change (que j'avais précisé, délicat à manier) dès qu'un calcul ou une saisie a lieu dans une autre cellule, i ou j prennent sa valeur et le code recommence, j'espère être clair.

ton code est trop long à lire, tu as du t'amuser mais perso, je ne pourrais pas t'aider car rien que cette fonction me parait bizarre et dépasse mes comptétences ;

Code :

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

Public Function Worksheet_Change(ByVal Target As Range) As String

je connais l'évènement ;

Code :

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

Worksheet_Change(ByVal Target As Range)

mais ça s'arrête là, je suis désolé.

Bon courage et bon weed-end studieux

[mathioustone]

effectivement j'ai mis pas mal de temps mais c'est surtout la galère une fois que le code est finit et que ça ne marche pas je pense devoir utiliser une fonction plutôt que la procédure car celle renvoit une valeur à une variable alors que la procédure non... cependant, l'écriture reste tout de même moins évidante à faire qu'à dire ^^ je pioche sur le morceau pi je donne des newz si personne ne trouve de solution avant moi :/ en tout cas merci pour ton aide ça me fixe au moins sur le problème

bonne continuation

Math'

ps: toute autre info est la bienvenue

[mathioustone]

J'ai pris mon courage à deux mains. J'ai réunis toutes les infos que j'ai pu obtenir sur les forums et j'ai réussis à obtenir ma valeur de i ^^
je join le fichier pour les interessés

Il y a encore des erreurs que je ne maîtrise pas tout à fait, en cas de correction tenez moi informé

Merci et bonne continuation

Math'