vba userform et macro

[boxi]

bonjour,

Je cherche à savoir comment lier une commandbutton à une macro.
Ci-joint un fichier.
Merci de votre participation

 

[Papou-net]

Re : vba userform et macro

Bonsoir boxi,

Tu fais un clic droit sur "Bouton 26", tu cliques sur "Affecter une macro" et dans la liste qui s'affiche tu choisis "territoire" et tu valides par OK.

Cordialement.

 

[job75]

Re : vba userform et macro

Bonjour boxi, Papou-net,

boxi veut peut-être parler du bouton "Valider" de l'USF...

Alors par exemple mettre dans le code de l'USF :

Private Sub CommandButton1_Click()
Dim lig As Variant, commune As String
With Sheets("liste commune")
  lig = Application.Match(Val(TextBox1), Sheets("liste commune").[A:A], 0)
  If IsError(lig) Then MsgBox "Code non trouvé...": Exit Sub
  commune = .Cells(lig, 2)
  MsgBox commune, , "Commune" 'pour tester
  'Call territoire
  'suite
End With
End Sub

Le lien est créé par Application.Match (c'est la fonction EQUIV).

A+

 

[job75]

Re : vba userform et macro

Re,

Je n'avais pas pris le temps d'aller voir la macro "territoire"...

Elle est bien compliquée et en plus inutile.

Il suffit de ce code pour le bouton "Valider" de l'USF :

Private Sub CommandButton1_Click()
Dim lig As Variant
If TextBox1 = "" Then TextBox1.SetFocus: Exit Sub
With Sheets("liste commune")
  lig = Application.Match(Val(TextBox1), .[A8:A65536], 0)
  If IsError(lig) Then MsgBox "Code non trouvé...": Exit Sub
  .[A2].Resize(, 72) = .Cells(lig + 7, 1).Resize(, 72).Value
  .Activate
End With
End Sub

Edit : si vous ne connaissez pas la propriété Resize, voyez l'aide VBA.

A+

 

[boxi]

Re : vba userform et macro

merci de votre aide, ça marche....