selectionchange feuill macro qui fait planter

Version imprimable

Bonjour cette macro fait planter le soft car ca clignote de facon intempestive
Code:

1 2 3 4 5 6 7 8 9 10 11 Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim str01 As String str01 = ActiveCell.Value If str01 = "Acier Noir" Then Me.Range("T10").CurrentRegion.Clear Sheets("Intro").Range("G3").CurrentRegion.Copy Me.Range("T10") End If End Sub
je cherche a charger un tableau d'une autre feuille sur celle active selon la valeur de cellule selectionnée.

Si une personne aurait une idée du pourquoi?

Bonjour Ashireon

Pour moi, la ligne :

Code:

Sheets("Intro").Range("G3").CurrentRegion.Copy

Fait changer ta sélection de cellule, donc l'évènement SelectionChange est lancé de nouveau

Ce qu'il faut

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim str01 As String
str01 = ActiveCell.Value
 
    If str01 = "Acier Noir" Then
    Application.EnableEvents = False ' Empècher les évènements
    Me.Range("T10").CurrentRegion.Clear
    Sheets("Intro").Range("G3").CurrentRegion.Copy Me.Range("T10")
    Application.EnableEvents = True ' Activer les évènements
    End If
 
End Sub

A+

Merci c'est bien ca
mais jai du geler la maj ecran car j'avais un prob d'affichage ( 2 curseurs de selection de cellule visible)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim str01 As String
str01 = ActiveCell.Value
 
 
    If str01 = "Acier Noir" Then
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    Me.Range("T10").CurrentRegion.Clear
 
    Sheets("Intro").Range("G3").CurrentRegion.Copy Me.Range("T10")
 
    End If
    Application.EnableEvents = True
    Application.ScreenUpdating = True
End Sub

JE te remercie