Résultats de la recherche

  1. N

    RechercheV avec plusieur condition

    Bonjour, J'ai déposer ci joint un fichier. Mon problème est que je doit récuperer le nombre de ligne correspondant à plusieur critère. J'ai expliqué au mieux le déroulement sur le fichier En espérent que vous pourrez m'aider ;) A++
  2. N

    fonction

    Bonjour, J'essaie de faire un truc mais j'y arrive pas lol : Je suis dans un feuil et je veut avoir le nombre de ligne existante suivant plusieurs critère se trouvant dans une feuil 2010 Dans ma feuil nommé par exemple parametre, je choisi une date par exemple 2010 qui se trouve en B1...
  3. N

    listobx erreur si 1ere colonne est vide

    Bonjour le forum, mon probleme est le suivant, j'ai une lisbox qui se remplie avec le code ci dessous : Dim L As Integer 'Variable pour connaitre le numéro de derniere ligne Dim i As Integer Set rgnumform = F2.Range("A2", F2.Range("A65536").End(xlUp)) Set rgnumform1 =...
  4. N

    Imprimer un tableau

    Bonjour a tous, Je recherche le code en vba pour imprimer un tableau qui se nomme "détail" Voici mon code actuel, mais je n'arrive pas à le mettre en forme : Private Sub CommandButton18_Click() Sheets("Détail", "tableau,détail!").Select Selection.PrintOut Copies:=1 End Sub Le...
  5. N

    mois auto dans un textbox

    A nouveaux bonjour à tout le forum, Ma question est la suivante, j'ai un userform dans lequel se trouve un textbox j'aimerais en fait qu'a l'ouverture le Mois en cours s'affiche dedans. J'ai la meme chose pour la date avec le code suivant : Date du coup la date du jours s'affiche donc...
  6. N

    Incrémenter + une lettre

    Bonjour à tous, Comme dis dans le titre....j'ai un code qui fonctionne ; .Cells(Derli, 1) = Application.WorksheetFunction.Max(.Range("A:A")) + 1 J'aimerais ajouter une lettre aprés l'incrementation ce qui donnera genre 1B 2B 3B 4B ETC Merci à ce qui pouroont m'aider !
  7. N

    Recherche dans une colonne

    Bonjour à tous, J'ai actuelement un code parfaitement fonctionnel : If cel1.Offset(0, 10) = TextBox10 Then Si la ligne 10 est égale au textbox alors j'ai mon résultat. J'aimerais avoir le résultat meme si je n'ai pas le chiffre exacte exemple : Si je tape 55 et qu'il y a un résultat...
  8. N

    recherche plusieur colonne listview

    Bonjours à tous et à ceux que je commence à connaitre :D J'ai un fichier avec une listview, j'ai des colonne avec tout les Mois de l'année dans laquel on trouve "cheque" et "facture". J'aimerais que grace à un textbox on puisse rechercher un numéro de cheque ou de facture. J'arrive à le...
  9. N

    envoyer des donner dans un autre classeur

    Bonjour à tous, Est il possible d'envoyer(enregistrer) des données dans un autre classeur. Par exemple, j'ai ce code qui envoie les donnée d'un userform sur une feuil du même classeur : Private Sub CommandButton2_Click() Dim Derli As Byte 'changer le type en fonction du nombre de...
  10. N

    Problème de mise en page

    Bonjours à tous, Petit problème de mise en page, Ma fenetre de propriété et l'explorateur de projet qui prennent toutes la largeur de la page, je prefererai qu'il reste en parti sur la gauche. Savez vous quelle manip je doit faire pour le remettre sous la forme de départ..... Merci...
  11. N

    Date +1

    Bonjour, Savez vous comment additionner une date : format de la date JJ/MM/AAAA En cliquant sur un bouton sa ajoute 1 aux jours Merci par avance :)
  12. N

    Décalage listview

    Bonjour, J'ai un petit problème avec un système de multi page qui contient des listview, comme vous le constaterez, lors de la 1ere ouverture de l'usf et que vous basculé d'une page à l'autre, les listview ne se mettent pas à leur place. Avez vous une idée pour régler ce problème ...
  13. N

    Multi selection listview

    Bonjour, Voici un fichier comprenant une feuil avec differents montant ainsi qu'un userform avec une listview qui récupere ces données. Vous remarquerez qu'en cliquant sur une ligne, les montant apparaissent dans le petit rectangle à gauche du listview. J'aimerais pouvoir faire de la multi...
  14. N

    Sécuriser le cellule

    Bonjour, J'aimerai empecher un utilisateur de pouvoir modifier les feuil manuelement, pour ce faire dans l'onglet "révision" je clique sur "protéger la feuil". Ca marche mais le problème c'est que je ne peut plus rentrer les donné avec les USF auriez vous un code qui permet de rentrer des...
  15. N

    Remplir un combox sous condition

    Bonjour, J'ai un combox à remplir sous condition : si (dans la feuil"encaissement client") dans une ligne, il y a un chiffre identique au Label260(le label se trouve dans l'userform) dans la colonne 91 alors le numéro de la 1ere colonne de cette meme ligne apparait dans la combox Voici...
  16. N

    Recher sur une feuil

    Rebonjour à tous, Jai un code qui n'est pas trés fonctionnel : (dans workbook) If Sheets("Année").Range("B2") = "" Then With userformpageprincipal .Label57 = Sheets("Année").Range("B2") End With End If Celui ci devrais vérifier ci quelque chose est écrit en B2 dans la feuil "année"...
  17. N

    Double bouton + et -

    Bonjour, Dans un USF je vais chercher les donnée d'une feuil"récapitulatif" celle ci va dans un listview J'aimerais par un double bouton pouvoir de la maniere suivante : Private Sub CommandButton1_Click() Dim cel1 As Range ListViewrecap.ListItems.Clear For Each cel1 In...
  18. N

    garder en mémoir des checkbox coché

    bonjour, dans un userform, j'ai des checkbox qui modifi des colonne dans ma page d'accueil, j'arrive pas à faire en sorte que j'en je ferme l'application et que je la rouvre, tout les checkbox coché reste coché au démarrage. Voici mon code de fermeture Private Sub cmdquitte_Click() Dim...
  19. N

    Modifier la cellule correspondante

    Bonjour, J'ai un combox qui va cherche dans la feuil "Fiche" des donnée se trouvant dans la colonne Q Toute les données s'affiche dans la combox. J'aimerais pouvoir les modifier donc avec le combox je selectionne quelque chose (toujours dans la colonne Q) la selection se trouve...
  20. N

    Msgbox à trois possibilité

    Bonjour voici un code : Private Sub CommandButton7_Click() If msgbox("ATTENTION, Voulez vous sauvegarder avant de quitter ?", vbYesNoCancel, "Modification") = vbYes Then ThisWorkbook.Save Unload Me Application.Quit If vbNo Then Unload Me Application.Quit End If If vbCancel Then...