Résultats de la recherche

Bonjour, J'ai voulu créer une todo list en VBA. Pour ce faire, je créé et supprime des contrôles dynamiquement en VBA (label, checkbox et button). Tout fonctionne mais j'ai un problème d'afffichage qui me chagrine. En effet, lorsque je mets à jour l'affichage de la todolist, je supprime tous...

Es-tu bien sûr d'avoir renseigné une classe pour chaque élève et qu'il y a bien un onglet nommé par classe renseignée dans le tableau ? Attention, le code est aussi sensible à la casse (majuscules, minuscules espace etc..). Peux-tu me transférer ton fichier (tu peux enlever les noms des élèves...

Essayez avec ce code : Sub precision_interne234U() Dim i As Integer Dim moy As Double Dim SD As Double Dim moy2 As Double Dim SD2 As Double With Sheets("Feuil1") moy = Application.Average(.Range("C24:C53").Value) SD = Application.StDev(.Range("C24:C53").Value) For i = 24 To 53 If .Cells(i...

Bonjour, Pouvez-vous me joindre votre fichier ou me dire à quelle ligne il y a un bug.

Bonjour, Pour automatiser, il faut analyser le lien et voir si la référence et la période que tu inscris sur le formulaire du site web peuvent bien être manipuler en VBA. Pouvez-vous m'envoyer un exemple de lien de la page Web affichée après avoir fait une requête (référence et date choisie).

Dans ce cas-là utilise plutôt un copier / coller sans passer par une variable tableau, comme ceci. Attention ce code copie le format + bordures + valeurs. Sub Copie_CA() Dim OS As Worksheet 'déclare la variable OS (Onglet Source) Dim OC As Worksheet 'déclare la variable OC (Onglet...

Bonjour @Bidabu, je reviens vers toi. Essaye avec cette macro pour voir et fais moi un retour.

Oui, la variable i parcourt les lignes du premier onglet, puis pour chaque ligne on parcourt les colonnes de ce premier onglet avec la variable j. Ensuite on fait de même pour le deuxième onglet avec la variable k et l. On imbrique le tout, quelques nœuds au cerveau plus tard, on arrive au...

Je te fais ça dans le w-e

Oui tu as raison.

C'est mon côté fainéant ;) J'aurais fait un truc du genre, il faudra simplement remplacer Sheets("Feuil1").Range("A1").Value par la vraie référence choisie : Sub alert() v_date_derniere_exe = Sheets("Feuil1").Range("A1").Value If Format(Now, "dd/mm/yyyy") =...

Juste ça, ça suffit : Sheets("Feuil1").Range("A1").Value = Now

Ok j'ai compris, je vais essayer de te faire ça

Donc dis moi si j'ai bien compris avant de partir dans le code : J'ouvre tous les fichiers .PLX qui sont dans un seul et même dossier. Pour chaque nom de fichier en .dxf que je trouve (1 ou plusieurs), je vais regarder dans le dossier ("fichiers DXF modifiés") s'ils existent. Si c'est le cas...

Bonjour, Peut-être une petite astuce : A chaque fois que tu lances la macro, tu inscrits dans une feuille cache la date et l'heure de la dernière exécution. Ensuite à chaque lancement de ta macro, tu vas chercher cette valeur et tu compares si le jour de la date de "maintenant" n'est pas égal...

Ok, je comprends bien ton pb, par contre si tu souhaites automatiser en VBA (c'est largement faisable), il va quand même falloir que l'algorithme puisse se repérer dans le fichier .plx. Peux-tu me confirmer que sur tes fichiers PLX les noms des DXF sont toujours après ce texte pour commencer à...

Bonjour, Je t'ai créé 2 boutons (vers la colonne Q de la feuille élèves), un pour faire la répartition et un autre si tu souhaites effacer les données réparties. Je suis passé par de la programmation VBA (l'extension du fichier a donc changé en .xlsm)

Pouvez-vous me dire la ligne qui correspond au nom de fichier .dxf correspondant dans ce fichier d'exemple. Deuxième question, est-ce que ce nom de fichier est toujours au même numéro de ligne ?

Bonjour, Pouvez-vous me joindre un exemple d'un fichier PLX ?

Bonjour, Essaye avec un code comme ceci : Sub analyse() For i = 2 To 26 v_ligne_analyse = Sheets("ANALYSE").Cells(i, 1) For j = 0 To 16 v_colonne_analyse = Sheets("ANALYSE").Cells(1, j + 3) For k = 2 To 26...