Contenu récent par gabriel

Pierrejean, le forum.... re re bonjour Voila un petit fichier, pas facile d'obtenir 50 ko... l'apllication faisait 2,5 mo... Mais ça va... J'expère que l'exemple est assez explicite. Je vois que tu est tré rapide, bon appétit Merci Gabriel apparament le fichier n'est pas passé...

Bonjour Pierrejean, rebonjour le forum, En fait, tout se passe sur un userform de saisie 'CréationClient', après validation les infos contenues dans l'USF se 'vident' sur la feuille 'Client', je me sert des données du champ 'CodeDossier' pour effectuer mes recherches. Avec le code actuel si je...

Bonjour à toutes et à tous, J'ai un petit soucis pour la mise en place d'une numérotation de dossiers dépendant d'un choix dans une ComboBox... Je dispose d'un TextBox (N° de Dossier) et d'une combo (Type de dossier), je souhaiterais mettre en place une numérotation qui se composerait comme...

Bonjour à toutes et & tous, Je souhaiterais savoir s'il est possible de faire déplacer la sélection d'une listbox avec un spinbutton (toupie). J'ai dans mon usf des textbox, une listbox & un spinbutton? pour le moment la listbox + textbox => fonctionne correctement Spinbutton + textbox =>...

Bonsoir à tous les virtuoses du VBA, particulièrement Robert qui m'a bien dépanné. Charly2, je suis en train d'apprendre... des codes comme ça à chaud, ça fait peur ! il faut me laisser le temps de digerer le basic avant de faire compliqué... mais c'est sympa quand même. Derniere petit...

Re bonjour a tous et a toutes Robert Apparamment ca fonctionne... je t'envois quand meme l'USF, je pense que tu trouveras quelques abberrationsssss. Dans tous les cas merci beaucoup de ton aide, le code fonctionne et en plus j'ai appris pas mal de choses... @+

Bonjour & Merci Au lancement de la validation j'ai ce message qui apparaît : Référence incorrect ou non qualifiée Il me surligne '.Range('A' & li).Value = TextBox9.Value' Erreur d'execution '1004' Erreur définie par 'application ou par l'objet sais tu d'ou ca peut venir ? Merci

Bonjour Robert, A la base je suis sur un USF de recherche Tous commence à la validation des modifications. Je souhaiterais déplacer la ligne quand la valeur de la CheckBox2= True Je me déplace dans la base de donnée avec une listebox Multicolonne, .... Voila le code dans lequel je...

Bonsoir à toutes et tous, J'aurais besoins d'une astuces pour finaliser mon programme : Déplacer une ligne complète de données d'une feuil1 à une feuil2, que le déplacement ne génère pas de blancs et que le transfert sur la feuil2 soit fait tjrs en fin de tableau.... et tout ça à partir...

Bonsoir Gruick Suite à ton conseil j'ai fais ça : Sub TriExtract() Range('ExtractEnseigne').Select Selection.Sort Key1:=Range('AB2'), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal...

Merci à vous de vous pencher sur mon cas... Le problème c'est que le programme que j'ai fait en XL4 date un peu, qu'il fait 34 Mo, néanmoins très esthétique ce qui explique son poids. Cette conversion de code me permet aussi et surtout d'apprendre un language qui à mon avis et plus puissant et...

Merci pour ce morceau de code... Mais ca marche pas. En fait ce que je souhaiterais, c'est nommer une plage de cellules issu d'une extraction sans doublons (via le filtre élaboré) pour alimenter des combobox. colonne AB = dossier colonne AC = enseigne colonne AD = societe colonne AE =...

Re Bonjour, Essaye de lancer tes fichiers sans lancer de macro (tu les ouvrent avec la touche shift enfoncée) Passe les valeurs False en True pour rétablir tes options. .DisplayGridlines = True .DisplayHeadings = True .DisplayHorizontalScrollBar = True .DisplayVerticalScrollBar =...

Bonjour à tous, Existe t-il une traduction ou correspondance meme approximative des macro XL4 Je suis en train d'actualiser un programme XL4 en VBA et c'est assez ardu... quelqu'un peut m'aider ? exemple de code à traduire =SELECTION.ATTEINDRE('DebutBase') =MODIFIER.SELECTION(4)...

Bonjour, J'avais le meme problème j'ouvrais 2 fichiers 1 de 7 MO 1 de 34 Mo voila ce que j'ai fais (Excel 2003 V.11.5612.5606)Le fichier le moins volumineux lance le plus volumineux... ----------------------- Sub auto_open() ' 'masque toutes les barres et menus Dim Cmdb As CommandBar...