[RESOLU] écrire Monsieur ou Madame avec une case d'option d'un formulaire

[letroubadour]

Bonjour au forum

voici ma macro

Private Sub Enregistrer()
  Application.ScreenUpdating = False
  Set WS = ThisWorkbook.Worksheets("Feuil1")
  With WS
    .Activate
    ' Ajouter agrément
      i = .Range("B" & Rows.Count).End(xlUp).Row + 1
      .Cells(i, 2) = TBnoagrement
      .Cells(i, 3) = TBetablissement
      .Cells(i, 4) = TBlocalite
      .Cells(i, 5) = DateValue(TBdteagrement)
      .Cells(i, 6) = TBmail
  End With
  Set WS = ThisWorkbook.Worksheets("Feuil3")
  With WS
    .Activate
    ' Ajouter responsable établissement
      i = .Range("B" & Rows.Count).End(xlUp).Row + 1
      .Cells(i, 2) = TBnoagrement
      .Cells(i, 3) = TBetablissement
      .Cells(i, 4) = TBnomresponsable
      .Cells(i, 5) = TBadresse
      .Cells(i, 6) = TBcodepost
      .Cells(i, 7) = TBville
      .Cells(i, 9) = OptionButton1
      .Cells(i, 10) = OptionButton2
      
  End With
  Application.ScreenUpdating = True
End Sub

lors de l'enregistrement de mon formulaire les infos sont dispatchées sur les différentes feuilles

Dans la colonne 9 et 10 ( .Cells(i, 9) = OptionButton1 )
( .Cells(i, 10) = OptionButton2 ) si je sélectionne avec ma case d'option ça m'affiche VRAI OU FAUX

je voudrais que si ca m'affiche M. ou MMe si le optionbouton1 est vrai ou faux


j'ai cherché sur le forum , sur le net mais je n'y arrive pas

merci d'avance


RAPHAEL

 

[Guest]

Re : écrire Monsieur ou Madame avec une case d'option d'un formulaire

Bonjour,

.Cells(i, 9) = Array("MMe","M.") (Abs(OptionButton1))

Idem pour l'autre colonne mais si tu as M. dans une colonne pourquoi mettre MMe dans l'autre.

A+

 

[letroubadour]

Re : écrire Monsieur ou Madame avec une case d'option d'un formulaire

bonjour HASCO

il faudrait si je sélectionne le bouton1 ça mette "M." en colonne 9 et si je sélectionne le bouton 2 ça affiche "Mme" toujours en colonne 9

je joint mon fichier ça sera plus clair

merci

 

[Modeste geedee]

Re : écrire Monsieur ou Madame avec une case d'option d'un formulaire

Bonsour®
pourquoi ne pas utiliser une ComboBox avec liste de choix
.Cells(i, 9) = CbBCivilite

 

[letroubadour]

Re : écrire Monsieur ou Madame avec une case d'option d'un formulaire

ça doit bien etre possible de la faire a partir de cases d'option , ça évite de cliquet pour ouvrir la combobox , et il n'y a que 2 données

merci


RAPHAEL

 

[Modeste geedee]

Re : écrire Monsieur ou Madame avec une case d'option d'un formulaire

Bonsour®

.Cells(i, 9) = Iif(OptionButton1=True,"Mr","Mme")

 

[letroubadour]

Re : écrire Monsieur ou Madame avec une case d'option d'un formulaire

merci

Nikel, merci pour ton aide

RAPHAEL

 

[Guest]

Re : écrire Monsieur ou Madame avec une case d'option d'un formulaire

Re,

on en revient à (post #2)

.Cells(i, 9) = Array("MMe","Mr") (Abs(OptionButton1))

qui est égal à

.Cells(i, 9) = Iif(OptionButton1=True,"Mr","Mme")

Mais si on n'essaie pas en attendant du tout cuit...on ne peut pas le savoir.

A+

 

[letroubadour]

Re : écrire Monsieur ou Madame avec une case d'option d'un formulaire [RESOLU]

Tu sais Hasco , j'ai fais pas mal de recherche sur le forum sur le net, j'avais trouvé une solution mais je cherchais à le faire directement par ces cases sans passer par des formules.
Si j'en fais la demande c'est que je ne sais pas, je connais meme pas le VBA .

Maintenant si ca te gêne ....

merci quand meme pour ton aide .


cordialement


RAPHAEL

 

[job75]

Re : [RESOLU] écrire Monsieur ou Madame avec une case d'option d'un formulaire

Bonjour à tous,

Juste de passage, juste un chouia plus simple :

.Cells(i, 9) = Array("MMe","M.") (-OptionButton1)

.Cells(i, 9) = IIf(OptionButton1,"Mr","Mme")

A+