macro

[a10]

Bonjour,

1/ J'ai une macro et je voudrai que la macro ferme la boite de dialogue "liberer le presse papier et cliquer sur "non"

=> comment ecrire cela dans la macro?

2/ je voudrai que ma macro active une autre macro

=> Je n'arrive pas à retrouver la code à incrire dans la macro?

 

[ted1057]

Re : macro

Bonjour à toi,

pourrais tu joindre un fichier avec ton code afin qu'on puisse regarder

 

[gilbert_RGI]

Re : macro

Bonjour,

1/ J'ai une macro et je voudrai que la macro ferme la boite de dialogue "liberer le presse papier et cliquer sur "non"

=> comment ecrire cela dans la macro?

2/ je voudrai que ma macro active une autre macro

=> Je n'arrive pas à retrouver la code à incrire dans la macro?

Bonjour
sans voir le code difficile à réaliser

 

[Roland_M]

Re : macro

bonjour,

je t'avouerai que moi même j'en perd la macro !

1/ J'ai une macro et je voudrai que la macro ferme la boite de dialogue "liberer le presse papier et cliquer sur "non"
=> comment ecrire cela dans la macro?
question: apparemment tu as une macro, d'accord, mais laquelle ?


2/ je voudrai que ma macro active une autre macro
question: d'accord mais quelle macro activer ?

=> Je n'arrive pas à retrouver la code à incrire dans la macro?
question: comment veux tu que nous nous la retrouvions ?

EDIT: salut Gilbert

 

[JBARBE]

Re : macro

Bonjour à tous,

Un exemple de boite de dialogue ( fichier Nom_Masculin_Feminin):

Private Sub BoutonEntrer_Click()
Dim LigneSuivante As Long
 Sheets("Feuil1").Activate
  LigneSuivante = Application.WorksheetFunction. _
   CountA(Range("A:A")) + 1
 Cells(LigneSuivante, 1) = ZoneTexteNom.Text
  If ZoneTexteNom.Text = "" Then
   MsgBox " Vous devez saisir un Nom "
   Exit Sub
  End If
  If OptionMasculin Then Cells(LigneSuivante, 2) = "Masculin"
  If OptionFéminin Then Cells(LigneSuivante, 2) = "Féminin"
  If OptionInconnu Then Cells(LigneSuivante, 2) = "Inconnu"
' Réinitialisation des contrôles pour la prochaine saisie
    ZoneTexteNom.Text = ""
    OptionInconnu = True
    ZoneTexteNom = SetFocus
End Sub

Private Sub BoutonFermer_Click()
 Unload UserForm1
End Sub

Et pour une zone de liste : (fichier Zone de liste)

Private Sub BoutonAnnuler_Click()
Unload UserForm1
End Sub

Private Sub BoutonOK_Click()
 Dim Msg As String
  Msg = " Vous avez sélectionné l'élément N°"
  Msg = Msg & ZoneListe.ListIndex
  Msg = Msg & vbNewLine
  Msg = Msg & ZoneListe.Value
  MsgBox Msg
  Unload UserForm1
 
End Sub

Private Sub UserForm_Click()
' remplissage de la zone de liste
With ZoneListe
  .AddItem " Janvier "
  .AddItem " Février "
  .AddItem " Mars "
  .AddItem " Avril "
  .AddItem " Mai "
  .AddItem " Juin "
  .AddItem " Juillet "
  .AddItem " Août "
  .AddItem " Septembre "
  .AddItem " Octobre "
  .AddItem " Novembre "
  .AddItem " Décembre "
End With
' Sélection de premier élément de la liste
 ZoneListe.ListIndex = 0
End Sub

Private Sub UserForm_Initialize()
' remplissage de la zone de liste
With ZoneListe
  .AddItem " Janvier "
  .AddItem " Février "
  .AddItem " Mars "
  .AddItem " Avril "
  .AddItem " Mai "
  .AddItem " Juin "
  .AddItem " Juillet "
  .AddItem " Août "
  .AddItem " Septembre "
  .AddItem " Octobre "
  .AddItem " Novembre "
  .AddItem " Décembre "
End With
' Sélection de premier élément de la liste
 ZoneListe.ListIndex = 0
End Sub

A+

 

[camarchepas]

Re : macro

Bonjour à tous ,

1 point à la fois

la boite de dialogue "liberer le presse papier et cliquer sur "non"

comment cette fenêtre apparait-elle ?

Cordialement