Résultats de la recherche

Deb, Dranreb n'a pas dis de ne pas utiliser de macro, il disait juste qu'il n'y avais pas de macro dans ton exemple. appel ta fonction comme ceci Sub macro_somme() Call 'fonction End Sub

Possible de joindre un fichier exemple?

Qu'est ce qui est souligné?

Bonjour Deb, le forum Non testé mais essai ca Function minimiser_dm() Dim i As Integer Dim m As Integer 'attribue une valeur à m Dim duree As Variant Dim dm As Long dm = 0 For i = 1 To m dm = dm + (m - i + 1) * Cells(i, 4) Next i duree(1, 2) = dm End Function cdt A

Bonjour Maxwellou, le forum A tester Sub save() Dim Wb As Workbook For Each Wb In Workbooks Wb.Save Next Wbk End Sub cdt A

Salut Mic, le forum Ci joint ton fichier modifié, en esperant que c'est ce que tu veux. Cdt A

Bonjour Med, le forum Si c'est une variable je ne la voit pas déclarée en fait. Mais bon ravi que tu es pu trouvé une solution. cdt A

Bonsoir @Staple1600 , on y arrivera et lui aussi. Il a vraiment envie d'apprendre et il avance bien. @FOUQUET Yves , c'est grace au balise que tu arrives a lire nos message comme ci dessous : et hop Quand tu ecris sur le forum, il suffit de cliquer sur </> avant d'ecrire le code. Cdt A

Bonjour Med Déjà le N° sera interprété comme une variable si tu le laisse ainsi. Tu devrais plutôt essayer : Sheets("Saisie BT").Range("a5") = "N°"

Bonjour Yves, le forum Tu as essayé comme ca : Sheets(feuille).Select NB : pense a baliser ton code, ca sera plus facile à lire. cdt A

Je regarde ca demain stp! La j'ai sommeil

A tu une ligne surlignée?

Le probleme il es ailleurs dans ton code alors. J'ai pas d'erreur a mon niveau

Comme ceci : Unload Facture_Fournisseur Ajouter_article.Show Et Unload Facture_Fournisseur Ajouter_Fournisseur.Show Cdt A

Fais plutot unload Me

Bonjour Terrier, le forum Si je comprend bien tu veux ouvrir d'autre userform. Dans ce cas essai ca dans le code des bouton : UserForm2.Show Me.Unload ' si tu veux decharger le premier userform Si pas ce que tu cherches, joindre un fichier illustratif. Cdt A

Bonjour Djibysadji, Dranreb, le forum Je suis parfaitement d'accord avec Dranreb (qui ma appris beaucoup), mais si tu tiens à faire ainsi essaie quelque chose dans ce genre : UserForm2.TextBox1 = UserForm1.TextBox1 UserForm2.Show C'est pas la meilleure façon de faire mais ca peut résoudre ton...

Je vois Yves, pour faire plus simple (je crois), tu peux faire ceci Dans le code du CommandButton3 tu modifie .Range("D" & L).Value = Application.WorksheetFunction.VLookup(ComboBox2, Sheets("Aides3").Range("C1:D60"), 2, False) ' la valeur correspondant au contenu de la combobox2 est recherché...

Bonjour Yves, le forum Quel est le résultat escompté?