Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Macro qui ne fonctionne que très partiellement....

Créer une discussion

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 !

S'inscrire
C

Christian0258

XLDnaute Accro
Bonjour à tout le forum,

Je souhaiterais vos lumières concernant ce problème:
j'ai placé dans une feuille cette fonction, mais après un copier/coller ça ne colle les deux formules qu'en Y2 et Z2 (ligne 1 titre) et pas sur les autres cellules des lignes bien renseignées col K et L...Pourriez-vous me dire?...

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Me.[K:L], Target) Is Nothing Or Target.Row < 2 Then Exit Sub
Me.Cells(Target.Row, 25).FormulaR1C1 = "=SUMPRODUCT((OFFSET(PlatsQtés!R5C3:R711C3,,MATCH(RC1,PlatsQtés!R3C4:R3C12,0)-1)=RC11)*OFFSET(PlatsQtés!R5C4:R711C4,,MATCH(RC1,PlatsQtés!R3C4:R3C12,0)-1))"
'soit col y
If Intersect(Me.[K:L], Target) Is Nothing Or Target.Row < 2 Then Exit Sub
Me.Cells(Target.Row, 26).FormulaR1C1 = "=RC[-12]/RC[-14]*RC[-1]"
'soit col z
End Sub

Merci pour votre aide.
Bien amicalement,
Christian
 
Dernière édition:
Trier par date Trier par votes
Re : Macro qui ne fonctionne que très partiellement....

Bonjour Christian,

Target pouvant être une plage de plusieurs cellules il faut les traiter toutes :

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect([K:L], Target) Is Nothing Or Target.Row < 2 Then Exit Sub
For Each Target In Target
'soit col y
Cells(Target.Row, 25).FormulaR1C1 = "=SUMPRODUCT((OFFSET(PlatsQtés!R5C3:R711C3,,MATCH( RC1,PlatsQtés!R3C4:R3C12,0)-1)=RC11)*OFFSET(PlatsQtés!R5C4:R711C4,,MATCH(RC1,PlatsQtés!R3C4:R3C12,0)-1))"
'soit col z
Cells(Target.Row, 26).FormulaR1C1 = "=RC[-12]/RC[-14]*RC[-1]"
Next
End Sub
Peut-être faut-il aussi tester le cas où l'on efface la cellule/plage.

A+
 
Vote positif 0 Vote négatif
Re : Macro qui ne fonctionne que très partiellement....

Re,

Ceci est mieux :

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
Set Target = Intersect(Target, Range("K2:L" & Rows.Count), Me.UsedRange)
If Target Is Nothing Then Exit Sub
For Each Target In Target
'soit col y
Cells(Target.Row, 25).FormulaR1C1 = "=SUMPRODUCT((OFFSET(PlatsQtés!R5C3:R711C3,,MATCH( RC1,PlatsQtés!R3C4:R3C12,0)-1)=RC11)*OFFSET(PlatsQtés!R5C4:R711C4,,MATCH(RC1,PlatsQtés!R3C4:R3C12,0)-1))"
'soit col z
Cells(Target.Row, 26).FormulaR1C1 = "=RC[-12]/RC[-14]*RC[-1]"
Next
End Sub
A+
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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

U
  • Question Question
Autres [RÉSOLU] Compléter la macro mais comment et où?
Réponses
2
Affichages
738
un internaute
U
U
  • Question Question
Autres [RÉSOLU] Compléter macro pour Suppr cellules
Réponses
7
Affichages
455
un internaute
U
  • Question Question
XL 2016 annulation ou désactivation de macro
2
Réponses
27
Affichages
1 K
job75
U
  • Question Question
Autres incorporer une macro dans une autre macro
Réponses
5
Affichages
792
Phil69970
A
  • Question Question
insertion d'une ligne automatique dans un tableau excel.
Réponses
1
Affichages
795
sylvanu
P
  • Résolu(e)
XL 2019 combiner 2 conditions dans Worksheet_Change(ByVal target As Range)
Réponses
10
Affichages
802
TooFatBoy
U
  • Question Question
Autres {RÉSOLU] Problème macro
Réponses
2
Affichages
819
un internaute
U
U
  • Question Question
Autres Enregistrer sur Onglet TOTO
Réponses
2
Affichages
753
un internaute
U
U
  • Résolu(e)
Autres Mettre en couleur ligne avec VBA car MFC occupées (Excel 2003)
2
Réponses
15
Affichages
2 K
un internaute
U
D
  • Résolu(e)
XL 2013 Copie vers un autre classeur avec condition
Réponses
2
Affichages
1 K
Dafaka7
D
D
  • Résolu(e)
Microsoft 365 Ajouter une date de création automatique selon colonne A et une date de modification selon colonne F
Réponses
1
Affichages
679
Phil69970
K
  • Question Question
XL 2013 Worksheet_change copier/coller sur un autre classeur
Réponses
6
Affichages
1 K
Dafaka7
D
  • Question Question
Microsoft 365 Code qui ne fonctionne pas sur Excel 365
Réponses
13
Affichages
1 K
Staple1600
P
  • Question Question
Microsoft 365 Créer une macro qui fonctionne avec un Copié Collé
Réponses
7
Affichages
861
Pernin
P
Z
  • Question Question
XL 2016 Macro couper coller vers onglet suivant
Réponses
3
Affichages
1 K
Zykmu
Z
O
  • Résolu(e)
XL 2016 Macro qui ne fonctionne pas quand la feuille est protégée
Réponses
3
Affichages
1 K
sylvanu
P
  • Question Question
Microsoft 365 Calendrier qui s'affiche quand je sélectionne une cellule
Réponses
4
Affichages
1 K
Piksaw
P
E
  • Question Question
Microsoft 365 Problème macro événementielle
Réponses
2
Affichages
1 K
ExcLnoob
E
L
  • Question Question
XL 2019 Besoins d'aide pour corriger une macro qui ne fonctionne pas - svp
Réponses
2
Affichages
990
ThierryP
T
Q
  • Résolu(e)
Microsoft 365 Compréhension d'une macro pour réutilisation
Réponses
10
Affichages
1 K
Quent17
Q
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…