Contenu récent par blord

Bonjour, Essayer .ClearContents avec un s...

Bonjour à tous, Juste pour ajouter mon grain de sel : ThisWorkbook.Worksheets("NomDeTaFeuille").Range("A10:T1048576").ClearContents Il n'est pas requis de sélectionner les cellules avant de les effacer Le ThisWorkbook permet de s'assurer que l'on travaille dans le bon classeur Le...

Bonjour à nouveau, Voici ce que pourrait être le code sur votre bouton : Private Sub CommandButton1_Click() If TextBox1.Value = "jj/mm/aa" Or TextBox2.Value = "" Or TextBox3.Value = "" Or TextBox4.Value = "" Or TextBox5.Value = "" Or TextBox6.Value = "" Or TextBox7.Value = "" Or...

Bonjour, Mon code teste effectivement la colonne A pour déterminer la ligne disponible, idéalement il faut tester la colonne qui contient le plus de données ou celles qu sera toujours complètement remplie.

Bonjour, voici la méthode que j'utilise : Dim DerLig As Long DerLig = ThisWorkbook.Worksheets("Feuil1").Range("A" & ThisWorkbook.Worksheets("Feuil1").Rows.Count).End(xlUp).Row +1 Ceci permet de déterminer la dernière cellule utilisée de la feuil1 dans la colonne A (Remarquez le +1 à...

Salutations, Merci pour ton fichier, c'est très apprécié, ça va m'éviter de faire moi-même un "fichier universel".... Bonne journée !

Bonjour à tous, kiki29, Merci, grâce à ton retour, j'ai réussi à concevoir mon code qui me permet de récupérer les propriétés requises. Sub NombrePagesMotsDocumentWord() Dim objWrd As Object Dim objDoc As Object Dim DerLig As Long Dim i As Long DerLig =...

Bonjour tout le monde, Est-ce que vous savez s'il est possible de récupérer les propriétés "Nombre de mots" et "Page" pour un fichier WORD dans un répertoire ? J'ai plusieurs milliers de fichiers WORD pour lesquels ont doit compiler le nombre de mots et de pages afin de faire une évaluation...

Bonjour, 500 cellules à 2 secondes par cellule donne 1000 secondes de traitement. 1000/60 = +/- 15 minutes L'utilisateur attendra donc 15 minutes avant la fin du traitement... Je ne sais pas si dans votre cas c'est acceptable ou non...

Bonjour, Dans mon entreprise, nous sommes 2 personnes à faire du développement VBA avec Excel. Nous avons rapidement constaté qu'Excel avait changé au niveau de la gestion des "classeurs actifs" et que le "vrai" classeur actif peut être différent de ce qui est affiché à l'écran. Comme vous...

Bonjour, Je n'ai pas compris votre problème mais vous pourriez beaucoup simplifier votre code en faisant ceci : Sheets("jour 1").Range("D1").FormulaR1C1 = "=Feuil1!RC[-2]" blord

Bonjour, Autre piste, est-ce que la plage de données sur laquelle vous appliquez la fonction MAX contient unquement des données numériques ?

Bonjour, Je porterai également une attention plus particulière au fichier lors de la lecture des posts. Blord

Bonjour à tous, Très bon travail, j'aime beaucoup cette nouvelle version... Merci !

Bonjour, Essayer de rmeplacer le .Delete par .ClearContents