Discussion :

[Ashireon]

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

Code :

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

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?

[Invité]

Bonjour Ashireon

Pour moi, la ligne :

Code :

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

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 :

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)
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+

[Ashireon]

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 :

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
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