Contenu récent par scraper

Bonjour Melltel Non testé. Sub Slides() Dim sld Dim shp As Shape Dim AllComments As String Set sld = ActivePresentation.Slides(1) Dim xlApp As Excel.Application Set xlApp = CreateObject("Excel.Application") Dim dlgOpen As FileDialog Set dlgOpen = Application.FileDialog( _...

Bonjour Remy003 Spécialisé en VBA pour word et excel. Pour bien comprendre le problème je voudrais avoir votre fichier Excel anonymisé et les liens incorporés (fonctionnement et méthode de création). Une fois le fichier disponible, un défilement dans une listbox inséré dans un userform vous...

Bonjour à tous https://www.alloprof.qc.ca/fr/eleves/bv/mathematiques/les-permutations-les-arrangements-et-les-combinai-m1346 avec excel

Bonjour Exceltb Je ne m'y connais pas suffisamment mais pourquoi ne pas créer des TCD identiques sur différentes feuilles qui auront leurs propres graphiques.

Bonjour Caninge. Merci à tous ceux qui t'ont fait des propositions. Nous verrons bien la suite.

Sub SaveWorkbook() Dim spath As String 'à tester une des deux lignes suivantes + SaveAs 'Range à adapter avec ThisWorkbook.Sheets("nom de feuille").Range("A1") si Société est en A1, idem pour "Nom" spath = ThisWorkbook.Path + "\" + Mid(ThisWorkbook.Name, 1, InStr(1, ThisWorkbook.Name...

Oui simon dans VBE Visual Basic ALT+F11, en manuel Menu Fichier Exporter / et inversement Fichier Importer. Lorsqu'un projet excel a beaucoup de userform, modules, classes, : https://github.com/hilkoc/vbaDeveloper

Google est ton ami, surtout avec l'outil de traduction vers l'anglais qui permet d'avoir souvent la bonne réponse

Bonjour Simon 1234 Tu n'ai pas le seul à qui cela arrive. Depuis très longtemps je sauvegarde (export) tous les modules de mes projets Excel pour pouvoir les recréer par import.

Bonjour BENAM69 Prends un bon café ca ira mieux Les valeurs de la colonne A ne sont pas testées avec Cells(I, 2).Value mais avec Cells(I, 1).Value

Pour moi lorsque je rentre dans la cellule B5 contenant 606 il me liste les lignes trouvées au nombre de 15. Je ne saisis pas d'étoile

Bonjour Telemarrk, Oneida Private Sub Worksheet_Change(ByVal Target As Range) Dim Filter As String, Col As Long, lastRow As Long If Not Intersect(Target, ActiveSheet.Range("B5")) Is Nothing Then Application.ScreenUpdating = False If Me.FilterMode Then Me.ShowAllData...

Bonjour à tous, meilleurs voeux Lire ceci https://www.codeproject.com/articles/640258/deconstruction-of-a-vba-code-module

en utilisant la fonction SI

Bonjour Cath. avec une commande replace supplémentaire et mon clavier numérique tout fonctionne Private Sub TextBox1_Change() Dim sep$, pos% With TextBox1 If .Text = "" Then Exit Sub sep = Application.DecimalSeparator .Text= Replace(.Text, ".", sep) If Not IsNumeric(Left(.Text...