Microsoft 365 Erreur VBA

Grododos · 23 Mars 2023

Bonjour,
Je suis vraiment une bille en VBA mais pour réaliser certaines tâches on ne peut cependant s'en passer.
La première Sub fonctionne bien seule. Par contre l'ajout de la seconde fait planter Excel.
Mon besoin est de copier l'une ou l'autre de deux plages selon le contenu d'une cellule.
Malheureusement le code plante. Pourriez vous svp m'aider à résoudre mon problème?
Merci par avance

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("A1").Value = ActiveCell.Address
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)

If Range("E18") = 8 Then
Range("y5:z14").Copy Worksheets("HTD ratio").Range("A5")
Else
Range("w5:x14").Copy Worksheets("HTD ratio").Range("A5")
End If
End Sub

vgendron · 23 Mars 2023

bonjour

Comme on ne voit pas ton fichier;. on ne peut pas vraiment parier sur l'origine de ton pb mais .. essaie ceci

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
application.enableevents=false
If Range("E18") = 8 Then
Range("y5:z14").Copy Worksheets("HTD ratio").Range("A5")
Else
Range("w5:x14").Copy Worksheets("HTD ratio").Range("A5")
End If
application.enableevents=true
End Sub

vgendron · 23 Mars 2023

bonjour

Comme on ne voit pas ton fichier;. on ne peut pas vraiment parier sur l'origine de ton pb mais .. essaie ceci

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
application.enableevents=false
If Range("E18") = 8 Then
Range("y5:z14").Copy Worksheets("HTD ratio").Range("A5")
Else
Range("w5:x14").Copy Worksheets("HTD ratio").Range("A5")
End If
application.enableevents=true
End Sub

Grododos · 23 Mars 2023

Vous êtes un champion : le problème est résolu. Merci beaucoup.

Microsoft 365 Erreur VBA

Grododos

XLDnaute Nouveau

vgendron

vgendron

XLDnaute Barbatruc

Grododos

XLDnaute Nouveau

Discussions similaires