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

problème avec worsheet_change

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
N

natbru

XLDnaute Occasionnel
Bonjour et joyeux noël a tous,

quand même le jour du réveillon sur excel, ca craint, mais bon je vais tout de meme vous poser ma question !!

Je cherche à ouvrir un userform lorsque ma valeur de la cellule S5 est modifié en 'GAGNE'

J'ai mis le code suivant sur la feuille 'AFFAIRES' mais ca ne fonctionne pas ??

Code: 
Sub worksheet_Change(ByVal Target As Range)

Range('s5').Value = Target.Value

If Range('S5').Value = 'GAGNE' Then Produits.Show
    
End Sub

De plus, je voudrais que ce soit dynamique quand je crée une nouvelle affaire.

Je ne suis pas sure d'etre claire mais mon fichier ci-joint devrait être plus expressif.

Merci.
 
Trier par date Trier par votes
Bonjour DAN,

J'ai testé le code que tu m'a donné mais ca ne va encore pas car maintenant lorsque qu'une nouvelle affaire est insérée, les cellules qui ne contiennent pas de formules ne sont pas effacées. De plus, la ligne s'insère en avant dernière sur le tableau alors qu'il faudrait qu'elle s'insère soit en dernière, soit en première.

Mais je te remercie beaucoup pour le temps que tu m'as consacré. Je crois que j'ai visé un peu trop haut pour débuter en vba, je vais donc me laisser ce problème de côte pour le moment et je vais essayer d'apprendre des choses plus simple d'abord.

Encore mille mercis.

A bientot sur le forum.
 
Vote positif 0 Vote négatif
Bonsoir Natbru,

Bien lu ton message. J'ai deux questions par rapport à cela :

- Est-ce que l'on peut copier la nouvelle ligne en ligne 4 car tu as laissé une ligne vide dans ton fichier.
- Quelles sont les endroits (colonnes) où il y a des formules. Icic je ne vois des formules que dans la colonne A.

Merci

😉
 
Vote positif 0 Vote négatif
Bonjour DAN,

Voici les réponses à tes deux questions :

- j'ai laissé la ligne 4 vide car j'ai nommé des plages de cellules (exemple : selectionne (s4;s5), tu verras que ca s'appelle 'résultat'), hors si tu copies en ligne 4 lorsque tu insère des lignes par la suite la plage 'resultat' ne va pas s'agrandir avec l'insertion de ligne mais se contenter de rester (s4;s5), je ne sais pas si je suis trés claire (c dur a expliquer).
J'ai fait comme ça car je ne voyais pas comment faire autrement, je me sers des noms des plages pour écrire les formules sur la feuille 'COMPTEUR PARIS'.


- les colonnes A et V contiennent des formules et en plus il y a la mise en forme conditionnelle.

Merci et à bientôt.
 
Vote positif 0 Vote négatif
Bonjour,

Merci mais je ne comprends toujours pas ton explication au sujet de la ligne 4. Je vois bien que tu as attribué un nom 'Résultats' à la plage S4:S5; mais à mon avis c'est uniquement à la plage active que cela doit être appliqué (donc S5 dans tonn cas).

Essaie ce correctif à la macro 'Inserelignes' :
Code: 
Sub INSERERLIGNES()
'Macro par DAN pour natbru
'Fil : [B]Lien supprimé[/B]

With Application
    .ScreenUpdating = False
    .EnableEvents = False
End With
Sheets('AFFAIRES').Range('A65536').End(xlUp).Activate
With ActiveCell
    .EntireRow.Offset(0, 0).Copy
    .Insert Shift:=xlDown
End With
i = 2
For i = 2 To 21
ActiveCell(1, i) = ''
Next i
With Application
    .EnableEvents = True
    .CutCopyMode = False
    .ScreenUpdating = False
End With
End Sub

La macro conserve la mise en forme conditionnelle et supprime les données comprises entre la colonne 2 et 21.

A te lire

😉
 
Vote positif 0 Vote négatif
Bonjour DAN,

Concernant le rectif de ta macro, c'est niquel, sauf une petite chose, les lignes sont insérer à l'avant dernière place et non à la dernière (ou première) mais plus de problème concernant l'ouverture du USF.

Concernant cette fameuse ligne 4, le mieux est que tu fasses la manip suivante (pour comprendre ce que je veux te dire):

1) avec la ligne 4 :
- selectionne (I4;I5), la plage de cellule est nommée 'PRESCRIPTION'
- insère une ligne, selectionne (I4;I6), toujours OK pour le nom de la plage

Maintenant supprime la ligne 4.

2) sans la ligne 4 :
- selectionne I4 = 'PRESCRIPTION'
- insère une ligne, selectionne (I4;I5), plus de nom, le nom concerne maintenant uniquement I5.

Hors dans la feuille 'COMPTEUR PARIS', je fais référence à ces plages de cellules et si on opte pour la seconde solution, les calculs ne concerneront qu'une seule ligne et non le tableau en entier.

J'espère avoir réussi à te faire comprendre le pourquoi de cette ligne 4.

Merci beaucoup pour ton intérêt.

A bientôt.
 
Vote positif 0 Vote négatif
Bonjour Natbru,

concernant ce que tu écris :

1. La macro
contrairement à ce que tu écris, la macro insère toujours une ligne complète juste avant la dernière ligne. Vérifie en cliquant sur le bouton 'nouvelle affaire' et encode quelques infos dans cette nouvelle ligne. Puis ensuite reclique sur le botuon 'nouvelle affaire' et tu verras que cette nouvelle ligne s'insère juste avant la dernière.

2. La ligne 4
De fait, ce que tu expliques est exact. Toutefois, une manière de contourner cela est de créer directement deux lignes pour commencer. A partir de ce moment tu n'as plus besoin de cette ligne vide.
Plus facile alors pour exploiter des résultats divers.

😉
 
Vote positif 0 Vote négatif
Bonjour DAN,

Effectiment tu as raison concernant la ligne 4, je l'ai donc supprimer.

Par rapport à l'insertion de la ligne, j'ai bien vu qu'elle s'insérait à l'avant dernière ligne du tableau mais j'aurai voulu qu'elle s'insère en dernière ligne. Cela dit, en faisant ça, le problème des noms des plages se reposerait, alors je laisse comme ça.

Je te remercie pour la Nieme fois pour tout l'aide précieuse que tu m'as donnée. Ca fait vraiment plaisir de voir comme, toi et les autres membres du forum, avez le soucis de partager vos connaissances.

Je te souhaite un trés bon réveillon et une bonne année à venir,

a trés bientôt sur le forum.

Natacha
 
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

S
  • Résolu(e)
XL 2021 enregistrer xltm en xlsm avec chemin automatiquement
2
Réponses
27
Affichages
593
TooFatBoy
C
  • Question Question
Microsoft 365 worksheet_change
2
Réponses
29
Affichages
1 K
CortoXls
C
S
  • Résolu(e)
Microsoft 365 Ecrasement d'une ligne si déjà existante
Réponses
2
Affichages
453
sebastien176
S
L
  • Résolu(e)
Microsoft 365 Extraire les données de la valeur cherchée en note
Réponses
5
Affichages
445
Lau01150
L
M
  • Question Question
XL 2021 macro VBA
Réponses
4
Affichages
586
ManuEven
M
S
  • Résolu(e)
Microsoft 365 Cliquer pour ouvrir des photos
Réponses
7
Affichages
958
Simon 1234
S
P
  • Question Question
Microsoft 365 problème de filtre avec une checkbox
2
Réponses
18
Affichages
1 K
ChTi160
D
  • Résolu(e)
XL 2019 Nouveau Numéro
2 3 4
Réponses
57
Affichages
3 K
patricktoulon
T
  • Résolu(e)
XL 2021 Incompatibilité de type avec un userform
2
Réponses
19
Affichages
1 K
Bernard38
D
  • Question Question
envois automatique d'email avec EXCEL et une MACRO
Réponses
4
Affichages
2 K
AtTheOne
S
  • Question Question
Microsoft 365 Clavier virtuel: SelectionChange, empêche la répétition
Réponses
3
Affichages
537
Simon 1234
S
  • Question Question
XL 2021 Exportation feuille msgbox yes no avec module Thisworkbook
2
Réponses
21
Affichages
2 K
Nicolas JACQUIN
K
  • Question Question
Microsoft 365 création mot passe classique avec un code
Réponses
1
Affichages
460
Gégé-45550
N
  • Question Question
Microsoft 365 Imbrication de deux formule Worksheet_BeforeDoubleClick
Réponses
1
Affichages
461
Nathan027
N
  • Résolu(e)
XL 2016 If Not xRgSel Is Nothing Then --> Ne marche pas
Réponses
10
Affichages
738
R3n0W
K
  • Résolu(e)
XL 2013 Amélioration code VBA
Réponses
6
Affichages
574
vgendron
  • Question Question
Autres Petite mise a jour (exceptionnellement pour cp4) du calendar V4.1(OLDVERSION)
2
Réponses
21
Affichages
2 K
patricktoulon
Z
  • Résolu(e)
Microsoft 365 Problème de combinaison entre fonctions "If Then Else" et "SelectCase"
Réponses
11
Affichages
932
Zonmé
Z
  • Résolu(e)
XL 2019 Problème avec une macro :(
2
Réponses
27
Affichages
2 K
TooFatBoy
P
  • Résolu(e)
XL 2019 Conditions dans Worksheet_Change(ByVal Target As Range)
Réponses
4
Affichages
658
pat66
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…