Cocher les checkbox correspondant au nom qui apparais dans la cellule

[creolia]

Bonsoir à tous

ce que je demande es peut etre impossible mais sa pourais simplifier mon projet

dans une cellule j'ai des nom qui apparais separer par une virgule je souhaiterais que les checkbox correspondant au nom qui s'affiche se coche automatiquement es ce possible s'il vous plait si oui pouvez vous m'aider à le faire merci d'avance de votre aide

 

[camarchepas]

Re : Cocher les checkbox correspondant au nom qui apparais dans la cellule

Bonsoir Creolia,

comme cela par exemple

a copier dans un module standard

Sub Macro1()
With Sheets("Feuil1")
  .CheckBox1.Value = InStr(1, Range("E1"), "TOTO")
  .CheckBox2.Value = InStr(1, Range("E1"), "LOLO")
  .CheckBox3.Value = InStr(1, Range("E1"), "LULU")
  .CheckBox4.Value = InStr(1, Range("E1"), "LALA")
End With
End Sub

 

[camarchepas]

Re : Cocher les checkbox correspondant au nom qui apparais dans la cellule

Creolia,

allez dans un élan de générosité voici mis en musique dans le fichier,

change le contenu de E1

 

[creolia]

Re : Cocher les checkbox correspondant au nom qui apparais dans la cellule

bonjour sa marche pas merci pour ton travail je teste sa demain et te tien au courant encore merci

 

[creolia]

Re : Cocher les checkbox correspondant au nom qui apparais dans la cellule

re coucou sa marche pas je reviens vers toi pour un soucis sur ta macro que tu ma gentillement creer

la premiere checkbox cocher se met bien en true mais les suivante se met en gris donc comme si elle etait en false pour ma base de donner saurais tu pour quelle raison svp

 

[camarchepas]

Re : Cocher les checkbox correspondant au nom qui apparais dans la cellule

Bonsoir Créolia,

Et oui , il faut absoluement un boolean pour positionner la checkbox

Petite modif donc :

 

[creolia]

Re : Cocher les checkbox correspondant au nom qui apparais dans la cellule

RE bonjour merci à toi je teste sa des demain au travail

 

[creolia]

Re : Cocher les checkbox correspondant au nom qui apparais dans la cellule

Bonjour sa marche pas

merci pour ton aide c'est parfait tout fonctionne parfaitement un grand merci pour ton aide

 

[creolia]

Re : Cocher les checkbox correspondant au nom qui apparais dans la cellule

re bonjour j'aurais besoin un complement aide vue comment la solution de CaMarchePas fonctionne parfaitement je voudrais etendre cette solution à une textbox au lieu d'une checkbox
j'ai tenter ecrire comme ceci

Private Sub CommandButton5_Click()
Dim b As Long
With Sheets("BDD")
.C11_1.Text = InStr(1, Range("DS4"), "P")
Next b
End With
End Sub

mais j'ai sa fonctionne pas

ou ai je faute svp merci

 

[camarchepas]

Re : Cocher les checkbox correspondant au nom qui apparais dans la cellule

Bonjour Créolia,

Que veux tu faire exactement ?

La je vois un next B sans for , pas terrible
C11_1 est une textbox ?
Le ds4 est pour quelle feuille ?

Cordialement

 

[creolia]

Re : Cocher les checkbox correspondant au nom qui apparais dans la cellule

re bonjour

alors pour etre plus explicite j'ai fais un fichier joint sans boucle combobox selectionne un numero et dedant la macro qui se lance

Private Sub Num_Change()
With Sheets("BDD")
.C11_1.Text = InStr(1, Range("A2"), "A")
End With
End Sub

 

[camarchepas]

Re : Cocher les checkbox correspondant au nom qui apparais dans la cellule

Désolé , Créola ,

Mais là ma boule de cristal est en panne,

il faudrait être un peu plus précis dans ce que tu veux ?

 

[creolia]

Re : Cocher les checkbox correspondant au nom qui apparais dans la cellule

desoler en fais je voulais dispache les differente mot separer d'une virgule vers des textbox dans un ordre apparition exemple de A,B,C

A dans textbox1 B dans textbox2 C dans textbox3... en utilisant une boucle y auras autant de lettre que de textbox.

je sais si j'ai ete plus clair

 

[creolia]

Re : Cocher les checkbox correspondant au nom qui apparais dans la cellule

Re bonjour peut etre devrais je reouvrir un poste specifiquement pour cela