Afecter une macro a des boutons

Bonsoir à tous et toutes

J'écris le code suivant :

For Each Cell In Range ("BB1:BB65536")
If Cell = "Traitement" then ActiveSheet.Buttons.Add [Cell].Left, [Cell].Top, [Cell].Width, [Cell].Height
Next Cell

Je dois affecter aux bontons existants une macro "Courrier", comment puis-je faire ?

J'attends avec grand plaisir de vos nouvelles.

Bonne lecture essayez ce code et à la résolution de celui-ci il fera plaisir à quelques débutants tel que votre humble élève.

Amitié

Air_2

Bonsoir,

essaye avec

Sub Bouton()
Dim Lg%, Cell As Range
Application.ScreenUpdating = False
    Lg = Cells.Find("*", , , , xlByRows, xlPrevious).Row
    For Each Cell In Range("BB1:BB" & Lg)
        If Cell = "Traitement" Then
            With ActiveSheet.Buttons.Add(Cell.Left, Cell.Top, Cell.Width, Cell.Height)
                '.Caption = "Continuer"'titre bouton
                .OnAction = "Courrier"
            End With
        End If
    Next Cell
End Sub

Amicalement

Claude

Bonsoir,

Merci, puis-je me permettre avec votre approbation de revenir vers vous avec le code complet du petit programme pour une simplification ?

Le prototype a été livré aujourd'hui, il consiste à obtenir ce qui suit :

- Si trois conditions sont respectées, il crée un bonton avec une macro associée :

- La macro va renseigner et éditer un formulaire selon les données qui figurent sur la ligne du bonton pressé.

- Elle va envoyé un mail selon l'adresse mail qui figure sur la ligne du bouton pressé.

Il fonctionne mais le temps de calcul est longt !

Je laisse ce post actif ou je le clos ?

-- Ven Aoû 13, 2010 11:43 pm --

Merci encore et bonne soirée

Bonjour à tous,

Tu as modifié ton 1er message, si bien qu'on ne suit plus le fil !!

Quel programme, quel prototype ?

envoie un fichier représentatif avec explications.

Si le sujet est différent, ouvre un autre poste et solde celui-ci

Amicalement

Claude.