Créer une inputbox pour rechercher une valeur Résolu

Question

Bonjour,
 comment puis je utiliser une boite qui permettrait de saisir une valeur a rechercher dans une liste et de sélectionner toutes les cellules qui contiennent cette valeur et d'inscrire dans la cellule a coté l'heure.
je n'arrive pas a combiner la fonction recherche et une inputbox.
Merci de votre aide

balou01 · Answer

une des bases de ce forum si tu veux obtenir de l'aide c'est de nous dire dans quel langage tu souhaite faire ca...

Il n'y a aps quelqu'un qui va te donner la solution dans tous les langages possibles et imaginable !

lermite222 · Answer

Bonjour,
C'est facilement faisable mais ce serait peut-être plus simple de sélectionner une des cellules qui contient les cellules à chercher et un bouton pour envoyer.

Qu'en dit-tu ?

lermite222 · Answer

Tu ne précise pas les coordonées mais j'ai déduit..
Sub BV2()
Dim i As Long
Dim Debut1 As Integer
Dim Critere As Variant
    Debut1 = 9
    Critere = Cells(2, 7) 'pour G2
    For i = Debut1 To Range("F1").SpecialCells(xlCellTypeLastCell).Row
        If Cells(i, 6) = Critere Then 'teste colonne F
            Cells(i, 9) = Time 'écrit colonne I
        End If
    Next i

End Sub
Tu dit

lermite222 · Answer

c'est quoi ton 'bon', une feuille ? un UserForm ?

Montre la macro que tu a commencé pour ca.

lermite222 · Answer

Pour ta 1ère erreur faut mettre un On error, 
    On Error GoTo passe
    ......
    Exit Sub
Passe:
    msgbox "Valeur non trouvée"
End sub
Pour le 2 je supose que c'est ça que tu veux faire ?

Pour effectuer des recherches plus complexes, utilisez une instruction For Each...Next avec l'opérateur Like. Par exemple, l'exemple de code suivant montre comment rechercher toutes les cellules de la plage A1:C5 qui utilisent une police dont le nom commence par les lettres « Cour ». Lorsque Microsoft Excel trouve une cellule correspondante, il lui affecte la police Times New Roman.
For Each c In [A1:C5]
    If c.Font.Name Like "Cour*" Then
        c.Font.Name = "Times New Roman"
    End If
Next
Sinon tu explique mieux le 2.

lermite222 · Answer

Je comprend pas, Met les données complète (remplir toute la ligne)pour une ligne dans la feuilles moteur,  y compris la 2èm ligne qui semble être prise en compte ...NB+ et NB- ? à l'avant dernière colonne.
Ensuite, avec les données de la feuilles moteur, tu rempli complètement la feuille bon, tu demande des données de 1 à 7 mais quoi?

lermite222 · Answer

J'ai pourtant été clair, du moins il me semble...
Ensuite, avec les données de la feuilles moteur, tu rempli complètement la feuille bon, tu demande des données de 1 à 7 mais quoi? 
Pour mieux me faire comprendre, A LA MAIN TU REMPLI LE BON AVEC LES DONNEES COMME IL DOIT ETRE, JUSTE AVANT DE LE METTRE DANS LA FEUILLE IMPRESSION. comme ça, j'ai des repères sur ce que tu veux.
Et question suplémentaire, tu dit ensuite passer à la ligne suivant et recommencer, 
MAIS OU DOIT-ONT METTRE le 2ém formulaire... le 3em etc...sur la feuille impression ? l'un en dessous de l'autre ?
Dit-toi bien que je ne suis pas dans ta tête et qu'il me faut des renseignements, tant que je ne sais pas exactement ce que tu veux il est impossible d'y arriver.

lermite222 · Answer

Aucun problème pour faire ce que tu voulais, j'ai fait avec les renseignements donner.
Si pas tout à fait ça tu dit...
Ton classeur

lermite222 · Answer

Fais BIEN ATTENTION aux noms des feuilles, si tu m'a mis un modèle avec les noms de feuilles différents c'est pour cela que ça plante, souvent, un espace fait la différence. Si tu teste sur mon classeur, les 2 bons sont bien copier dans impression.
Alors cherche un peu... A toi de jouer.

lermite222 · Answer

Faudra bien trouver une solution..
essaye ceci..
'---------------------------------------------
        'Copie le bon dans la page d'impression.
        FLbon.Range("A4:G19").Copy FLI.Cells(LigImp, 1)
        LigImp = LigImp + 16
'---------------------------------------------
Dans le bas de la macro remplace toute les lignes entre leslignes-tirets pour que ce soit comme ci-dessus, ça fonctionne aussi chez moi, j'ai pas employer cette méthode en premier parce qu'elle aussi crée quefois des prob.
tu dit

lermite222 · Answer

Apparement c'est une erreur Windows.
Un DLL ActiveX Visual Basic qui se connecte dans le journal des événements Windows NT peut provoquer des erreurs lorsqu' être appelées par un programme client exécuté en le débogueur Visual Basic. Possibles erreurs incluent : 

• Erreur 429.  
• Erreur 80010108 OLE.  
• Violation d'accès. 

Statut
Microsoft a confirmé l'existence d'un problème dans Microsoft Transaction Server version 1.0. Nous recherchons ce problème et publierons l'information nouvelle ici nous dans la Base de connaissances Microsoft dès qu'il est disponible

Quel est la mise à jour de windows que tu a ? PakX ?

lermite222 · Answer

J'ai relu le message d'erreur que tu a donné... semblerait que c'est une erreur avec les objets.
Remplace la ligne copy par 
        Sheets("bon").Range("A4:G19").Copy Sheets("impression").Cells(LigImp, 1)
et si ca va pas encore je changerais dans le corp de la macro

Edit:
Y a encore quelque chose, vérifie dans la fenêtre Projet - VBAprojet de l'IDE, si tu n'a pas le projet MoreFunc_Toolbaar
Tu dit

lermite222 · Answer

remet ton classeur sur Cjoint
Edit;
Attend.. quand Excell à planté, tu à rebooté ? sinon, fait le.
Moi j'ai le 2000 et quand ça m'arrive je doit faire ça aussi.

lermite222 · Answer

désolé mais j'ai télécharger le classeur, j'ai clik sur le bouton et tout est OK.
Sans ton PC je ne vois vraiment pas ce qui voir ce qui cloche.
Vérifie encore celà..
Dans l'IDE >> Outils >> Références
Dans la fenêtre ouverte tu doit avoir les lignes suivante qui sont cochée..
Visual Basic For Applications
Microsoft Excel X.X Object Library
Ole Automation
Microsoft Office X.X Object Library
Microsoft Forms 2,0 Object Library
Si un manque, recherche le dans la liste et tu coche.

caribou38 · Answer

j'ai testé la macro sur un autre pc même résultat 

donc soit il me manque une librairie ou ma version excel est bugué
je vais continuer a analyser la macro jusqu'a trouver ou ça bloque
merci encore pour ton aide et ta grande patience
je te tient au courant si du nouveau
a+

lermite222 · Answer

J'ai remanier la macro et éliminer tout ce qui a trait aux objets, c'est pas un code optimisé mais probablement qu'il fonctionnera.

https://www.cjoint.com/?iehNn0c54X
A+

lermite222 · Answer

Haaaach.. Maintenant je comprend mieux, tu a changer la formule =NBVAL(X5;AB5;AF5;AJ5;AN5;AR5;AV5) qui ne fait plus référence à la ligne suivante et ta 2èm ligne est initialisée. La preuve qu'il faut donner un max de renseignements et pas érronés.
Sub SplitData()
Dim i As Long, e As Integer
Dim TB
Dim Ls
    TB = Array(16, 17, 18, 50, 22, 26, 30, 38, 42, 46)
    Ls = Array("C9", "D9", "A9", "F4")
'---------------------------------------------
    'Largeur des colonnes
    For i = 1 To 7
        Sheets("impression").Columns(i).ColumnWidth = Sheets("bon").Columns(i).ColumnWidth
    Next i
'---------------------------------------------
    For i = 4 To Range("AX1").SpecialCells(xlCellTypeLastCell).Row
        If Sheets("Liste moteur").Cells(i, 50) <> "" Then
           ' VideBon
            For e = 0 To 3
                Sheets("bon").Range(Ls(e)) = Sheets("Liste moteur").Cells(i, TB(e))
            Next e
            For e = 0 To 5
                Sheets("bon").Range("B10").Offset(0, e) = Sheets("Liste moteur").Cells(i, TB(e + 4))
            Next e
    '---------------------------------------------
            'Copie le bon dans la page d'impression.
            Sheets("bon").Select
            Range("A4:G20").Select
            Selection.Copy
            Sheets("impression").Select
            Range("A65536").End(xlUp).Offset(1, 0).Select
            Selection.Insert Shift:=xlDown
'---------------------------------------------
        End If
    Next i
    Application.CutCopyMode = False
    Sheets("Liste moteur").Select
    Range("A1").Select

End Sub

A+

lermite222 · Answer

Bonjour,
Comme j'ai pas tes feuilles j'ai pas su vraiment tester
Sub valider()
Dim RC As String

    Application.ScreenUpdating = False
    
    Sheets("BDD").Select
    On Error Resume Next 'si erreur sur le Finf
    Sheets("BDD").Select
    Cells.Find(What:=Sheets("feuille de saisie").Range("J6").Value, After:=ActiveCell, LookIn:=xlFormulas, _
    LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
    MatchCase:=False, SearchFormat:=False).Activate
    On Error GoTo 0 ' annule la détection d'erreur
    
    RC = ActiveCell.Offset(0, 1).Address & ":" & ActiveCell.Offset(0, 7).Address
    Range(RC).Copy
    Sheets("feuille de saisie").Select
    Range("K17").Select
    ActiveSheet.Paste
    Application.ScreenUpdating = False
End Sub
A+

Créer une inputbox pour rechercher une valeur

18 réponses

Newsletters