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

macro qui tourne en rond

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion skun
  • Date de début Date de début

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
S

skun

XLDnaute Occasionnel
Bonjour,

Je suis entrin d'essayer de construire une macro...

Cependant, j'ai un problème que je ne sais comment régler..
Ma macro est trés simple:

Code: 
Sub skun()
If [C6] <> 0 Then
[E6] = [C6] + [D6]
Else
 If [E6] <> 0 Then
[C6] = [E6] - [D6]
End If
End If
End Sub

Enfete, je souhaite que si j'entre une valeur dans C6, alors E6= C6+D6
mais je veux aussi que si je rentre une valeur dans E6,alors C6= E6-D6

La macro marche avec un bouton, mais j'ai essayé de la faire marcher automatiquement lors d'une modification de C6 ou E6:
Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Application.Intersect(Target, Range("C6"),("E6")) Is Nothing Then
        skun
    End If
End Sub
et là c'est la catastrophe, ca tourne en rond et ca bug...😕
je comprend le bug, mais je ne vois comment le contourner... il faudrait trouver une autre facon d'activer la macro peut etre... (il est primordial que la macro s'active automatiquement lors de l'entrée de donnée dans l'une de ces 2 cellules)
A savoir que il faut aussi que ces valeurs puissent s'effacer 😱 sans résistance de la macro
je ne sais pas comment faire, si quelqu'un peut m'éclairer sur la facon de faire svp?

merci

salutations


skun
 

Pièces jointes

Dernière édition:
Trier par date Trier par votes
Re : macro qui tourne en rond

Bonjour

modifies ainsi
Code: 
Private Sub Worksheet_Change(ByVal Target As Range)


    If Not Intersect(Target, Range("C6", "E6")) Is Nothing Then
    Application.EnableEvents = False
        skun
        Application.EnableEvents = True
    End If
End Sub
 
Vote positif 0 Vote négatif
Re : macro qui tourne en rond

Re,

En voulant adapter ma macro à un cas réel,
je me suis apercu que je devais multiplier la macro 50 fois car j'ai 50 lignes...

Je m'explique, je doit faire la meme opération pour chaque ligne.
La macro fonctionne pour une ligne.
Code: 
Sub skun()
If [C6] <> 0 Then
[E6] = [C6] + [D6]
Else
End If
 If [E6] <> 0 Then
[C6] = [E6] - [D6]
End If
End Sub

Elle n'était adapter que pour la ligne 6 , et là j'ai 50 lignes.
Donc j'aimerai savoir si il y a une solution plus rapide que de recopier 50 fois la formule en changement juste la ligne à chaque fois?
 
Vote positif 0 Vote négatif
Re : macro qui tourne en rond

re

essaies ainsi

Code: 
Sub skun(maligne As Integer)


If Range("C" & maligne) <> 0 Then
Range("E" & maligne) = Range("C" & maligne) + Range("D" & maligne)
Else
End If
 If Range("E" & maligne) <> 0 Then
Range("C" & maligne) = Range("E" & maligne) - Range("D" & maligne)
End If
End Sub

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)


    If Not Intersect(Target, Range("C6:C50", "E6:E50")) Is Nothing Then
    Application.EnableEvents = False
        skun (Target.Row)
        Application.EnableEvents = True
    End If
End Sub
 
Vote positif 0 Vote négatif
Re : macro qui tourne en rond

Super, exactement ca!
je te remercie 😀

Aimant beaucoup le principe de l'activation automatique de la macro selon cet exemple , je me demandais, si il était possible de rajouter à ce code , l'activation de la macro si supression d'une des valeur de C6 ou E6 ?

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)


    If Not Intersect(Target, Range("C6", "E6")) Is Nothing Then
    Application.EnableEvents = False
        skun
        Application.EnableEvents = True
    End If
End Sub
 
Vote positif 0 Vote négatif
Re : macro qui tourne en rond

Re, j'ai pas encore tester ta dernière réponse..(car c'était pour un autre cas)

par contre je suis tomber sur un os ..
enfete j'ai une macro "Clear" qui efface toutes les valeurs C et E
et enfete ca fait buggué la macro...aprés elle marche plus 🙁

La supression est impossible sans faire buggué la macro?
C et E étant liée ... j'ai pensé que c'était dûe à une mauvaise synchronisation de la supression vu le nombre de lignes (50)

salutations

skun
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Re : macro qui tourne en rond

re,

j'utilise excel 2003,
mais là ca marche avec Application.EnableEvents = False / true

C'est vraiment super, je te remercie de l'aide que tu m'as apportée!
apparament j'ai plus de soucil sur ce cas. Je finirai l'adaptation ce soir (au pire je remonterai le fils, mais je pense que ca ira)

encore merci !

à bientot

salutations


skun
 
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

H
  • Résolu(e)
XL 2016 Copier cellule dans un autre onglets
2
Réponses
16
Affichages
885
Phil69970
  • Résolu(e)
XL 2019 Clic droit en F doit afficher la fenêtre de commentaire, prêt à saisir vierge. Qu'est-ce qui cloche ici ? ça copie...
Réponses
1
Affichages
98
anthoYS
U
  • Question Question
Autres [RÉSOLU] Macro qui bug et je ne sais pas la corriger!!!
Réponses
7
Affichages
381
un internaute
U
J
  • Résolu(e)
Microsoft 365 Valeur cellule dans un macro
Réponses
14
Affichages
311
juju91
J
U
  • Question Question
Autres [RÉSOLU] macro à modifier
Réponses
1
Affichages
559
un internaute
U
J
  • Question Question
Microsoft 365 Worksheet_Change ou Worksheet_Calculate
Réponses
9
Affichages
450
job75
  • Question Question
XL 2021 Réduction temps d'exécution boucle macro
Réponses
11
Affichages
461
TooFatBoy
U
  • Question Question
Autres [RÉSOLU] Compléter la macro mais comment et où?
Réponses
2
Affichages
629
un internaute
U
  • Résolu(e)
XL 2021 Temps réel d'éxécution macro
Réponses
3
Affichages
142
treza88
U
  • Question Question
Autres [RÉSOLU] Compléter macro pour Suppr cellules
Réponses
7
Affichages
392
un internaute
U
T
  • Résolu(e)
XL 2019 Filtrer certains champs au démarrage avec vba
2
Réponses
15
Affichages
1 K
telemarrk
T
S
  • Résolu(e)
Microsoft 365 Déclenchement macro en série suite à cellule fusionnées
Réponses
3
Affichages
492
spike29
S
M
  • Résolu(e)
Microsoft 365 Erreur inexplicable
Réponses
3
Affichages
168
Marie L
M
P
  • Résolu(e)
XL 2021 Comment détecter la modification MANUELLE d'une cellule dans une feuille ?
Réponses
3
Affichages
192
PRy
P
  • Question Question
Autres Petite mise a jour (exceptionnellement pour cp4) du calendar V4.1(OLDVERSION)
2
Réponses
21
Affichages
1 K
patricktoulon
N
  • Résolu(e)
Microsoft 365 Macro enregistrement automatique pdf
2
Réponses
18
Affichages
843
Nounours4173
N
I
  • Résolu(e)
XL 2021 msgbox : timer vbyes
2 3
Réponses
40
Affichages
1 K
isandre
I
  • Résolu(e)
XL 2021 Bug dans code vba
Réponses
8
Affichages
724
thunder23
U
  • Question Question
Autres Quelques fois ça bug feuilles cachées
Réponses
2
Affichages
204
cathodique
P
  • Résolu(e)
Microsoft 365 macro qui permet de basculer entre 2 valeurs composées de formules de type "Formula local"
2
Réponses
15
Affichages
437
cathodique
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…