Contenu récent par mido21

Bienvenue tout le monde J'avais soulevé ce sujet il y a un moment Je veux trier les données comme ça group1 1234 578 555 group2 5456 5555 Et ainsi de suite Sub kind3() With Application: .ScreenUpdating = False: .Calculation...

Bonjour Ce code ne fonctionne pas correctement Quelle est l'idée qui corrige ce code? Sub kind2() Sheet8.Range("b2:g10000").Clear With Application: .ScreenUpdating = False: .Calculation = xlCalculationManual: .EnableEvents = False: End With On Error Resume Next Dim ws As Worksheet...

Bonsoir Je veux migrer des données de papier "data" Il y a trois colonnes, la première colonne "d" _Son nom est "kind" Il y a trois colonnes, la première colonne "b" _Son nom est "group" Il y a trois colonnes, la première colonne "c" _Son nom est "name" Je veux la méthode de migration de données...

bonjour a tous Je vous serais obligé de corriger code suivant Sub print_report() With Application: .EnableEvents = False: .Calculation = xlManual: .ScreenUpdating = False: End With Dim xlApp As Excel.Application, xlBook As Excel.Workbook Dim ListData(), xlSheet As Excel.Worksheet Dim rep As...

Bonsoir Ce lien n'existe plus regrette peut-être pas la meilleure explication que je vous remercie de réponses sincère mido

Aussi pourquoi ces codes ne fonctionnent pas Private Sub CommandButton3_Click() 'FIRST RECORD BUTTON On Error Resume Next ListView1.ListIndex = 0 End Sub Private Sub Cmdbutton4_Click() 'LAST RECORD BUTTON On Error Resume Next ListView1.ListIndex = ListView1.ListCount - 1 End Sub

Bonsoir Ce lien n'existe plus Puis-je récupérer la colonne à l'intérieur( crdt) SubTotal(textbox.name) Puis-je récupérer la colonne à l'intérieur( debt) TNour(textbox.name)

Bonsoir Ce lien n'existe plus Voici un exemple qui fonctionne dans une bonne façon

Bonjour Jean marie excellent excellent excellent excellent excellent excellent Merci beaucoup ===================================== Peut-on recueillir une colonne dans ListView Exemple listbox Application.Sum(Application.Index(Me.ListBox1.List, , 4))...

Bonsoir S'il vous plaît examiner le code et correct Private Sub CommandButton7_Click() ListView1.ListItems.clear ' On Error Resume Next Dim RowNumber As Long Dim MaxRow As Long txt1 = Me.n1.Value: txt2 = Me.n2.Value: txt3 = Me.n3.Value MaxRow = sheet5.Cells(sheet5.Rows.Count...