Macro qui se déclenche automatiquement en fonction du changement d'une cellule

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion thom02
  • 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
T

thom02

Guest
Bonsoir,

Me voilà à nouveau avec un problème de déclenchement automatique d'une macro.

Je vous explique.

je voudrais afficher une colonne si C25 > 0 %
Masquer une colonne si C25 = 0%

Avec le code ci dessous cela semble fonctionner pour l'affichage de la colonne mais pas pour le masquage 😕

Un grand merci pour votre aide !!


Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
y = (Target.Address = "$C$25") '+ (Target.Count = 1) + (Not IsEmpty(Target))) + 5
If y <> "" And Target.Address = "$C$25" Then

    MsgBox "plus grand que 0%"
    Feuil49.Columns("j:j").Hidden = False

End If

If y = IsEmpty(Target) And Target.Address = "$C$25" Then

    MsgBox "0%"
    Feuil49.Columns("j:j").Hidden = True
End If

End Sub
 
Trier par date Trier par votes
Re : Macro qui se déclenche automatiquement en fonction du changement d'une cellule

Bonjour à tous,

Peux-tu essayer avec :

VB: 
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$25" Then
If Target > 0 Then
    MsgBox "plus grand que 0%"
    Feuil49.Columns(10).EntireColumn.Hidden = False
End If
If IsEmpty(Target) Then
    MsgBox "0%"
    Feuil49.Columns(10).EntireColumn.Hidden = True
End If
End If
End Sub

A+ à tous
 
Vote positif 0 Vote négatif
Re : Macro qui se déclenche automatiquement en fonction du changement d'une cellule

bonjour thom02,JCGL,Hasco
Feuil49 ???
je verrais bien dans ce style

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
Columns(10).EntireColumn.Hidden = IIf(Target.Address = "$C$25" And Target = 0, True, False)
End Sub

indirectement en changeant n'importe cellule ou par formule

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
Columns(10).EntireColumn.Hidden = IIf([c25] = 0, True, False)
End Sub

enfin ...pas forcement compris la finalité
 
Vote positif 0 Vote négatif
Re : Macro qui se déclenche automatiquement en fonction du changement d'une cellule

Bonjour à tous


Juste pour saluer le style de laetitia90, (tout à fait dans mon style, j'adore IIF)
Allez pour une fois je zappe le IIF (et pour le fun)
Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
Columns(10).EntireColumn.Hidden = ([c25] = 0) * -1
End Sub

Messieurs Hasco et JCGL (salutations enneigées à vous deux) , je ne peux décemment à cette heure matinale me joindre à vos festives libations.
J'ai encore le gout du café sur ma langue

Je voudrai pas salir mon clavier par une malencontreuse régurgitation café+alcool.

Mais sachez que le coeur y est, je trinque donc virtuellement à la vôtre 😉
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Macro qui se déclenche automatiquement en fonction du changement d'une cellule

Bonjour Thom, Laetitia, Staple, JC,

C'est parti pour un un petit noir de comptoir pour les amis.

Code: 
MsgBox Array("0%", "supérieur à 0%")(([c25] > 0) * -1)

Quid des inférieurs à zéro, des vides, des valeurs textuelles?

A+
 
Vote positif 0 Vote négatif
Re : Macro qui se déclenche automatiquement en fonction du changement d'une cellule

Re JCGL


Avec les MsgBox inclues (mais j'ai un léger doute 😉 sur la véracité mathématique de mon IIF)
EDITION: c'est plus un doute, c'est une certitude 😱
Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
Columns(10).EntireColumn.Hidden = ([C25] = 0) * (MsgBox(IIf([C25] = 0, "<=0", ">0"), vbOKOnly, "titre"))
End Sub
EDITION: Bonjour Hasco, t'avais point vu passé, Désolé
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Macro qui se déclenche automatiquement en fonction du changement d'une cellule

Bonjour et merci pour vos nombreuses réponses.

Malheureusement je me perds dans la minimalisation de votre code et donc suis resté à la version longue 😕

Me voilà avec une code qui semble ne pas fonctioner car la deuxième condition n'entre pas....

Pour info je sélectionne un client et en fonction du client choisi, la case $C$25 se modifie avec un % lié à ce client. Ce % sera 0>=.

Merci une fois de plus pour votre aide


Code: 
If Target.Address = "$C$25" Then
If Target > 0 Then
    MsgBox "plus grand que 0%"
    Feuil49.Columns(10).EntireColumn.Hidden = False
Else
If IsEmpty(Target) Or Target = 0 Then
    MsgBox "0%"
    Feuil49.Columns(10).EntireColumn.Hidden = True
End If
End If
 
Vote positif 0 Vote négatif
Re : Macro qui se déclenche automatiquement en fonction du changement d'une cellule

Bonjour Thom,

Lorsque tu n'y arrives pas avec une condition, il suffit souvent de la formuler différement en langage courant pour parvenir à un résultat.

Si la cellule C25 n'est pas vide et est >0 alors afficher la colonne 10 de la feuille 49.

En vba:

Code: 
If Target.Address = "$C$25" Then
If not IsEmpty(Target) and Target > 0 Then
   MsgBox "plus grand que 0%"
   Feuil49.Columns(10).EntireColumn.Hidden = False
else ' zéro ou vide
    MsgBox "0%"
    Feuil49.Columns(10).EntireColumn.Hidden = True
End If
End If
Et si tu ne veux pas multiplier les 'If...Endif':

Code: 
If Target.Address = "$C$25"  And not IsEmpty(Target) and Target > 0 Then
   MsgBox "plus grand que 0%"
    Feuil49.Columns(10).EntireColumn.Hidden = False
else ' zéro ou vide
    MsgBox "0%" 
    Feuil49.Columns(10).EntireColumn.Hidden = True
End IF

A+
 
Dernière modification par un modérateur:
Vote positif 0 Vote négatif
Re : Macro qui se déclenche automatiquement en fonction du changement d'une cellule

Bonjour,

En fait c'est un tout petit peu plus compliqué.. car en faite cela fait intervenir une autre cellule.
Le choix du client se fait en C25 via un menu déroulant et le pourcentage arrive automatiquement en L25.
Mais voila tous les clients de sont pas forcement dans le menu déroulant du coups je peux devoir entrer les donnée manuellement dans la cade L25 ce qui n'entre pas dans le condition du code ci dessous.

De plus avec le code ci dessous il semble que quoi que je fasse dans ma fenetre le code MsgBox "plus grand que 0%"
s'exécute...

pourriez vous m'aider à le corriger?
D'avance merci

Th.

Code: 
If Target.Address = "$C$25" And Not IsEmpty(Range("L25")) And Range("L25") > 0 Then
   MsgBox "plus grand que 0%"
    Feuil49.Columns(10).EntireColumn.Hidden = False
Else ' zéro ou vide
    MsgBox "0%"
    Feuil49.Columns(10).EntireColumn.Hidden = True
End If
 
Dernière modification par un modérateur:
Vote positif 0 Vote négatif
Re : Macro qui se déclenche automatiquement en fonction du changement d'une cellule

Re,

Je remplacer L25 par $C$25 dans:

Code: 
If Target.Address = "$C$25" And Not IsEmpty(Range("L25")) And Range("L25") > 0

Pour le reste et sans fichier exemple avec explication claires et détaillées, je n'irai pas plus loin.(nous ne sommes pas devin)

A+
 
Vote positif 0 Vote négatif
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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

U
  • Question Question
Autres [RÉSOLU] macro à modifier
Réponses
1
Affichages
617
un internaute
U
U
  • Question Question
Autres [RÉSOLU] Compléter macro pour Suppr cellules
Réponses
7
Affichages
456
un internaute
U
U
  • Question Question
Autres [RÉSOLU] Compléter la macro mais comment et où?
Réponses
2
Affichages
742
un internaute
U
pascal21
  • Question Question
XL 2016 intégrer une macro sur les nouvelles feuilles crées
Réponses
6
Affichages
232
pascal21
pascal21
P
  • Résolu(e)
XL 2021 Comment détecter la modification MANUELLE d'une cellule dans une feuille ?
Réponses
3
Affichages
328
PRy
P
S
  • Résolu(e)
Microsoft 365 Déclenchement macro en série suite à cellule fusionnées
Réponses
3
Affichages
534
spike29
S
richardlion
  • Question Question
XL 2016 annulation ou désactivation de macro
2
Réponses
27
Affichages
1 K
job75
job75
N
  • Question Question
XL 2013 Utilisé deux CommandButton_Click dans la même feuil
Réponses
4
Affichages
430
patricktoulon
patricktoulon
L
  • Résolu(e)
Microsoft 365 Extraire les données de la valeur cherchée en note
Réponses
5
Affichages
445
Lau01150
L
klin89
  • Question Question
Microsoft 365 Méthode Evaluate pour se dispenser d'une boucle imbriquée
Réponses
14
Affichages
826
patricktoulon
patricktoulon
F
  • Question Question
Microsoft 365 Problème mémoire insuffisante
Réponses
5
Affichages
910
TooFatBoy
TooFatBoy
piga25
  • Résolu(e)
XL 2016 En VBA, Automatiser la réponse en fonction de l'état d'une cellule.
Réponses
7
Affichages
872
piga25
piga25
C
  • Question Question
XL 2016 VBA - Mettre en Indice une partie du contenu d'une cellule : problème avec la propriété Font.Subscript
Réponses
2
Affichages
573
crocrocro
C
U
  • Question Question
Autres incorporer une macro dans une autre macro
Réponses
5
Affichages
795
Phil69970
Phil69970
Lu76Fer
  • Résolu(e)
XL 2016 XLS - Comment déterminer les zones présentent au niveau d'une cellule ?
Réponses
2
Affichages
847
Lu76Fer
Lu76Fer
patricktoulon
  • Suggestion Suggestion
Date et heure fonction férié pour faire suite a la fonction paques avec l'ago de meuss méthode butcher
Réponses
2
Affichages
328
patricktoulon
patricktoulon
M
  • Résolu(e)
XL 2021 PUBLIPOSTAGE : Mise en forme du corps de message issu d'une cellule excel (VBA)
Réponses
4
Affichages
809
Minus&Cortex
M
P
  • Résolu(e)
Microsoft 365 Macro qui change l'épaisseur du contour d'une forme
Réponses
11
Affichages
755
pat66
P
P
  • Question Question
XL 2021 Ajout/adaptation de code VBA sur feuille qui en contient déjà
Réponses
3
Affichages
426
Pierreavecunp
P
N
  • Résolu(e)
Microsoft 365 Format date d'une textbox vers une cellule
Réponses
8
Affichages
830
ChTi160
ChTi160
Retour