Essai suite changement tva

bonjour a vous

dans le cadre de la nouvelle loi sur la tva entre les sous-traitants et les donneurs d'ordre, auto-liquidation, il faut créer des factures au taux de 0 de tva et je ne sais pas comment faire pour ne pas déranger les autres taux , car ce n'est pas tout le temps que je sous traite

j'ai penser ajouter un autre optionbutton mais qui si lui est coché qu'une procédure lui soit associé comme l'appel d'une macro fonctionnant automatiquement

j'ai essayer ceci mais je n'y arrive pas

Private Sub UserForm_Initialize()
If Me.OptionButton3 = False Then Exit Sub

If Me.OptionButton3 = True Then
Call remettva
End If

End Sub
Sub remettva()
'
' Macro8 Macro
'

With Sheets("Feuil1")
    With .Range("E25:H25")
        .UnMerge
        .ClearContents
    End With
    .Range("F25:G26").Borders.LineStyle = 1
    .Range("ligne20") = "TVA 20%"
    .Range("ligne10") = "TVA 10%"
    .Range("G26").FormulaR1C1 = "=OFFSET(R[-1]C[-1],-4,9)"
    .Range("G25").FormulaR1C1 = "=OFFSET(R[-1]C[-1],-4,10)"
    With Range("G25:G26")
            .HorizontalAlignment = xlCenter
            .Font.Bold = False
            .NumberFormat = "#,##0.00 $"
        End With
        End With
End Sub

les optionbutton1 et 2 gère les autres tva et si je rajoute l'opt3 en rapport j'ai un défaut d'inscription

si vous avez besoin de plus d'infos concernant mon classeur reporter vous a la partie téléchargement a gestion commerciale" classeur devis/facture

Pascal

bonjour a vous

j'ai partiellement réussi et je voudrais savoir comment faire pour rendre une partie de texte envoyer par macro sur feuille puisse etre en hyperlien

.Range("D34").FormulaR1C1 = _
        "en application Décret n°2013-346 du 24 avril 2013 - art. 2"

je voudrais pour mettre

Décret n°2013-346 du 24 avril 2013 - art. 2

en lien vers le site du gouvernement correspondant qui est

http://www.legifrance.gouv.fr/affichTexteArticle.do;jsessionid=7A3BE893290F4F96C24552B608464CD4.tpdjo15v_2?cidTexte=JORFTEXT000027351702&idArticle=LEGIARTI000027353142&dateTexte=20140316&categorieLien=id#LEGIARTI000027353142

merci par avance, mais j'essai de mon coté

Pascal

rebonjour

voici ce que j'ai fait et qui fonctionne

.Hyperlinks.Add .Range("D34"), "http://www.legifrance.gouv.fr/affichTexteArticle.do;jsessionid=7A3BE893290F4F96C24552B608464CD4.tpdjo15v_2?cidTexte=JORFTEXT000027351702&idArticle=LEGIARTI000027353142&dateTexte=20140316&categorieLien=id#LEGIARTI000027353142"

je clos le post

Pascal