Résultats de la recherche

Bonjour quand j'ouvre mon usf j'ai une listbox qui affiche mes feuilles Private Sub UserForm_Initialize() Application.EnableEvents = False LbClasseurs.Value = ActiveWorkbook.Name Application.EnableEvents = True End Sub ensuit en cochant la ou les feuilles je les imprime Private Sub...

bonjour voila,j'ai un programme en VB6,par lequel j'envoi des données dans une feuille excel. comment faire, à l'ouverture de ma feuille excel si dans la cellule E53 j'ai que sigle "€" alors il me met rien. et si dans la cellule C54 j'ai la phrase "remise de 0%" il me met "pas de remise" merci

bonjour avec se code j'ouvre la boite de dialogue "enregistrer sous" avec la valeur de D26.xls Private Sub CommandButton2_Click() Application.Dialogs(xlDialogSaveAs).Show Range("D26").Value & ".xls" End Sub mais est ce possible de rajouter une cellule exemple : Facture N° "D14" de Mr...

bonjour sur ma feuille j'ai une combobox et dans cette combobox j'ai une liste. comment faire lors d'un click sur un AddItem de la combobox je vais sur une feuille. exemple liste dans la combo A B C D click sur A je vais sur la feuille Alphabet click sur B je vais sur la feuille...

bonsoir j'ai une combobox sur une feuille comment faire pour intégrer une liste dans la combo qui se trouve dans la colonne A exemple une liste de A3 à A15 merci @ plus petchy

bonsoir voila j'ai un petit probleme avec un format date depuis mon programme que j'ai fait en VB6,j'envoi des données vers excel et dans une cellule je reçois une date de naissance dans le prog j'ai 02/07/2007 dans excel je reçois 07/02/2007,j'ai regarder le format de la cellule et j'ai...

bonjour j'ai fait un programme en VB6 à l'aide d'un bouton qui se trouve dans mon prog j'ouvre un fichier EXCEL,dans se fichier EXCEL que j'ai créer,j'importe des données de ma base ACCESS. donc à l'ouverture du fichier EXCEL,j'ai 3 CommandButton Enregistrer Actualiser les données : le...

bonjour dans une listview je récupère des données qui sont supérieur à 3 mois et 6 mois 3 mois = ligne bleu 6 mois = ligne rouge voila le code List.View = lvwReport ' mise en couleur (bleu) des données sup à 3 mois For i = 3 To Range("A65536").End(xlUp).Row If Cells(i, 3) < Date - 90...

bonjour dans un USF j'ai une listview avec 5 colonnes dans cette listview je récupere des données de ma base. Est ce possible à l'aide d'un click sur un bouton d'envoyer les données qui sont dans cette listview vers une feuille du meme classeur pour que je puisse imprimer. merci

bonjour grace à bqtr,j'ai résolu mon probleme de ligne rouge dans la listview :) maintenant je voudrais comptabiliser le nombre de ligne qui sont en rouge tous en sachant que la listview n'aur pas que des lignes en rouges. voila le code pour mettre le lignes en rouge ' mise en couleur...

bonjour dans une listview j'ai 5 colonnes 1 nom 2 prenom 3 date 4 titre 5 descriptif comment faire pour mettre la ligne en rouge si la date (colonne 3) est superieur à 6 mois par rapport à la date system. merci

bonsoir j'ai un code pour trier,mais il ne fonctionne pas tous le temps auriez vous une idée Sub Trier() Dim L As Integer 'tri les valeurs dans Database par ordre croissant L = Sheets("Database").Range("A65536").End(xlUp).Row + 2 Range("A3:E" & L).Sort Key1:=Range("A3")...

bonjour j'ai encore un probleme avec mon fichier j'ai mis mon code dans le zip pour ajouter des données,mais comment faire pour garder les couleurs dans les lignes quand j'ajoute une données,car la premiere ligne est figé.est avec se code il prend la couleur de la premiere ligne. et comment...

bonsoir j'ai un petit soucis avec une macro faite avec office 2007 et appliquer dans office 2003. c'est une macro pour faire un tri,avec 2007 pas de probleme,mais j'ai un probleme avec 2003. auriez vous une idée ? Sub tri() ActiveWorkbook.Worksheets("Database").Sort.SortFields.Clear...

bonjour dans une listbox j'affiche 5 données sur la meme ligne ListBox2.AddItem C.Offset(0, 0), N ListBox2.List(N, 0) = C ListBox2.List(N, 1) = C.Offset(0, 1) ListBox2.List(N, 2) = C.Offset(0, 2) ListBox2.List(N, 3) = C.Offset(0, 3)...

bonjour voila grace à Excalibur,je fair une recherche à l'aide d'un textbox Private Sub TextBox9_Change() Dim Plage As Range, cell As Range Dim Recherche As String, Adresse As String Dim Ligne As Integer, N As Integer Dim C As Range ListBox2.Clear N = 0 Recherche = TextBox9.Value...

bonjour dans un USF j'ai un textbox et une listbox la listbox se charge avec se code L = WsBase.Range("b65536").End(xlUp).Row Plage = WsBase.Range("b2:b" & L).Address ListBox1.RowSource = "Database!" & Plage comment faire une recherche en tapant une lettre dans le textbox ,c'est à dire si...

bonjour à l'aide d'un USF j'envoi des données sur une feuille colonne A:Date colonne B:Nom colonne C:Prénom colonne D:Divers dans un autre USF j'ai une listview comment faire pour afficher dans la listview les lignes qui sont supérieur à 90 jours par rapport à la date systeme. merci

bonsoir dans une cellule A1 j'ai une date comment faire pour mettre en rouge la ligne si la date est superieur à 90 jours par rapport à la date systeme. merci

bonjour à tous tous d'abord je vous souhaite une bonne et heureuse année et surtout une bonne santé. voila ,j'ai une question bete comment faire pour que lorsque mon classeur s'ouvre,si j'ai dans ma cellule G11 un chiffre superieur à 0 j'ai une image qui s'affiche if g11 > 0 then...