Contenu récent par anass1

Bonjour Phil69970, Merci pour votre attention J'ai déjà vu ce sujet; Je voulais faire cela sans ouvrir et fermer le fichier, Parce que dans mon cas, le fichier original disparaît aussi.

Bonjour, J'ai utilisé ce code pour enregistrer une copie de sauvegarde; Sub CS() Dim DN As String Application.DisplayAlerts = False With ThisWorkbook On Error Resume Next DN = ThisWorkbook.Path & "\sauvegarde\" MkDir DN On...

Bonsoir, Merci pour votre attention Dan, Bon courage pat90,

Il est clair Qu’est-ce que je vais teste !!!? Private Sub UserForm_Activate() Application.Visible = False End Sub Ouvrez vous deux classeurs ou plus et teste

Bonjour, Mais je veux juste cacher le classeur pour ce userform , pas tous les classeurs ouverts.

Bonjour, J'ai utilisé ce code pour ouvrir seulement le UserForm et cacher le classeur (Seulement concerné); SVP, Je veux vérifier ce code. Est-ce efficace ? Merci. thisworkbook : Private Sub Workbook_Open() On Error Resume Next Set AppClass.AppXL = Application If Application.Workbooks.Count...

Bonjour job75 , le forum, Un grand merci pour votre effort Cordialement.

Bonsoir job75 , le forum, Si vous voulez dire cette méthode C’est une bonne idée. Mais nous allons le prendre ce code, Convient pour la recherche ? Dim i As Byte, j As Byte, nbl& nbl = Range("A" & Rows.Count).End(xlUp).Row With Me.ListBox1 For i = 0 To .ListCount - 1 If...

Bonsoir, SVP, J'ai une question; Si vous souhaitez ajouter le "X" à un item que vous avez recherché; Cela peut-il être fait d'une manière simple et technique comme celle-ci? Merci

Merci @job75 :) Bonne journée.

Bonjour, Merci beaucoup job75 Il peut être utilisé pour le modification et la suppression ...? Dim i As Long With ListBox1 For i = 0 To .ListCount - 1 If .Selected(i) = True Then Range("A" & i + 2) = TextBox1 Range("B" & i + 2) = TextBox2 Range("C" & i +...

Bonsoir, Il y a quelque chose que je n'ai pas remarqué; Lors du choix d'un item en double , Le "X" est ajouté dans premier item.! Merci Dim i As Byte, j As Byte, nbl&, lig As Long nbl = Range("A" & Rows.Count).End(xlUp).Row With Me.ListBox1 For i = 0 To .ListCount - 1 If...

Bonsoir, c'est parfait merci beaucoup fanfan38 :cool:

Bonjour, Je veux ajouter un "X" à l'item sélectionné dans listbox , Mais j'ai un problème lors de la duplication de l'item; Le "X" est ajouté dans les deux items. Merci

Bonsoir, Vous avez trouvé cette solution Merci le forum Sub annuler() Dim lgn& lgn = Range("A" & Rows.Count).End(xlUp).Row With ThisWorkbook.Worksheets("Feuil1") For i = 2 To lgn If .Cells(i, 7) <> "" Then If .Cells(i, 7) <= CDate(Format(Now, "dd/mm/yyyy")) Then .Cells(i, 5) = "" .Cells(i...