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

listbox cascade et écriture en condition

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
G

gusgus13

XLDnaute Nouveau
Bonjour le forum !

J'ai besoin de votre aide ! Le plus gros est fait mais je n'arrive pas à le terminer.
J'ai 3 colonnes
A: Groupes (listbox)
B: Sous-groupes (listbox)
C: Paramètres (textbox)

Le but est de choisir le groupe et le sous groupe et d'inscrire la valeur de la textbox dans la colonne C.
Cela marchait et marche partiellement depuis que j'ai ajouté des conditions.

Si le paramètre existe déjà pour le groupe et le sous groupe sélectionner, alors refuser l'écriture.
Si le paramètre n'existe pas pour un sous groupe alors accepter l'écriture.
Mais des groupes peuvent posséder des sous-groupes de même nom.
explications:
GROUPE SOUS-GROUPE PARAMETRE
AAA A1 SSS > autoriser l'écriture 1 seule et unique fois.
AAA B1 SSS > création possible car le paramètre appartient à un sous groupe différent
BBB A1 SSS > création possible car le paramètre appartient à un groupe différent
CCC C1 SSS > création possible car le paramètre appartient à un groupe et ss groupe différent
etc
...

A l'heure actuelle, le programme bloque une fois correctement (ex : AAA A1 SSS).
Sinon il a besoin d'écrire à nouveau le groupe, le sous-groupe et le paramètre pour ensuite interdire l'écriture.
Il fait ça dans le mauvaise ordre !
De plus, à l'insertion d'un nouveau paramètre, une ligne doit s'ajouter en dessous et non au dessus du groupe existant...

Il faut lancer le userform mode_admin_ajout_parametre.
Le programme appelle la fonction ecriture.

Auriez vous une idée ?
Il n'y a pas grand chose à faire, juste à jeter un coup d’œil !

Merci de votre aide !
Et au plaisir de vous lire !!
 

Pièces jointes

Trier par date Trier par votes
Re : listbox cascade et écriture en condition

bonjour Gusugus
pas bien compris
dans bouton suivant simplifie
juste tester les objets(combox et textbox) non vides
ensuite appeler ecriture
suit un exemple incomplet

Code: 
Public Function Ecriture()
Dim cel As Range
Dim celluletrouvee As Range
Dim ligne As Integer
Dim col As Integer
Dim DerniereLigne As Integer

DerniereLigne = Range("A65536").End(xlUp).Row

For Each cel In Range("A2:A" & DerniereLigne) 'si existe sort
If cel & cel.Offset(0, 1) & cel.Offset(0, 2) = Mode_admin_ajout_parametre.ComboBox1.Value & Mode_admin_ajout_parametre.ComboBox2.Value & Mode_admin_ajout_parametre.TextBox1.Value Then
MsgBox "existe déjà"
Exit Function
End If
Next

For Each cel In Range("A2:A" & DerniereLigne) 'si sous groupe n'existe pas,ajoute
If cel = Mode_admin_ajout_parametre.ComboBox1.Value And cel.Offset(0, 1) = "" Then
cel.Offset(0, 1) = Mode_admin_ajout_parametre.ComboBox2.Value
cel.Offset(0, 2) = Mode_admin_ajout_parametre.TextBox1.Value
Exit Function
'Else
'Cells(DerniereLigne, 1) = Mode_admin_ajout_parametre.ComboBox1.Value
'Cells(DerniereLigne, 2) = Mode_admin_ajout_parametre.ComboBox2.Value
End If
Next

For Each cel In Range("A2:A" & DerniereLigne) 'si groupe et sous groupe existe,ajoute
If cel = Mode_admin_ajout_parametre.ComboBox1.Value And cel.Offset(0, 1) = Mode_admin_ajout_parametre.ComboBox2.Value And cel.Offset(0, 2) = "" Then
cel.Offset(0, 2) = Mode_admin_ajout_parametre.TextBox1.Value
Exit Function
End If


Next

End Function

si çà ne va pas tu nous revient
à bientôt
 
Vote positif 0 Vote négatif
Re : listbox cascade et écriture en condition

Bonjour Bebere, Le forum,

Désolé du retard, je travaillais sur un autre programme entre temps!
Ton idée est juste géniale, et ça correspond exactement à ce que je voulais.
Comment se prendre la tête alors que l'on pouvait faire plus simple !
Merci de ta réponse et de ton aide !
Ce forum est juste génial !

Merci et à la prochaine !
 
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

F
  • Question Question
XL 2013 Tri d'une listbox sur 2 combobox en cascade
2
Réponses
25
Affichages
1 K
franxy
F
L
  • Question Question
XL 2016 MFC sur même ligne mais cellules non contigües
Réponses
3
Affichages
618
TooFatBoy
Office XLS : Fonction simplifiant l'utilisation de la fenêtre FileDialog
Réponses
6
Affichages
352
Lu76Fer
  • Résolu(e)
XL 2016 VBA - Calcul des hauteur et largeur des Headings (pour les forts en thème)
2
Réponses
23
Affichages
755
Dudu2
S
  • Question Question
XL 2019 [fontion Alea] Aide sur création de groupe composé de noms aléatoire avec 1 condition
Réponses
9
Affichages
1 K
starz91
S
XLS : Evènements souris 'click' sur la grille & astuces
Réponses
3
Affichages
177
Lu76Fer
N
  • Question Question
Microsoft 365 Création de tables, relations et mise en forme
Réponses
2
Affichages
558
job75
M
  • Résolu(e)
Microsoft 365 Prendre les 10 1ère valeur d'une plage en fonction de 2 critères
2 3
Réponses
43
Affichages
3 K
merinos-BernardEtang
M
  • Question Question
Microsoft 365 N'afficher que la dernière ligne d'un tableau dans listbox
Réponses
9
Affichages
804
meyscal
M
  • Question Question
XL 2016 Calculer la position sur l'écran d'une position sur la grille (XL 2003)
2
Réponses
27
Affichages
4 K
Nicolas JACQUIN
S
  • Question Question
XL 2010 VBA - macro avec 1 boucle qui alterne 1 action à conditions et 1 action sans conditions
2 3 4
Réponses
58
Affichages
8 K
Scorp0211
S
L
  • Question Question
XL 2013 Liste en cascade
Réponses
8
Affichages
829
Lou61
L
C
  • Résolu(e)
Microsoft 365 modifier 1 listbox à partir d'une autre et un total mensuel en requête
Réponses
8
Affichages
1 K
cgpa
C
G
  • Question Question
Microsoft 365 Méthode pour déduire des groupes en fonction de projets communs
Réponses
1
Affichages
1 K
Gian75018
G
  • Question Question
Microsoft 365 VBA problème formule pour sauvegarder en PDF et pour imprimerPF
Réponses
2
Affichages
717
Mr.Adrien
P
  • Question Question
XL 2021 Réaliser un échéancier à partir d'un TCD et de données en colonne
Réponses
2
Affichages
853
JHA
J
  • Question Question
XL 2016 Compatibilité de comportement Listbox entre 2016 et 365
Réponses
5
Affichages
1 K
mikachu
  • Résolu(e)
XL 2016 Notation Simplifiée pour définir un tableau arborescent
Réponses
9
Affichages
937
Lu76Fer
  • Question Question
XL 2021 Collecter des données et les restituer après mise en forme dans un autre onglet
Réponses
8
Affichages
710
JoBar57
G
  • Résolu(e)
Microsoft 365 création d'onglet/ enregistrement fichier en CSV
Réponses
1
Affichages
2 K
AtTheOne
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…