bonjour
Une seule macro pour tous les boutons devis ou facture
Attention j'utilise la structure de ta feuille facturation alors si tu la modifie!!
Le principe je repère la ligne et la colonne ou ce trouve le bouton
La ligne va me permettre de connaitre le numéro du devis ou de la facture la colonne si c'est un devis ou une facture
Ensuite une petite tambouille pour voir quelle est la feuille concernée
je n'utilise pas le nom du client
Affect chaque bouton à cette macro
Sub devis()
'renvoi le bouton et regarde la ligne ou il est situé
bouton = Application.Caller
ligne = ActiveSheet.Shapes(bouton).TopLeftCell.Row
colonne = ActiveSheet.Shapes(bouton).TopLeftCell.Column
'utilise ce numéro de ligne pour connaitre le numéro du devis
numéro = ActiveSheet.Cells(ligne, 3)
montype = ActiveSheet.Cells(11, colonne - 1) 'devis ou facture
For Each i In ThisWorkbook.Sheets
'Extraction du numéro contenu dans le nom de l'onglet
n = InStr(1, i.Name, " ")
n2 = InStr(1, i.Name, "-")
If n <> 0 And n2 <> 0 Then
nfeuille = Val(Mid(i.Name, n + 1, n2 - n - 2))
'______________________
'active la feuille correspondante
If nfeuille = numéro And LCase(Left(i.Name, Len(montype))) = LCase(montype) Then
feuille = i.Name
'MsgBox feuille
Sheets(feuille).Activate
Exit Sub
End If
End If
Next
End Sub