Résultats de la recherche

merci beaucoup c'est génial :)

salut ça marcher après une petite modification .SaveCopyAs "D:\Ms Archive\" & Worksheets("feuil1").Range("a1") & ".xlsm" merci encore :)

bonjour ... malheureusement ça n'a pas marché .... rien ne se passe

Bonjour, J’ai un problème … je désire archiver mon travail et effacé des feuilles …. Alors pour effacer les feuilles j’ai trouvé une solution mais je veux que mon classeur soit copié avec un nouveau nom avant d’effacer les feuilles … je pose un exemple pour mieux comprendre …merci d’avance

c'est excellant mille merci

bonjour @Phil69970 voilà une fichier qui peut mieux expliquer

Bonjour, Je cherche un code VBA pour interdire de supprimer une feuille de calcule Excel … je veux avoir la liberté de tout faire sauf la supprimer merci d'avance

bonsoir, merci infiniment pour votre Ficher ça ma trop aider ..... pour ce code: Sub tri(a(), gauc, droi, NbCol, colTri) ' Quick sort On Error GoTo errormessage: ref = a((gauc + droi) \ 2, colTri) g = gauc: d = droi Do Do While a(g, colTri) < ref: g = g + 1: Loop...

Bonjour, Merci pour vos remarques et je vais essayer de les appliquer la prochaine fois 😊... S'il vous plaît supprime les fichiers puisqu'il contient des noms de familles... Je m'excuse pour ma manière

Premièrement : merci infiniment pour votre aide car j’ai anneler de bouclé tout et j’ai réussie avec ce code If .ListCount - 1 >= 2 Then Rows("12:" & 11 + .ListCount - 2).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove End If For x = 0 To .ListCount - 1...

c'est une partie de mon programme pour cela vous trouvez par fois des choses inexplicable :)

j'ai tester ce code : For x = 0 To .ListCount - 1 For y = 0 To .ColumnCount - 1 If y > 3 Then ActiveSheet.Range("A11").Offset(x, y) = cdbl (.List(x, y)) Else ActiveSheet.Range("A11").Offset(x, y) = .List(x, y) End If...

merci beaucoup pour votre aide.....;) j'ai fait les modifications qu'il faut et ça marche très bien ... MERCI encore

;) un très grand merci .... excellant

J’ai un problème de condition dans ma listbox …car j’ai fait une première condition puis j’ai voulu ajouter une autre mais je trouve une difficulté …. Je veux fusionner deux valeur en double (Me.ListBox1.List(I, 3)) et avoir la somme de deux ou plusieurs valeurs de (Me.ListBox1.List(I, 4)) en...