Deux macros sous une même feuille avec Private Sub Worksheet_Change(ByVal Target As R

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Jecomprendspaslesmacros

XLDnaute Nouveau
Bonjour !

Je suis bloquée depuis deux jours sur un problème que je pense avoir identifié...

Voilà j'aimerais mettre sur une page deux macros différentes, le code est le suivant :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cel As Range
Dim A As Variant
Dim B As Variant
Dim c As Variant
Dim D As Variant

If Not Intersect(Range("B2:E100"), Target) Is Nothing Then
With Application
.ScreenUpdating = False
.EnableEvents = False
End With
Range("H" & Target.Row).Resize(1, 100).ClearContents

With Sheets("Papiers101")
For c = 2 To 5
Set Cel = .Range("B4:E300").Find(what:=Cells(Target.Row, c), _
LookIn:=xlValues, lookat:=xlWhole)
If Not Cel Is Nothing Then
For D = 0 To 82
Cells(Target.Row, 8 + D) = Cells(Target.Row, 8 + D) + _
Cells(Cel.Row, 8 + D)
Next D
End If
Next c
End With


With Sheets("Produits LMG")
For A = 2 To 5
Set Cel = .Range("B2:E300").Find(what:=Cells(Target.Row, A), _
LookIn:=xlValues, lookat:=xlWhole)
If Not Cel Is Nothing Then
For B = 0 To 82
Cells(Target.Row, 8 + B) = Cells(Target.Row, 8 + B) & .Cells(Cel.Row, 10 + B)

Next B
End If
Next A
End With

End If

Application.EnableEvents = True
End Sub




Voilà pour le code : le soucis que je rencontre est que dans un cas (recherche dans feuille 'papiers101') les données trouvées s'additionnent (ce sont des données numériques), alors que dans l'autre cas, les données sont du texte et n'ont donc pas besoin d'être additionnées (d'où le "&").
Du coup, il apparaît des incompatiblités de type lorsque les recherches se font (sélections dans des listes de données dans colonnes 2 à 5).


Je début en macros et j'espère être claire, sinon n'hésitez pas pour plus de détails !!
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Microsoft 365 worksheet_change
Réponses
29
Affichages
479
Réponses
4
Affichages
177
Réponses
2
Affichages
153
Réponses
3
Affichages
665
Réponses
1
Affichages
348
Retour