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

Boîte de dialogue si cellule sélectionnée

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

Matt666

Guest
Bonjour à tous !
Bon c'est parti pour la valse de questions sur VB...
Z'êtes prêts ? ^^

J'ai un projet de programme VB. Etant donné mon incompétence à écrire en VB, je préfère y aller par petits bouts, histoire de comprendre parfaitement la logique d'écriture. Donc il y aura plusieurs messages de ce type avec des questions plus ou moins grotesques.

1ère question : Comment faire pour afficher une boîte dialogue (pour l'instant un msgbox suffira amplement) pour chaque cellule sélectionnée dans une plage de cellules définie ?
Ouf.
Je veux afficher une boîte de dialogue à chaque cellule sélectionnée. Bien entendu cela sous-entend :
  • Un programme qui tourne à partir du moment où le fichier est ouvert, et jusqu'à fermeture du fichier
  • Une boîte de dialogue pour une cellule sélectionnée, donc impossible d'en sélectionner plusieurs. Évidemment la boîte de dialogue est la même pour toutes les cellules !

Comment qu'ils font ?? ^^

PS : Connaissez vous des tutoriels en ligne sympa sur VB ?
 
Dernière modification par un modérateur:
Trier par date Trier par votes
Re : Boîte de dialogue si cellule sélectionnée

Bonjour,

Un début de réponse :
Code à ajouter dans le module de la feuille:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim MaZone As Range
Set MaZone = Range("B2:C3") 'à adapter

If Not Intersect(Target, MaZone) Is Nothing Then
MsgBox "Coucou"
End If
End Sub


Caillou
 
Vote positif 0 Vote négatif
Re : Boîte de dialogue si cellule sélectionnée

Bonjour Matt

regarde le code ci-dessous, à placer dans le module de la feuille concernnée, macro événementielle qui se déclenche à la selection des cellules des plages A1:A25 et C12 : D12 :

Code: 
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count = 1 And Not Intersect(Target, Range("A1:A25,C12:D12")) Is Nothing Then
    MsgBox Target.Address
End If
End Sub

bonne soirée
@+

Edition : bonsoir Caillou
 
Vote positif 0 Vote négatif
Re : Boîte de dialogue si cellule sélectionnée

Salut !
Merci pour vos réponses ! Je vais étudier ça avec intérêt !

Je rappelle quand même que je suis complètement novice en la matière !

Merci !!
 
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

G
  • Question Question
Microsoft 365 Formule qui retourne le contenu de la cellule sélectionnée
Réponses
5
Affichages
491
Guy_M
G
la boite de dialog Application.GetsaveFilename
Réponses
0
Affichages
551
patricktoulon
S
  • Résolu(e)
XL 2021 "Blocage de la mise a jour d'une cellule"
Réponses
8
Affichages
559
Steph733
S
D
  • Résolu(e)
Microsoft 365 VBA Déplacement de la cellule active dans une ligne sélectionnée
Réponses
11
Affichages
541
danielco
D
P
  • Résolu(e)
XL 2016 Masquer les caractères dans une boîte de dialogue de saisie de mot de passe Excel
Réponses
8
Affichages
1 K
AR MOR
A
R
  • Question Question
Microsoft 365 aide recherche multiple entrées d'une cellule dans colonne
2
Réponses
16
Affichages
2 K
richard31
R
M
  • Question Question
XL 2019 Rangée de disparu
Réponses
4
Affichages
282
Micka>40
M
R
  • Résolu(e)
Microsoft 365 Extraction contenu mail outlook vers excel
2
Réponses
18
Affichages
2 K
raf26
R
  • Résolu(e)
XL 2016 erreur d'affichage sur une boîte de dialogue pour exporter en pdf
Réponses
14
Affichages
2 K
Mafalda78
EXCEL :: TCD :: SEGMENTS :: Identifier l'élément sélectionné dans le segment :: Modifier dynamiquement la valeur d'un segment :: VBA
Réponses
1
Affichages
855
oguruma
C
  • Résolu(e)
Microsoft 365 Recherche de doublons à plusieurs critères sur plusieurs colonnes
Réponses
4
Affichages
378
job75
  • Résolu(e)
XL 2021 Deux formats de date dans un jeu de donnée volumineux
2
Réponses
15
Affichages
668
JHA
J
  • Résolu(e)
XL 2016 XLS - Comment déterminer les zones présentent au niveau d'une cellule ?
Réponses
2
Affichages
869
Lu76Fer
N
  • Question Question
Microsoft 365 afficher/masquer des lignes en fonction de la valeur d'une cellule qui aura été renseignée par une autre feuille (via un copier/collé automatique)
Réponses
5
Affichages
1 K
Nel'
N
S
  • Résolu(e)
Microsoft 365 VBA Concaténer contenu de plusieurs cellules dans une seule avec séparateurs / évolutifs
Réponses
3
Affichages
638
spike29
S
M
  • Question Question
XL 2010 Comment alimenter automatiquement des cellules à partir d'une ligne sélectionnée dans un tableau?
Réponses
13
Affichages
1 K
ManuXZ
M
  • Résolu(e)
XL 2016 En VBA, Automatiser la réponse en fonction de l'état d'une cellule.
Réponses
7
Affichages
893
piga25
C
Excel : Fusionner des cellules en conservant le contenu et la police des cellules à fusionner
Réponses
5
Affichages
944
crocrocro
C
L
  • Résolu(e)
Microsoft 365 compter si une plage de cellules contient, 1 valeur toute les 3 lignes
Réponses
6
Affichages
400
laplayast
L
S
  • Question Question
Microsoft 365 A partir de la 1ere cellule non vide, récupérer le mois
Réponses
4
Affichages
366
Sissou71
S
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…