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

validation de donnée

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

angoul

XLDnaute Impliqué
Bonsoir j'ai besoin de vos petite lumiere
j'aimerai mettre sur une cellule M1 à M100 une validation de donnée
c'est dire que si la personne met un X, alors cela renvoi en debut de ligne suivant
par contre si il met une autre lettre ou rien alors cela affiche un message

merci de votre aide
 
Trier par date Trier par votes
Re : validation de donnée

Bonjour Angoul

essaie ceci:
Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("M1:M100")) Is Nothing Then
ligne = Target.Row
If Target.Value = "x" Then
Cells(ligne + 1, 1).Select
Else
MsgBox ("Veuillez remplir cette cellule")
End If
End If
End Sub
pour répondre à ta question

mais on peut s'y prendre autrement si on ne veut que des "x" dans cette zone

à+
Philippe
 
Vote positif 0 Vote négatif
Re : validation de donnée

Bonjour Angoul, Philippe

pas de problème chez moi, juste peut être un test à rajouter... A noter le code doit être placé dans le module de la feuille concernée => click droit sur l'onglet => visualiser le code
Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("M1:M100")) Is Nothing Then
ligne = Target.Row
If Target.Value = "x" Then
Cells(ligne + 1, 1).Select
Else
MsgBox ("Veuillez remplir cette cellule")
End If
End If
End Sub


bonne journée
@+
 
Vote positif 0 Vote négatif
Re : validation de donnée

slt pierrot merci de ton aide
par contre j'arrive pas a mettre le code,car j'ai deja un autre code :
j'ai mis comme sa, mais sa beug peut tu me dire ou est l'erreur?
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cel
Dim Mes
Dim I As Byte
Mes = Array("Manque le nom", "Manque le prénom", "Manque la catégorie", _
"Manque le N° de licence", "Manque le sexe", "Manque le poids", _
"Manque Taille", "Manque date de naissance")
Cel = Array("C", "D", "E", "F", "G", "H", "I", "J")

If Target.Count > 1 Then Exit Sub
If Target = "" Then Exit Sub
If Not Intersect(Range("M10:M100"), Target) Is Nothing Then
For I = 0 To UBound(Cel)
If Range(Cel(I) & Target.Row) = "" Then
Application.EnableEvents = False
Target.ClearContents
Application.EnableEvents = True
MsgBox Mes(I)
Exit Sub
End If
Next I
End If
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("M1:M100")) Is Nothing Then
ligne = Target.Row
If Target.Value = "x" Then
Cells(ligne + 1, 1).Select
Else
MsgBox ("Veuillez remplir cette cellule")
End If
End Sub

merci
 
Vote positif 0 Vote négatif
Re : validation de donnée

alors le code sert a verifier si certaine cellule sont rempli ou pas
peut etre que le mieux c'est avec le fichier pour comprendre.
moi j'ai l'erreur ici :
ligne = Target.Row


se fichier sert a l'inscription a des competitions de club, chaque club me renvoi le fichier rempli et ensuite je doit faire une compilation de tous c'est fichier pour en faire un
la deuxieme phase j'ai l'idee mais par contre je ne sait pas comment faire
 

Pièces jointes

Vote positif 0 Vote négatif
Re : validation de donnée

Re,

ce n'est pas le même code dans ton fichier.... d'autre part tu as ceci : "Option Explicit
" cela implique que toutes les variables soient déclarées.... il faut donc déclarer "ligne" :
Code: 
Dim ligne As Long
 
Vote positif 0 Vote négatif
Re : validation de donnée

Re, si il y a seulement besoin de vérifier si certaines cellules sont remplies ou pas, l'utilisation des MFC devrait suffire

à+
Philippe
 
Vote positif 0 Vote négatif
Re : validation de donnée

Voila j'ai copier le code comme si dessous

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cel
Dim Mes
Dim I As Byte
Mes = Array("Manque le nom", "Manque le prénom", "Manque la catégorie", _
"Manque le N° de licence", "Manque le sexe", "Manque le poids", _
"Manque Taille", "Manque date de naissance")
Cel = Array("C", "D", "E", "F", "G", "H", "I", "J")
If Target.Count > 1 Then Exit Sub
If Target = "" Then Exit Sub
If Not Intersect(Range("M12:M100"), Target) Is Nothing Then
For I = 0 To UBound(Cel)
If Range(Cel(I) & Target.Row) = "" Then
Application.EnableEvents = False
Target.ClearContents
Application.EnableEvents = True
MsgBox Mes(I)
Exit Sub
End If
Next I
End If
End Sub


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("M1:M100")) Is Nothing Then
Dim ligne As Long
ligne = Target.Row
If Target.Value = "x" Then
Cells(ligne + 1, 1).Select
Else
MsgBox ("Veuillez remplir cette cellule")
End If
End If
End Sub


j'ai un message qui me dit :
nom ambigu détecté : worksheet_Change

voila j'espere que cela te parle car moi non
 
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

K
  • Question Question
Microsoft 365 tableau avec fonctionnement en double logique
Réponses
7
Affichages
320
KRISS2A
K
W
  • Résolu(e)
XL 2019 Placer ou remplacer une photo .jpg au-dessus de la cellule [B6] contenant du texte à conserver
2
Réponses
21
Affichages
414
TooFatBoy
  • Question Question
XL 2021 Détecter un changement dans un des contrôles de formulaire et mettre à jour un TS correspondant.
2
Réponses
15
Affichages
715
jeff1494
S
[XL 365] Étude de polynômes et racines
Réponses
0
Affichages
79
Saboh12617
S
Y
  • Question Question
Microsoft 365 Cdbl et nombres à virgules
Réponses
4
Affichages
284
Valtrase
M
  • Question Question
Microsoft 365 Délégation d’accueil assistante maternelle
2 3
Réponses
38
Affichages
536
chris
  • Résolu(e)
XL 2016 Construction du jeu de modus
2
Réponses
25
Affichages
963
papychat1
T
  • Question Question
Microsoft 365 Validation de donnée
Réponses
4
Affichages
463
team18fr
T
E
  • Résolu(e)
Microsoft 365 TS Copie ligne selon condition
Réponses
6
Affichages
334
eric72
E
T
  • Question Question
XL 2013 Validation des dates dans Excel : Comment restreindre la saisie
Réponses
7
Affichages
674
Mikakawel
  • Question Question
Microsoft 365 Dernière donnée
Réponses
5
Affichages
613
TooFatBoy
K
  • Question Question
Microsoft 365 Excel - Répartition Charge de travail (mensuel)
Réponses
10
Affichages
697
Kristelle1555
K
S
  • Question Question
XL 2021 Configuration goal-average tennis de table
Réponses
7
Affichages
252
sauvageonexc
S
G
  • Question Question
Microsoft 365 Lenteur chargement ListView
2 3
Réponses
38
Affichages
1 K
GClaire
G
F
  • Question Question
XL 2016 Graphique avoir des blancs en non des valeurs à 0 quand la donnée est vide
Réponses
4
Affichages
258
JHA
J
V
  • Question Question
XL 2016 ou 2019 - fichier recensant les congés, tickets resto et heures supplémentaires
Réponses
0
Affichages
264
vivi21
V
S
  • Question Question
Autres Recette de pâtisserie
Réponses
4
Affichages
680
Slavko.R
S
B
  • Question Question
XL 2019 Conserver les formules qui sont enregistrées dans des cellules
Réponses
8
Affichages
607
Phil69970
  • Question Question
Microsoft 365 Macro qui enchaine deshoraires Aller-Retour en fonction de critères
Réponses
10
Affichages
298
bsalv
B
O
  • Question Question
XL 2019 Inscription club sportif
Réponses
11
Affichages
584
Gégé-45550
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…