Résultats de la recherche

Bonsoir, Je rencontre une difficulté pour extraire toutes les données d'une liste (liste de cours) en fonction d'un critère (1 ou vide) pour construire une nouvelle liste. J'ai obtenu un premier résultat au moyen de fonction DÉCALER, EQUIV et NB.SI mais je sens que je tourne autour du pot. (voir...

Bonjour à toutes et à tous, Travaillant sur Mac, je ne dispose pas des activeX pour manipuler des images sans VBA. N'ayant besoin que de l'icône statique d'un sablier, j'ai opté pour une manipulation de la transparence par VBA pour faire "disparaître" ou "apparaître" mon image. J'ai testé...

Bonjour à tous, Je coince sur un détail. Je modifie la propriété "ListFillRange" d'une listebox sans difficulté à partir d'un bout de macro enregistrée : ActiveSheet.Shapes.Range(Array("List Box 3")).Select With Selection .ListFillRange = "eExercices" .LinkedCell =...

Bonjour à tous, Pour une petite application, j'ai besoin de créer / supprimer un bouton. Je parviens à : Créer le bouton Modifier son texte en fonction de mes besoins Positionner le bouton où je le souhaite Je ne parviens pas à : Stocker son nom de type "Button 000" dans une...

Bonjour à tous, Je rencontre un soucis avec un test If dont voici le code : Option Explicit Dim chemFic As String Public Sub selectionFichierAMettreEnForme() chemFic = Application.GetOpenFilename("XCEL,XLS8") If chemFic = Null Then 'Si l'utilisateur annule la boîte...

Bonjour à tous, Je souhaiterais produire un tableau sans lignes vides. Mon fichier réalise 250 tests sur une feuille de temps de travail. Un test positif rend 1, un test négatif rend 0. Une cellule affiche le message associé à chaque test positif et un bouton d'incrémentation permet de...

Bonjour à tous, Je cherche à lister les occurrences d'une colonne pour présenter le résultat dans une zone de liste modifiable (exactement à la manière du menu déroulant en tête de colonne). Si quelqu'un sait faire cela, je lui en saurai fort gré. ;)

Bonjour le forum, J'utilise la macro suivante pour extraire les données d'un fichier. Public Sub TransfertDonnees() acopier = Array("G8:G12") For i = 1 To 52 vers = Array("B" & 2 + ((i - 1) * 7)) For n = 0 To...

Bonsoir le forum, Je cherche un moyen de contrôler si les caractères saisis dans une TextBox appartiennent tous aux groupes [a-Z] et [0-9] plus le trait d'union (-) et l'underscore (_). Je me doute que je ne suis pas le premier à rechercher ce moyen mais impossible de trouver un article sur...

Bonsoir le forum, Je rencontre des difficultés pour intégrer cette macro dans un environnement "Option Explicit" Private Sub TransfertAccueil() 'pour le transfert dans 1 page Dim bcopier() As Variant Dim n As Integer Application.ScreenUpdating = False...

Bonjour le forum, Je n'arrive pas à comprendre l'intérêt des On Error… dans les deux macros suivantes (trouvées je ne sais plus trop où) : Sub CacheBarres() On Error Resume Next With Application .DisplayFullScreen = True .CommandBars("Full Screen").Visible = False...

Bonjour le forum, J'utilise la fonction ExecuteExcel4Macro pour lire le contenu d'une cellule dans un classeur fermé. Public Sub LireCellule() MsgBox ExecuteExcel4Macro("'Macintosh HD:Users:somebody:documents:admin:temps:temps07_08:[07_08_v12.xls]accueil'!R37C28") End Sub Parfois, le...

Bonsoir le forum, Je teste la validité d'un fichier Excel contenant des données à importer au moyen de la macro suivante (la célèbre fonction GetValue se trouve dans une autre procédure ;)) : Sub TestGetValue() sheet = "accueil" ref = "AB37" If Mid(GetValue(path, file, sheet, ref), 1...

Bonjour le forum, Je suis à la recherche d'une liste "type - créateur" à jour pour tester par macro si un fichier est un fichier Excel valide ou non ? J'ai trouvé ce genre de liste sur internet mais elle n'est pas à jour et mactopia ne donne rien non plus, sauf erreur de ma part. MS Excel 1.x...

Bonjour le forum, Je rencontre un petit soucis de syntaxe : Const pass As String = "mot de passe" Private Sub activer_protection() Windows("sem07_08_v12b.xls").Activate Sheets("accueil").Protect Password:="pass" For i = 1 To 52 If i < 10 Then i...

Bonjour le forum, Mon problème du jour est le suivant : Je souhaite paramétrer une barre de progression en fonction de l'avancement du traitement d'un nombre de cellules connu. L'exemple que j'ai trouvé et que je joins provient du site microsoft et fonctionne bien (phénomène rare sous...

Bonsoir le forum, Je cherche la syntaxe, si elle existe, pour sélectionner des plages de cellules non contiguës. Par exemple Range("A1:A3" and "C1:C3").Select Si quelqu'un connaît une solution, je suis tout ouïe D'avance merci ! :)

Bonjour le forum, Je désire réaliser une macro pour transférer le contenu des cellules d'un fichier vers un autre dont la structure est identique (nombre et nom des feuilles notamment). Les fichiers comptent 60 feuilles : • 52 feuilles nommées "sem01" jusqu'à "sem52" • 8 feuilles nommées...

Bonjour le forum, Je souhaite créer un compteur plus élaboré que le bouton "compteur" proposé par Excel. Un bouton "suivant" incrémenterait la cellule cible de 1. Un bouton "précédent" décrémenterait la cellule cible de 1 (limité à 0). Un bouton "annuler" attriburait la valeur 0 à la...

Bonjour, Je rencontre une erreur #NUM! dans une cellule… L'aide d'excel ne répertorie pas cette erreur. Je ne parviens pas à trouver une source sur le web. Quelqu'un a-t-il déjà rencontré cette erreur NUM ? et saurait-il m'expliquer d'où elle provient ? Je joins mon fichier au cas...