XL 2013 3 combobox pour une cellule

[Dydou76]

Bonjours à tous.

J'ai 3 combobox qui sont affecté à la même cellule d'une feuille excel et j'aimerai que, quand je renseigne 1 combobox celui-ci écrivent dans la cellule
mais pas les autres. l'exemple ci-dessous est avec True/False mais j'ai essayé avec (if combobox6= "" then...) mais le souci c'est que c'est la dernière ligne de la série de if qui est prise en compte. en gros je veux que la cellule excel soit renseigne par l'un des 3 combobox.

If ComboBox6 = True Then

ComboBox8 = False
ComboBox9 = False
End If

If ComboBox8 = True Then

ComboBox6 = False
ComboBox9 = False
End If

If ComboBox9 = True Then

ComboBox6 = False
ComboBox8 = False

End If

En espérant avoir une solution parce que je ne suis pas un pro de vba mais j'essai de me débrouiller mais......
Merci d'avance ;-)

 

[ChTi160]

Bonjour Dydou76
je pense que sans fichier joint tu n'auras pas beaucoup de réponse !
essais peut être avec un Select case
genre

Select case True
Case  ComboBox1<> ""
          ComboBox2 = ""
          ComboBox3 = ""
Case ComboBox2<> ""        
          ComboBox1 = ""
          ComboBox3 = ""
Case ComboBox3<> ""        
          ComboBox1 = ""
          ComboBox2 = ""
End Select

je ne vois pas ce que veut dire :
ex : ComboBox1=true

Dans l'attente
Amicalement
jean marie

 

[JHA]

Bonjour à tous,

Je pense que c'est la suite de ce lien.
https://www.excel-downloads.com/threads/combobox.20010981/

JHA

 

[Dydou76]

Merci de ta réponse ChTi160
Je vais essayer ton code et i ça ne marche pas j’enverrai un fichier.

Dydou76

 

[Dydou76]

re bonjour,
ci-joint une parti de mon programme qui me fait passer des heures de recherche sans jamais trouver lol (je suis novice en vba)
le nom utilisateur est Denis et le mdp:123
quand ont clic sur "fiche agir" un Userforme s'ouvre.
c'est dans l'encadré jaune que je bloque. je doit sélectionner un secteur et par rapport au secteur choisi je prend le conbobox correspondant qui doit allez ecrire dans la fiche agir à la cellule I9. Le souci c'est que ça ne fonctionne pas.
Si vous pouvez m'aider ce serait sympa ;-)
Salutation ;-)

 

[ChTi160]

Re
Regarde ce que j'ai modifié
Bonne fin de journée
Amicalement
jean marie

 

[Dydou76]

re

c'est une idée de faire apparaître le combobox choisi dans le combobox secteur, mais ça ne marche que pour chimie quand je choisi , rn ou tf ça n’écrit pas dans la cellule I9 de la feuille "AGIR".

 

[ChTi160]

Re
ça devrait aller mieux Lol
je testais sur les Combobox alors que ce sont les Frames que je masque .
jean marie

 

[ChTi160]

Re
une autre question
il y a plusieurs CheckBox pour chaque rubrique Ex : Sécurité ,Qualité , environnement etc , etc
peut il y avoir plusieurs de ces rubriques qui soit mise a True
jean marie

 

[Dydou76]

Super ça marche !!!!
1 million de merci ChTi160

 

[Dydou76]

c'est un programme que je doit faire pour mon boulo et faire une proposition pour octobre et le fichier que je t'ai envoyé est alléger (je ne peux pas le mettre sur un forum dsl)
Il y a plusieurs feuilles a remplir en auto avec des identifiants pour chaque utilisateur avec des droits pour chacun donc j'ai du boulot mais j'aime ça même si je me prend la tête lol

 

[ChTi160]

Re
Ok!
n’hésite pas si besoin
Bonne fin de Journée
jean marie

 

[Dydou76]

Merci ChTi160 je pense faire appel à tes connaissances mais sans abuser lol

Encore merci
Denis

 

[Dydou76]

Bonjour a tous.
Mon petit programme avance mais j'ai un souci au niveau des utilisateurs.
(je vais essayer d’être clair)

j'ai 4 utilisateurs avec mot de passe pour se connecter avec différents droit pour chacun.
Quand je me connecte avec un de ces 4 comptes le numéro de ma fiche (qui sacrement en auto comme une facture)
fonction bien quant je reste sur le même utilisateur, mais si je me connecte avec un autre identifiant, le numéro de fiche (facture) saute de 1
c'est bizarre mais je comprend pas pourquoi le dernier numéro de fiche n'est pas le même pour tous . ci joint le code vba pour mes comptes:

Private Sub CommandButton1_Click()
On Error Resume Next
'déclaration de variable.
Dim mot_de_passe As String
Dim role As String

'configuration de variable.
mot_de_passe = WorksheetFunction.VLookup(Txt_user, Sheets("base").Range("T:V"), 2, 0)
role = WorksheetFunction.VLookup(Txt_user, Sheets("base").Range("T:V"), 3, 0)

If mot_de_passe = Txt_pass And role = "Admin" Then 'controler si c'est l'admin

Sheets("Tableau de bord").Visible = True
Sheets("Tableau de bord BF").Visible = True
Sheets("Tableau de bord AR").Visible = True
Sheets("Tableau de bord NM").Visible = True
Sheets("AGIR").Visible = True
Sheets("base").Visible = True
Sheets("SD_AD").Visible = True
Sheets("Centre Route").Visible = True
Sheets("Source").Visible = True
Sheets("login").Visible = 2


ElseIf mot_de_passe = Txt_pass And role = "User" Then 'controler si c'est un utilisateur enregistré

Sheets("Tableau de bord BF").Visible = True
Sheets("AGIR").Visible = True
Sheets("SD_AD").Visible = 2
Sheets("Centre Route").Visible = True
Sheets("Source").Visible = True
Sheets("login").Visible = 2

ElseIf mot_de_passe = Txt_pass And role = "Visiteur" Then 'controler si c'est un utilisateur enregistré

Sheets("Tableau de bord AR").Visible = True
Sheets("AGIR").Visible = True
Sheets("SD_AD").Visible = True
Sheets("Centre Route").Visible = True
Sheets("Source").Visible = True
Sheets("login").Visible = 2

ElseIf mot_de_passe = Txt_pass And role = "Testeur" Then 'controler si c'est un utilisateur enregistré

Sheets("Tableau de bord NM").Visible = True
Sheets("AGIR").Visible = True
Sheets("SD_AD").Visible = True
Sheets("Centre Route").Visible = True
Sheets("Source").Visible = True
Sheets("login").Visible = 2


Else

Merci d'avance

 

[Dydou76]

Re
Ok!
n’hésite pas si besoin
Bonne fin de Journée
jean marie

Bonjour a tous.
Mon petit programme avance mais j'ai un souci au niveau des utilisateurs.
(je vais essayer d’être clair)

j'ai 4 utilisateurs avec mot de passe pour se connecter avec différents droit pour chacun.
Quand je me connecte avec un de ces 4 comptes le numéro de ma fiche (qui sacrement en auto comme une facture)
fonction bien quant je reste sur le même utilisateur, mais si je me connecte avec un autre identifiant, le numéro de fiche (facture) saute de 1
c'est bizarre mais je comprend pas pourquoi le dernier numéro de fiche n'est pas le même pour tous . ci joint le code vba pour mes comptes:

Private Sub CommandButton1_Click()
On Error Resume Next
'déclaration de variable.
Dim mot_de_passe As String
Dim role As String

'configuration de variable.
mot_de_passe = WorksheetFunction.VLookup(Txt_user, Sheets("base").Range("T:V"), 2, 0)
role = WorksheetFunction.VLookup(Txt_user, Sheets("base").Range("T:V"), 3, 0)

If mot_de_passe = Txt_pass And role = "Admin" Then 'controler si c'est l'admin

Sheets("Tableau de bord").Visible = True
Sheets("Tableau de bord BF").Visible = True
Sheets("Tableau de bord AR").Visible = True
Sheets("Tableau de bord NM").Visible = True
Sheets("AGIR").Visible = True
Sheets("base").Visible = True
Sheets("SD_AD").Visible = True
Sheets("Centre Route").Visible = True
Sheets("Source").Visible = True
Sheets("login").Visible = 2


ElseIf mot_de_passe = Txt_pass And role = "User" Then 'controler si c'est un utilisateur enregistré

Sheets("Tableau de bord BF").Visible = True
Sheets("AGIR").Visible = True
Sheets("SD_AD").Visible = 2
Sheets("Centre Route").Visible = True
Sheets("Source").Visible = True
Sheets("login").Visible = 2

ElseIf mot_de_passe = Txt_pass And role = "Visiteur" Then 'controler si c'est un utilisateur enregistré

Sheets("Tableau de bord AR").Visible = True
Sheets("AGIR").Visible = True
Sheets("SD_AD").Visible = True
Sheets("Centre Route").Visible = True
Sheets("Source").Visible = True
Sheets("login").Visible = 2

ElseIf mot_de_passe = Txt_pass And role = "Testeur" Then 'controler si c'est un utilisateur enregistré

Sheets("Tableau de bord NM").Visible = True
Sheets("AGIR").Visible = True
Sheets("SD_AD").Visible = True
Sheets("Centre Route").Visible = True
Sheets("Source").Visible = True
Sheets("login").Visible = 2


Else

Merci d'avance