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

Ouverture d'un Userform

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

Ridame

Guest
Bonjour à tous,

Je me retrouve encore coincé 🙁
Je voudrais que quand je modifie la colone C d'une feuille un Userform s'ouvre.

j'ai utilisé ce code teste:
Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    
    If Target.Value <> "" Then
        UserForm1.Show
        
    End If
    
    
End Sub

mais cela ne marche pas.
Donc je demande votre aide.

Cordialement
 
Trier par date Trier par votes
Re : Ouverture d'un Userform

bonjour carcharodon-carcharias

merci de te penché sur mon cas, j ai testé et ca n'a pas marché

mais j'ai reussi a trouvé chaussure a mon pied
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

If Target.Value <> "" Then
UserForm1.Show
End If

End Sub
Cliquez pour agrandir...

cordialement
 
Vote positif 0 Vote négatif
Re : Ouverture d'un Userform

bjr ridame et carcharodon

avec ton code c'est depuis n'importe quelle cellule qu'est affiché ton userform alors que tu ne le souhaitais que depuis la modif d'une des cellules de la colonne C

dans le code de carcharodon il faut ajouter : end if avant end sub et augmenter le nombre de cellules concernées dans la colonne C

cordialement, Gérard
 
Vote positif 0 Vote négatif
Re : Ouverture d'un Userform

natorp à dit:
...
Cliquez pour agrandir...

Bonjour Gérard

En effet, j'avais dis que je cherchais que pour la colone C, mais vu que j'arrivais pas du tout, j'ai voulu avoir la syntaxe pour tout les cellules(d'ou la fonction teste)...
Maintenant je peux ajouter le "if" de carcharodon-carcharias...

Merci encore a vous

Cordialement
 
Vote positif 0 Vote négatif
Re : Ouverture d'un Userform

Bonjour à tous

en l'absence de cc...

dans le code de carcharodon il faut ajouter : end if avant end sub et augmenter le nombre de cellules concernées dans la colonne C

cordialement, Gérard
Cliquez pour agrandir...

pas besoin de "end if" si l'instruction suit le "then" sur la même ligne...

bonne soirée
@+
 
Vote positif 0 Vote négatif
Re : Ouverture d'un Userform

Rebonjour à Tous,

@carcharodon-carcharias: je viens de remettre une ligne de code, il fallait juste que je mets Workbook_SheetChange

Maintenant j'aurai toujours une question par rapport a ce sujet.
Quand je modifie la case, Le userForm s'ouvre, mais j'aimerai bien savoir qu'elle a été la case modifier.

J'ai fais quelque recherche, mais j'ai rien trouvé...
Je vais faire suivre un fichier teste pour vous expliquez exactement ce que je veux...

Edite:j'ai écris Unloard, pour le bouton valider, dsl pour ce mini bug
 

Pièces jointes

Dernière modification par un modérateur:
Vote positif 0 Vote négatif
Re : Ouverture d'un Userform

Re,

ce code est à utiliser dans le module de la feuille concernée ou du module "thisworkbook", événement lié à l'objet "sheet" ... où "target" représente la / les cellule(s) modifiée(s)... soit :

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)

ou :

Code: 
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

@+
 
Vote positif 0 Vote négatif
Re : Ouverture d'un Userform

Pierrot93 à dit:
ou :

Code: 
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

@+
Cliquez pour agrandir...

Re

J'utilise exactement ca

Code: 
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

If Not Application.Intersect(Target, Range("C1:C200")) Is Nothing Then UserForm1.Show

End Sub

Je suis obligé d'utiliser workbook, car d'autres feuilles seront crées.

@carcharodon-carcharias: c'est presque ca, sauf que le worksheet ne me convient pas...
j'ai essayé d'adapter ton code avec un workbook, mais sans succès...

Merci encore a vous deux de m'aider

Edite:
je viens de penser a un truc, est il possible d'ajouter un worksheets a une feuille pendant ca création?(OUla je galère a m'exprimer)...
j'ai des boutons qui me permet de créer des feuilles, je voudrais savoir s'il etait possible d'ajouter des Macro aux nouvelles feuilles?
 
Dernière modification par un modérateur:
Vote positif 0 Vote négatif
Re : Ouverture d'un Userform

Re, bonjour cc

le code ci-dessous fonctionne chez moi...

Code: 
Option Explicit
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Not Application.Intersect(Target, Range("C1:C200")) Is Nothing Then
    MsgBox Target.Address(0, 0)
    UserForm1.Show
End If
End Sub

@+
 
Vote positif 0 Vote négatif
Re : Ouverture d'un Userform


RE
Tu déchires Pierrot, j'ai remplacer le msgbox, par des Userform1.textbox1, userform1.textbox2 etc...
ca marche parfaitement, je vais pouvoir bien avancer...

Merci encore a toi et a carcharodon-carcharias
 
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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

  • Résolu(e)
XL 2019 Modifier ce code pour de sorte à y rajouter un commentaire après clic droit en colonne I (9) à préremplir mais vierge ?
Réponses
8
Affichages
273
anthoYS
  • Résolu(e)
XL 2019 Comment modifier ces codes VB de sorte que le clic droit sur un commentaire présent, permette l'édition et non cette erreur (capture) ?
Réponses
6
Affichages
250
anthoYS
  • Résolu(e)
XL 2019 Adapter ce code, et améliorer le tableau avec graphique à l'année à y insérer ?
Réponses
4
Affichages
477
sylvanu
U
  • Question Question
Autres [RÉSOLU] macro à modifier
Réponses
1
Affichages
617
un internaute
U
S
  • Question Question
Microsoft 365 VBA Action suivant le résultat d'une cellule
Réponses
7
Affichages
315
TooFatBoy
  • Question Question
XL 2016 intégrer une macro sur les nouvelles feuilles crées
Réponses
6
Affichages
224
pascal21
O
  • Question Question
XL 2016 [RÉSOLU] Charger une macro dés l'ouverture d'Excel
Réponses
8
Affichages
205
Dudu2
N
  • Question Question
Microsoft 365 gestion de kilometrage
Réponses
4
Affichages
474
nabilexcel2007
N
  • Question Question
XL 2016 Renseigner une plage 2 a partir d'une plage 1 selon le mois.
Réponses
4
Affichages
267
KTM
J
  • Question Question
Microsoft 365 Worksheet_Change ou Worksheet_Calculate
Réponses
9
Affichages
506
job75
  • Résolu(e)
XL 2010 Userform Plein Ecran VBA7
2
Réponses
16
Affichages
764
cathodique
P
  • Résolu(e)
Microsoft 365 Dateur Patricktoulon
2 3
Réponses
41
Affichages
1 K
Piment
P
U
  • Question Question
Autres [RÉSOLU] Compléter la macro mais comment et où?
Réponses
2
Affichages
738
un internaute
U
U
  • Question Question
Autres [RÉSOLU] Compléter macro pour Suppr cellules
Réponses
7
Affichages
455
un internaute
U
P
  • Résolu(e)
Microsoft 365 VBA - Survol d'un Label déclenchement action
Réponses
8
Affichages
326
patricko-13
P
C
  • Résolu(e)
XL 2016 Double-Clic dans une cellule déclenche l'événement Worksheet_Change
Réponses
7
Affichages
303
TooFatBoy
  • Question Question
Microsoft 365 datepicker dynamique intra userform ou dans feuille 2 versions(frame dynamique)(toute version d'excel )
6 7 8
Réponses
105
Affichages
5 K
Usine à gaz
C
  • Résolu(e)
XL 2021 Mise en forme MsgBox
2 3
Réponses
43
Affichages
1 K
Constantin
C
Y
  • Résolu(e)
XL 2019 Compter le nb de Fichier dans un dossier afin de créer une nouvelle version
Réponses
2
Affichages
542
youguybass
Y
T
  • Résolu(e)
Microsoft 365 VBA Exporter une sélection de plages nommées au format PDF
Réponses
12
Affichages
1 K
tnion
T
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…