Contenu récent par bakerman2

Bonjour ARaul, Vous utilisez constamment des fonctions pour des choses pour lesquelles elles ne sont pas adaptées. Une fonction sert à renvoyer une valeur, pas à exécuter du code. Pour exécuter du code on use Private Sub showPDFinAnotherWebBrowser_INSCRIPTION() 'reste du code ..... End Sub

Le méthode préfère pour remplir un ComboBox c'est le méthode List. Il est également préférable de limiter autant que possible les opérations de lecture et d'écriture sur la feuille de calcul. Private Sub Userform_Initialize() Dim alternative As Variant With Sheets("Data")...

Bonjour, Une autre piece de code a essayer. Private Sub Worksheet_Change(ByVal Target As Range) Dim a As Variant, i As Long If Target.Count > 1 Then Exit Sub Application.ScreenUpdating = False Application.EnableEvents = False a = ActiveSheet.UsedRange.Resize(, 2) With...

Essayez le fichier ci-dessous

Avec une fonction plus moderne.;) =MOD(10-MOD(SOMME(STXT(C4;SEQUENCE(13);1)*{3;1;3;1;3;1;3;1;3;1;3;1;3});10);10)

Comme demandé par Skatoune. (date fixe et écrite nul part) =SIERREUR(SI(ESTVIDE(F9);"";ARRONDI((DATE(2020;9;30)-F9)/365;1) & " an(s)");"")

Essayez le suivant. Sub Masquer() Dim Liste As Variant, Nom As String, N As Long Liste = Range("A20", Range("A41").End(xlUp)) Nom = [C13] For N = LBound(Liste) To UBound(Liste) If Evaluate("isref(" & Liste(N, 1) & "!A1)") Then Sheets(Liste(N, 1)).Visible = 0 Next N...

Private Sub UserForm_Initialize() Dim Col_reference_utilisateur As Long Dim lastRow As Long Dim SearchRng As String ' Définir la feuille de calcul With ThisWorkbook.Sheets("Base") ' renvoi le n° de la colonne "Référence utilisateur" pour l'exploiter dans Cells...