Résultats de la recherche

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...

Je m’excuse si j’ai raté un poste dans un autre forum Je ne voulais pas offenser quiconque, mais je veux mon assistante qui a le temps Je vous remercie pour votre réponse malheureusement encore vous déranger.

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...