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

erreur dans une macro de données=> validation !

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

arnaoke

XLDnaute Occasionnel
Salut tout le monde !

Avec l'enregistreur de macro, j'ai voulu faire apparaitre un petit message qui apparait quand on sélectionne une cellule, mais une fois implémenter dans le code, j'ai une petite erreur ...

Code: 
With Cells(ligne, 5).Validation
            .Delete
            .Add Type:=xlValidateInputOnly, AlertStyle:=xlValidAlertStop, Operator _
            :=xlBetween
            .IgnoreBlank = True
            .InCellDropdown = True
            .InputTitle = "Attention"
            .ErrorTitle = ""
            .InputMessage = "Contenu de mon message !"
            .ErrorMessage = ""
            .ShowInput = True
            .ShowError = True
        End With

l'erreur se situe dans la ligne "Add Type ..."

Je sèche un peu et je ne vois pas quoi faire ...

si vous avez une idée, n'hésitez pas !

Arnaoke
 
Trier par date Trier par votes
Re : erreur dans une macro de données=> validation !

Salut !

Je ne suis pas sûr de bien comprendre ce que tu veux faire. Le message que tu veux faire apparaitre, tu veux le saisir dans la cellule ?
Ce message doit-il s'afficher pour une cellule en particulier ou pour toutes les cellules ?

Maxime
 
Vote positif 0 Vote négatif
Re : erreur dans une macro de données=> validation !

Bonjour à tous,

faire apparaître un message si sélection d'une cellule en colonne E
avec ceci:
Code: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
' faire apparaître un message si sélection d'une cellule en colonne E
If Not Intersect(Target, Range("E1:E65535")) Is Nothing Then
MsgBox ("votre message")
End If
End Sub

à+
Philippe
 
Vote positif 0 Vote négatif
Re : erreur dans une macro de données=> validation !

j'ai deja le code et les conditions me permettant d'afficher ce code, le problème est que cette méthode est dans la fonction "Worksheet_SelectionChange" et que j'active la page d'une autre feuille (je fait un copier/coller) et donc la feuille est activée ...

il y a des chances pour que ça soit cela qui cause mon erreur (pas sûr !) mais je ne vois pas comment y remédier !
 
Vote positif 0 Vote négatif
Re : erreur dans une macro de données=> validation !

voici le code de la méthode au complet :

Code: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim ligne As Integer '
With Sheets("Elaboration des contrats")
For ligne = 8 To .Range("A8").End(xlDown).Row
'-------------------------------------------------------------------------------
    If .Range("E" & ligne).Value = "H07 - 2007 Hydraulique" And .Range("H" & ligne).Value <= 232 Then 'test sur première alerte
        Cells(ligne, 5).Interior.ColorIndex = 44 'color la case en jaune/orange (alerte)
        With Cells(ligne, 5).Validation
            .Delete
            .Add Type:=xlValidateInputOnly, AlertStyle:=xlValidAlertStop, Operator _
            :=xlBetween
            .IgnoreBlank = True
            .InCellDropdown = True
            .InputTitle = "Attention"
            .ErrorTitle = ""
            .InputMessage = "Attention, contrat H07 avec Pmax <= 232 kW => vérifier si compteur à courbe de charge télérelevé sinon signature avenant index installation hydraulique < 250 kVA"
            .ErrorMessage = ""
            .ShowInput = True
            .ShowError = True
        End With
    Else
        Cells(ligne, 5).Interior.ColorIndex = 2 'décolore la case si son contenu ne correspond plus
    End If
'-------------------------------------------------------------------------------
 
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

P
  • Résolu(e)
Microsoft 365 Validation des données avec VBA
2
Réponses
16
Affichages
539
pat66
P
D
  • Résolu(e)
Microsoft 365 Validation des données avec formule + liste déroulante dans la même cellule
Réponses
8
Affichages
1 K
de_hanstrapp
D
  • Question Question
XL 2016 concerne la validation des données avec vba !?
Réponses
8
Affichages
922
Staple1600
Excel: "Validation des données" en Vba
Réponses
13
Affichages
2 K
Gégé-45550
S
  • Résolu(e)
Autres ActiveWorkbook.Worksheets("vierge").AutoFilter.Sort.SortFields.Clear
2
Réponses
23
Affichages
3 K
AtTheOne
A
  • Question Question
XL 2013 erreur 1004 définie par l'application ou par l'objet
2
Réponses
27
Affichages
2 K
adet ruireux
A
P
  • Résolu(e)
Microsoft 365 Cellule avec liste déroulante ou pas, sous condition par macro
Réponses
5
Affichages
673
pat66
P
F
  • Question Question
XL 2013 VBA - Indirect - Validation de données
Réponses
11
Affichages
3 K
FGV
F
N
  • Question Question
XL 2016 Mettre un nombre égal de caractères dans textbox
Réponses
12
Affichages
1 K
NadJP
N
I
  • Résolu(e)
XL 2019 VBA - Liste déroulante à partir de cellules d'une autre feuille
Réponses
13
Affichages
4 K
Stéphane_1
S
M
  • Question Question
XL 2010 probleme de validation par liste avec vba
Réponses
2
Affichages
1 K
moialbert2
M
B
  • Résolu(e)
XL 2016 Sélection dernière ligne, création de liste déroulante X fois, macro vba
Réponses
8
Affichages
3 K
BARNS
B
E
  • Question Question
Microsoft 365 VBA Calendrier, rien ne se passe.
Réponses
12
Affichages
1 K
fanch55
T
  • Question Question
XL 2019 probleme dans une macro
Réponses
3
Affichages
1 K
mapomme
M
  • Question Question
XL 2016 Erreur d'execution '52': Nom ou numéro de fichier incorrect
Réponses
4
Affichages
2 K
macseb
M
T
  • Résolu(e)
XL pour MAC lenteur du vba
2
Réponses
16
Affichages
3 K
Bernard_XLD
L
  • Résolu(e)
XL 2019 VBA erreur de débutant dans une boucle snifff
Réponses
2
Affichages
639
Lionel69890
L
D
  • Question Question
XL 2013 Erreur d'exécution '1004'
Réponses
4
Affichages
1 K
Disiz4K
D
W
  • Question Question
XL 2013 Liste de validation
Réponses
1
Affichages
1 K
Dudu2
  • Question Question
XL 2016 Validation de données
Réponses
2
Affichages
953
KTM
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…