Conflit entre 2 macros, besoin d'aide Résolu/Fermé

Question

Bonjour à tous, Tout d'abord, je débute en programmation vba. Soit je me sers de l'enregistreur de macro, soit je teste et récupère des bouts de codes à droite à gauche, tout en consultant les nombreuses fiches de cours que l'on peut trouver sur le net, mais j'avoue que je m'embrouille très vite dans le domaine, à mon grand désespoir ... Je bute depuis plusieurs jours sur un problème de conflit, à mon avis, entre 2 macro sur la même feuille, l'une avec worksheet_change ... et l'autre avec worksheet_selectionchange ... La première fonctionne bien, la seconde, qui appelle 2 autres macros, a fonctionné lors du premier lancement, mais depuis, elle ne fonctionne plus (lorsque je sélectionne n'importe quelle cellule de ma feuille, ma sélection s'annule aussitôt pour toujours sélectionner ma cellule A1. C'est la raison qui m'a poussée aujourd'hui à m'adresser à vous, en espérant trouver rapidement une solution car je vais avoir besoin de mon fichier mercredi. Je ne peux pas transmettre mon fichier car il ne contient que des informations personnelles, alors si cela est possible, pourrez-vous jeter un oeil sur mes codes, au cas où ... Dans tous les cas, je vous remercie d'avance pour tous les conseils que vous pourriez me donner, sachant que vous allez sûrement vous arracher les cheveux en découvrant mes codes ... Je vous souhaite une belle journée. PS : je n'arrive pas à poster tous mes codes d'un coup, je commence par celui là des fois que les erreurs y seraient cachées, encore merci d'avance < Dim An2010 As Worksheet, An2011 As Worksheet, An2012 As Worksheet, An2013 As Worksheet, An2014 As Worksheet, An2015 As Worksheet, _ An2016 As Worksheet, An2017 As Worksheet, An2018 As Worksheet, An2019 As Worksheet, An2020 As Worksheet, An2021 As Worksheet, An2022 As Worksheet, _ An2023 As Worksheet, An2024 As Worksheet, An2025 As Worksheet, An2026 As Worksheet, An2027 As Worksheet, An2028 As Worksheet, An2029 As Worksheet, _ An2030 As Worksheet, An2031 As Worksheet, An2032 As Worksheet, An2033 As Worksheet, An2034 As Worksheet, An2035 As Worksheet, An2036 As Worksheet, _ An2037 As Worksheet, An2038 As Worksheet, An2039 As Worksheet, An2040 As Worksheet Dim selectionlot As Range, PlagedeRecherche As Range, ValeurTrouvee As String, AdresseTrouvee As Variant Dim PlagedeRechercheP As Range, ValeurTrouveeP As String, AdresseTrouveeP As Variant Dim ZoneAcopier As Range, ZoneAcoller As Range Private Sub Worksheet_Change(ByVal Target As Range) Application.ScreenUpdating = False Application.EnableEvents = False Dim WsRech As Worksheet Dim WsResult As Worksheet Dim selection1 As Range Dim selection2 As Range Set selectionlot = Range("A1") Set WsRech = ThisWorkbook.worksheets("Formulaire") Set WsResult = ThisWorkbook.worksheets("ListesAVB2") Set selection2 = Sheets("Formulaire").Range("L2:AJ32") Set selection1 = Sheets("ListesAVB2").Range("V2:AT32") If Not Application.Intersect(selectionlot, Range(Target.Address)) Is Nothing Then Application.DisplayAlerts = False WsResult.Range("J2").Copy WsRech.Range("B1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False 'Statut COTISATIONS WsResult.Range("K7").Copy WsRech.Range("B3").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False 'Statut PROPRIETAIRE WsResult.Range("K4").Copy 'date achat WsRech.Range("B4").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False WsResult.Range("K5").Copy 'impayés WsRech.Range("B5").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False WsResult.Range("K6").Copy 'proprietaire WsRech.Range("B7").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False WsResult.Range("K8").Copy 'téléphone fixe WsRech.Range("B8").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False WsResult.Range("K9").Copy 'mobilis WsRech.Range("B9").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False WsResult.Range("K10").Copy 'courriel WsRech.Range("B10").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False WsResult.Range("K12").Copy 'conjoint WsRech.Range("B12").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False WsResult.Range("K13").Copy 'mobilis conj WsRech.Range("B13").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False WsResult.Range("K14").Copy 'courriel conj WsRech.Range("B14").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False WsResult.Range("K16").Copy 'adresse WsRech.Range("B16").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False WsResult.Range("K17").Copy 'code postal adresse WsRech.Range("B17").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False WsResult.Range("K18").Copy 'commune adresse WsRech.Range("B18").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False WsResult.Range("K19").Copy 'Bp WsRech.Range("B19").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False WsResult.Range("K20").Copy 'code postal BP WsRech.Range("B20").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False WsResult.Range("K21").Copy 'commune BP WsRech.Range("B21").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False 'WsRech.Range("B23") = WsResult.Range("K22").Value 'commune BP selection1.Copy selection2.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False End Application.EnableEvents = True End Sub>

Patrice33740 · Answer

Bonjour

1) A quoi servent ces beaucoup trop nombreuses variables publiques ????
Dim An2010 As Worksheet, An2011 As Worksheet, An2012 As Worksheet, An2013 As Worksheet, An2014 As Worksheet, An2015 As Worksheet ...,

2) Au lieu de 
WsResult.Range("J2").Copy
WsRech.Range("B1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False 'Statut COTISATIONS
il est préférable d'écrire :
WsRech.Range("B1").Value = WsResult.Range("J2").Value  'Statut COTISATIONS
et idem pour les suivants

Patrice33740 · Answer

Bonjour,

Essaies :
Option Explicit
Sub EnregistrerModifications2010()
Dim PlagedeRecherche As Range
Dim SelectionLot As Range
Dim ZoneAcopier As Range
Dim ZoneAcoller As Range
Dim AdresseTrouvee As Range
Dim ValeurTrouvee As Variant
  
  Application.ScreenUpdating = False
  With Worksheets("an2010")
    Set PlagedeRecherche = Intersect(.Columns(1), .UsedRange)
  End With
  Set SelectionLot = Worksheets("Formulaire").Range("A1")
  ValeurTrouvee = SelectionLot.Value
  Set AdresseTrouvee = PlagedeRecherche.Cells.Find(what:=ValeurTrouvee, LookAt:=xlWhole)
  If Not AdresseTrouvee Is Nothing Then
    Set ZoneAcopier = Worksheets("Formulaire").Range("L2:AJ2")
    Set ZoneAcoller = AdresseTrouvee.Offset(0, 12).Resize(1, ZoneAcopier.Columns.Count)
    ZoneAcoller.Value = ZoneAcopier.Value
    If MsgBox("Les modifications ont bien été enregistrées. Souhaitez-vous consulter la base de données ?", vbYesNo, _
              "Confirmation de l'enregistrement des modifications") = vbYes Then
      'Application.Goto Reference:=ActiveCell, scroll:=True 'ça c'est inutile !
    Else
      Application.Goto Reference:=AdresseTrouvee, scroll:=True
    End If
  End If

End Sub

Conflit entre 2 macros, besoin d'aide

2 réponses

Discussions similaires