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

Worksheet_Calculate

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion bibbip35
  • 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
B

bibbip35

XLDnaute Occasionnel
Bonjour à tous

je rencontre 1 pb concernant une fonction vba que je souhaitais utiliser
Private Sub Worksheet_Calculate(ByVal Target As Excel.Range)

L'objectif étant que quand je modifie la cellule D5 ( dans l'exemple ci-joint) de la feuille 6
Ca modifie la cellule K1 de l'autre feuille ...Jusqu'a la pas de problème

Mais c'est quand la cellule K1 est recalculée ; je dois avoir 1 macro qui s'execute
1/ Si K1 <> rien => bordure
2/ Si K1 = Rien => plus de bordure

Mon problème est que ca me signale 1 pb :
"La déclaration de procédure ne correspond pas à la description de l'événement ou de la procédure de même nom"

Avez vous une idée sur le problème?

Merci à tous

Bibbip35
 

Pièces jointes

Trier par date Trier par votes
Re : Worksheet_Calculate

Desolé je viens de comprendre MFC : Mise en forme conditionelle..

C'est 1 idée...mais la macro est prevu également pour inserer du texte...c'est la également mon pb...

Merci
 
Vote positif 0 Vote négatif
Re : Worksheet_Calculate

Re

Sorry !

Avec une formule de MFC (tu connais maintenant 😱) sur K1 : =Feuil6!D5=""

Edit : la procédure Worksheet_Calculate n'a pas d'arguments ! D'où le message d'erreur.

Edit 2 : coucou JCGL. Bise 😉
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Worksheet_Calculate

Bonjour à tous,
Salut Chris

Calculate n'est pas compatible avec (ByVal Target as Range)...

VB: 
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Application.Intersect(Target, Range("K1")) Is Nothing Then
        If Range("K1") <> Range("K2") Then
            Range("K5") = "dfdsf"
            Range("K5:L8").Borders.LineStyle = xlContinuous
        Else
            With Range("K5:L8")
                .Borders.LineStyle = xlNone
                .ClearContents
            End With
            Range("H6") = "GAGNER"
            Range("H7").Select
        End If
        End If
    End Sub

Bise à Chris
A+ à tous
 
Dernière édition:
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

D
  • Question Question
Microsoft 365 Mise à jour des références / liens depuis un sharepoint
Réponses
3
Affichages
590
Dégé59
D
A
  • Question Question
XL 2021 Calculer le prorata d'un objectif en fonction de l'arrivée ou du départ du salarié
Réponses
4
Affichages
369
job75
M
  • Question Question
XL 2021 macro VBA
Réponses
4
Affichages
550
ManuEven
M
  • Question Question
Microsoft 365 Macro pour redimensionner une zone nommée
Réponses
12
Affichages
659
Staple1600
D
  • Résolu(e)
XL 2019 Nouveau Numéro
2 3 4
Réponses
57
Affichages
3 K
patricktoulon
K
  • Résolu(e)
XL 2016 Affichage TextBox
Réponses
6
Affichages
780
KRUG WOO
K
M
  • Résolu(e)
Power Query Convertir un fichier PdF en Excel et restitution d'un état de synthèse
Réponses
10
Affichages
1 K
Merlin258413
M
  • Résolu(e)
XL 2013 (RESOLU) Modification Manuelle et changement Automatique
Réponses
9
Affichages
842
job75
C
  • Résolu(e)
Autres Code VBA pour recherche et copie/coller de ligne avec mot clé.
Réponses
12
Affichages
1 K
Corentin26270
C
J
  • Question Question
Microsoft 365 macro qui ouvre des fichiers excel de type "analyze in excel" généré par power bi et met à jour un filtre "mois" sur plusieurs tcd
Réponses
0
Affichages
621
JJ69
J
O
  • Question Question
XL 2016 Erreur d'exécution 32809 Erreur définie par l'application ou par l'objet
Réponses
0
Affichages
456
Oddoneju
O
O
  • Question Question
Autres VBA test et action selon valeur de la première cellule visible en colonne A après un tri
Réponses
8
Affichages
1 K
Oko
O
  • Résolu(e)
XL 2013 (RESOLU) Classement par zone (de 01 - 50) selon la cellule D5
Réponses
12
Affichages
831
chaelie2015
M
  • Question Question
Microsoft 365 Formule inopérante pour recherche de doublons
2 3
Réponses
43
Affichages
3 K
moanin
M
A
  • Question Question
XL 2016 Adapter une image à une cellule
2
Réponses
16
Affichages
3 K
Dudu2
  • Question Question
XL 2021 Problème d'accès aux datas d'une autre feuille fermée
3 4 5
Réponses
62
Affichages
3 K
p'tit vieux
J
  • Question Question
XL 2019 Ruban inactif après ouverture fichier en VBA
Réponses
7
Affichages
974
Jacques25bis
J
L
  • Résolu(e)
XL 2016 Problème liaison USF vers tableau et inversément
Réponses
1
Affichages
622
Ludo G
L
L
  • Question Question
Power Query groupés deux tableaux qui existent sur la même feuille et ajout d'information supplémentaire
Réponses
7
Affichages
1 K
Aurelili
A
P
  • Résolu(e)
XL 2013 Mise en forme suite à utilisation de UserForm
Réponses
4
Affichages
778
PR.
P
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…