Discussion :

[lepiak]

bonjour,
je suis débutant en vba et je suis en train d'écrire une procédure en vba.
Elle fonctionne comme je le souhaite à un détail près.
Voici ma procédure:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("choix").Value = "calculé" Then
    If Range("K39") = "" Then
    Range("essai") = ""
    Else
    Range("essai").Value = Range("K39").Value
    End If
    Copie
Else
Range("groupe").Clear
End If
End Sub

Mon problème est que cette procédure s'effectue à chaque sélection de cellule et comme la procédure copie est assez longue, j'aimerais que la procédure copie ne s'effectue qu'une seule et unique fois.
J'espère avoir été clair.
merci d'avance pour vos réponse

[Antoniom]

Hello,

Je ne sais pas si ça sera suffisant, mais tu mets le même code dans le Worksheet_Change, de cette façon, c'est uniquement lorsqu'il y a changement dans ta cellule "choix".

Bonne soirée !

[zyhack]

Bonsoir

Tu pourrais utiliser une variable global dans un module

exemple

Code :

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

Global UneSeuleFois As Boolean

et dans ton code

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
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
If Not UneSeuleFois Then
  If Range("choix").Value = "calculé" Then
      If Range("K39") = "" Then
      Range("essai") = ""
      Else
      Range("essai").Value = Range("K39").Value
      End If
      Copie
  Else
  Range("groupe").Clear
  End If
 
  UneSeuleFois = True
End If
End Sub

[lepiak]

Merci pour vos propositions
Pour antoniom, le fait de passer dans Worksheet_Change fait planter excel (boucle infini) et je ne sais pas d'ou cela vient, même en simplifiant ma procédure par exemple en enlevant la procédure copie cela plante toujours.
Pour zyhack, je suis débutant comment cette nouvelle variable changera la façon dont fonctionne la procédure?

[zyhack]

re

tout à l'heure j'ai tapé un peu vite ce n'est pas global mais Public

Code :

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

Public UneSeuleFois As Boolean

ce type de variable gardera sa valeur tant que le classeur sera ouvert a moins qu'elle ne soit modifié.

à l'ouverture du fichier cette variable sera à false par défaut.

cette ligne vérifie que la variable = false

Code :

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

If Not UneSeuleFois Then

une fois que ton code à été utilisé on la passe à true.

la fois suivante ton code ne sera pas exécute car la variable ne sera plus a false

[lepiak]

merci zyhack
avec tes explications j'ai pu adapté l'utilisation de cette variable pour obtenir le résultat que je souhaitais.
Merci encore de vos réponse et de vos explications qui étaient simples et clairs