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

XL 2013 Code vba pour ouverture d'un userform

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

Maya1966

XLDnaute Nouveau
Bonjour,

Je voudrais qu'un userform s'ouvre lorsque je selectionne une cellule de la colonne A et que la cellule adjacente dans la colonne B comporte la valeur 0

Auriez-vous une piste en VBA ?

Merci d'avance pour votre aide

Olivier
 
Trier par date Trier par votes
Bonjour Eric,

Merci pour ta prompte réponse et pour ton aide.
le code fonctionne très bien, cependant j'aurais aimer que le Userform s'ouvre après avoir choisi une option dans la liste déroulante de la colonne A et qui selon la selection va afficher une valeur dans la colonne B et si celle-ci et zéro, alors le Userform s'ouvre.
j'ai créé l'exemple dans la feuille du fichier joint

merci d'avance 🙂

Maya1966
 

Pièces jointes

Vote positif 0 Vote négatif
Bonjour le fil
Bonjour Philippe

Il est vrai que assez souvent, les questions se finalisent en plusieurs étapes 🙂.
Par ailleurs, je n'avais pas ajouté de limite de cellule (variable) dans la mesure où il y avait une liste de validation qui canalisait dans le présent cas, la "zone d'action".
Bonne journée à toutes & à tous
@+ Eric c
 
Vote positif 0 Vote négatif


Phil69970 à dit:
Bonjour @Maya1966 , Eric

J'ai légèrement revu le code d'Eric (de SelectionChange à Change) et j'ai rajouté une variable

@Phil69970
Cliquez pour agrandir...
 
Vote positif 0 Vote négatif
Bonjour Phil69970,

Merci pour le code qui fonctionne à merveille.
je voudrais utiliser le même code pour la colonne M depuis la cellule M10 et la cellule adjacente en 22 = colonne AI

Le UserForm1 s'ouvre dans la cellule M10 mais dans les cellules plus basses il ne s'ouvre pas alors que la valeur est à 0

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Derlig&
Derlig = Feuil1.Cells(Feuil1.Rows.Count, "M").End(xlUp).Row
If Not Application.Intersect(Target, Range("M10:M" & Derlig)) Is Nothing Then
If Target.Offset(, 22) = "0" Then UserForm1.Show
End If
End Sub

merci pour votre aide

Maya1966
 
Vote positif 0 Vote négatif
Re le fil

@Maya : 😡 Dans ton fichier mis en ligne : Si l'entête de ton tableau "Liste" débute en A"9", l'entête de celui nommé "Montant" doit débuter en AI"9" et non AI"10".
VB: 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Derlig&
Derlig = Feuil1.Cells(Feuil1.Rows.Count, "M").End(xlUp).Row
If Not Application.Intersect(Target, Range("M10:M" & Derlig)) Is Nothing Then
    If Target.Offset(, 22) = "0" Then MsgBox "coucou"
End If
 End Sub
Bonne soirée à toutes & à tous
@+ Eric c
 
Vote positif 0 Vote négatif
Bonsoir à tous,

J'écrirais plus simplement :
VB: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target(1), Range("M10:M" & Rows.Count)) Is Nothing Then If Target(1, 23) = 0 Then UserForm1.Show
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

S
  • Question Question
Microsoft 365 code vba pour chaine de caractère
Réponses
4
Affichages
406
vgendron
D
  • Résolu(e)
XL 2019 Formule qui suit le total général d'un TCD ( galère ! )
Réponses
4
Affichages
211
AtTheOne
D
  • Résolu(e)
Microsoft 365 MFC sur des cellules au format hh:mm:ss
Réponses
4
Affichages
233
Daffy02
D
O
  • Résolu(e)
XL 2013 Formule ou une programmation VBA qui permette de répartir des numéros de factures par ligne
Réponses
3
Affichages
122
JHA
J
A
  • Question Question
Microsoft 365 Tri sur feuille protégée +Aide protection de données déjà saisies
Réponses
2
Affichages
303
TooFatBoy
A
  • Question Question
Microsoft 365 VBA et "Slicer" dans un TCD (source modèle de données)
Réponses
2
Affichages
138
Amilo
A
J
  • Question Question
Microsoft 365 affichage userform
Réponses
4
Affichages
418
TooFatBoy
C
  • Résolu(e)
Autres Validation de données avant verrouillage de la ligne
2
Réponses
17
Affichages
287
com689
C
M
  • Résolu(e)
XL 2021 Copier/Coller des valeurs d’une feuille à une autre à partir d’une cellule
Réponses
11
Affichages
461
MANU64360
M
F
  • Résolu(e)
Microsoft 365 DatePicker dans Userform pour Excel365 ?
Réponses
12
Affichages
589
patricktoulon
A
  • Question Question
XL 2010 problème lors pour la selection dans un combobox
Réponses
2
Affichages
135
gbinforme
G
  • Question Question
XL 2019 Ajout d'un bouton DELETE sur mon USF
2 3
Réponses
43
Affichages
1 K
Phil Du59
  • Question Question
Microsoft 365 vba pour avoir âge en année mois jours
2
Réponses
18
Affichages
506
Cousinhub
  • Résolu(e)
XL 2016 Excel code vba motus
Réponses
11
Affichages
522
papychat1
  • Résolu(e)
XL 2010 Userform Plein Ecran VBA7
2
Réponses
16
Affichages
532
cathodique
C
  • Question Question
Microsoft 365 optimisation de code
Réponses
6
Affichages
195
Dranreb
D
  • Question Question
Microsoft 365 Code VBA pour date DD/MM/YYYY
Réponses
6
Affichages
432
Staple1600
  • Question Question
XL 2021 VBA - Event / RaiseEvent Comment ça marche ? Timer avec SetTimer()
Réponses
8
Affichages
296
Dudu2
S
  • Résolu(e)
XL 2016 Avis / Aide réécriture code
2 3
Réponses
38
Affichages
430
safranien
S
U
  • Question Question
Autres [RÉSOLU] Compléter la macro mais comment et où?
Réponses
2
Affichages
569
un internaute
U
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…