Résultats de la recherche

  1. J

    listbox multiple en fonction de la valeur precedente

    Re : listbox multiple en fonction de la valeur precedente Merci tu m'a mis sur la bonne piste...... Vraiment apprecier
  2. J

    listbox multiple en fonction de la valeur precedente

    Je sollicite votre pour avoir de l'aide a faire 3 listbox en fonction Voir document ci joint liste1 liste2 (*) liste3 (**) DTIM DG, DASD DASD-DGO DG, DSD DSTM DG, TSD DDS DTIM-DACO PAD DSD-DGO Si on choisi DTIM dans une...
  3. J

    Date: passer à l'année suivante

    Re : Date: passer à l'année suivante Difficile de vous aider si vous n'attacher pas une exemple de votre fichier
  4. J

    lien entre les cellules

    Re : lien entre les cellules Ce n'est pas parfait mais....
  5. J

    [Résolu]Vérifier si fichier word ouvert erreur 429

    Re : [Résolu]Vérifier si fichier word ouvert erreur 429 J'utiliserais ce code http://support.microsoft.com/kb/209189 J'espere que cela va t'aider
  6. J

    Import selectif de données .txt

    Re : Import selectif de données .txt La fin simple est d'importer le tout et ensuite faire le menage... Si tu attaches un exemple texte ainsi un fichier excel tu vas avoir des meilleurs resultats.....
  7. J

    Macro Instruction Excel 4.0 et utilisation de Excel 2010

    Re : Macro Instruction Excel 4.0 et utilisation de Excel 2010 Have a look hear http://technet.microsoft.com/en-us/library/cc179167.aspx#BKMK_WhatsRemoved
  8. J

    Ambiguous name detected

    Re : Ambiguous name detected Merci Staple1600 pour ta suggestion Finalement je reuissi a les supprimer en utilisant ceci Public Sub ToggleActiveXButtons() Dim oleobj As OLEObject For Each oleobj In ActiveSheet.OLEObjects If oleobj.progID = "Forms.CommandButton.1" Then...
  9. J

    Ambiguous name detected

    Re : Ambiguous name detected bon de retour au boulot lorsque que j'utilise Sub test() For Each i In ActiveSheet.Shapes a = ActiveSheet.Shapes(i.Name).Name MsgBox a Next i End Sub Le message box retourne cmdRunForm4, cmdRunForm5, et cmdRunForm6 Cependant lorsque...
  10. J

    Ambiguous name detected

    Re : Ambiguous name detected merci Chris je suis a la maison je regarde le tout au bureau, mais de memoire je crois que non. Plus que je pense, plus je crois que le boutton est cacher et non supprimer. bonne soiree
  11. J

    Ambiguous name detected

    Bonjour a tous Vous allez m`excuser je travail avec excel en anglais, donc la terminologie sera anglaise. J`ai un petit probleme lorsque je fais un boutton et que je le nomme cmdRunForm et je l`associe a un evenement (click) qui appelle auto_open. Si part accident je delete ce...
  12. J

    Quel age a -t-il ?

    Re : Quel age a -t-il ? voici un exemple en vba {code} Sub main() Dim todaydate As Date Dim howold As Date todaydate = Format(Now, "DD/MM/YYYY") howold = InputBox("Entrer votre date de naissance sous ce format DD/MM/YYYY") 'On Error GoTo errorhandler 'errorhandler: 'MsgBox "Vous devez...
  13. J

    Problème de passage 2003 à 2007

    Re : Problème de passage 2003 à 2007 bonjour, Je regarderais les options de tcd si les données nulles à masquer sont dans les lignes ou dans les colonnes, il est possible de les ôter du TCD en les décochant. ex : si une entête de colonne est "date" et que dans le champ date vous voulez...
  14. J

    Réalisation mensuel par excel

    Re : Réalisation mensuel par excel ou une variation en vba Sub test() 'ecrire le mois dans la colonne P 'faire un filtre sur la colonne 'transcrire la colonne dans le bon mois Sheets("Feuil1").Select RowCount = Cells(Cells.Rows.Count, "b").End(xlUp).Row Range("b2").Select...
  15. J

    Message de protection

    Re : Message de protection Avez-vous essayer Sub auto_open() Application.DisplayAlerts = False End Sub
  16. J

    Création fichier CSV

    Re : Création fichier CSV Bonjour Peut-etre que ceci peux t'aider Sub creation_dossier() Dim x As String, strPath As String Const fich = "sera save en CSV" On Error Resume Next strPath = "C:\test\fich" & ".csv" x = GetAttr(strPath) And 0...
  17. J

    commentaire pre rempli

    Re : commentaire pre rempli avez-vous essayer de faire un bouton et inserer le code suivant: Sub ajoutcommentaire() devis = InputBox("Le devis a ete envoye le?") contrat = InputBox("Le contrat a ete envoye le?") contact = InputBox("La personne contact est?")...
  18. J

    Pb contenu de cellules

    Re : Pb contenu de cellules Avez-vous essayer quelque chose du genre Sub test1() 'Dim valida As Date RowCount = Cells(Cells.Rows.Count, "a").End(xlUp).Row 'loop myarray = Array("g", "h", "i", "j") For j = 0 To 3 For i = 8 To RowCount...
  19. J

    Code d'accés et différents utilisateurs

    Re : Code d'accés et différents utilisateurs merci joney vraiment sympa de ta part...
  20. J

    Code d'accés et différents utilisateurs

    Re : Code d'accés et différents utilisateurs Allo Joney Peux tu me dire comment tu as fait password ****** dans la form