Autres InputBox

Usine à gaz · 21 Avril 2023

Bonjour à toutes et à tous

Je bute sur mon besoin suivant :
Le contexte
Au clic en col "G" sur un n° de téléphone, il est copié automatiquement en cellule "K1"
J'ai une recherche (Sub Rechercher_youky()) qui me permet de chercher dans toutes mes feuilles
Je colle ou je saisi la valeur à trouver dans mon InputBox

Mon besoin
Est-il possible que le contenu de la cellule "K1" soit automatiquement intégré dans l'InputBox ?

Pour l'instant, j'ai pas trouvé...
Auriez-vous la solution ?
Je joins un petit fichier test,.. (tout expliqué dans la feuille "Contexte et besoin"
Mon code recherche (ou plutôt le code de youky que je remercie encore au passage) :

VB:

Sub Rechercher_youky()
    nom = Application.InputBox("Saisir texte/chiffre(s) à trouver :", "Rechercher")
    If VarType(nom) = vbBoolean Then 'Touche Annuler
        nom = CStr(nom)
        [A1].Select
        Exit Sub
    End If
    If nom = "" Then
        Application.EnableEvents = False
        MsgBox ("Faudrait p'être saisir le(s) texte/chiffre(s) à trouver !")
        [A1].Select
        Application.EnableEvents = True
        Exit Sub
    End If
    Application.EnableEvents = False
    q = ActiveSheet.Index
 
    For q = q To ActiveSheet.Index + Sheets.Count - 1
    K = (q - 1) Mod (Sheets.Count) + 1
        With Intersect(Sheets(K).UsedRange, Sheets(K).Rows("1:" & Rows.Count))
        On Error Resume Next
            Application.ScreenUpdating = False
            Set C = .Find(nom, LookAt:=xlPart)   'LookAt:=xlpart dans cellule - LookAt:=xlWhole) 'cellule entière
      
            If Not C Is Nothing Then
                firstAddress = C.Address
                Do
                On Error Resume Next
 
                Sheets(K).Select
                C.Activate
                Application.ScreenUpdating = True
                ActiveWindow.ScrollRow = Selection.Row
                  
            Rep = MsgBox("A trouver : " & nom & Chr(10) & Chr(10) & "- OK dans  " & ActiveSheet.Name & Chr(10) _
            & "- Colonne " & Split(C.Address, "$")(1) & Chr(10) & "- ligne       " & C.Row & Chr(10) & Chr(10) _
            & "Continuer la recherche ?", 4 + 32, "Résultat")
            Cells(ActiveCell.Row, 1).Select
                  
                If Rep = vbNo Then
                    Application.EnableEvents = True
                    Exit Sub
                End If
  
        Application.ScreenUpdating = True
        Set C = .FindNext(C)
            Loop While Not C Is Nothing And C.Address <> firstAddress
        End If
        End With
    Next q
 
            MsgBox "Ben NON : y'a pas ou y'a plus !"
                Application.EnableEvents = False
                [A1].Select
                Application.EnableEvents = True
End Sub

Grand merci à toutes et à tous,
Je continue mes recherches...

vgendron · 21 Avril 2023

Bonjour

en cherchant un tout petit peu dans les options de inputbox.....

ValDef = Range("K1")
nom = Application.InputBox("Saisir texte/chiffre(s) à trouver :", "Rechercher", Default:=ValDef)

fanch55 · 21 Avril 2023

Salut, l'aide est ton ami :

Syntaxe

expression.InputBox (Prompt, Title, Default, Left, Top, HelpFile, HelpContextID, Type)

expressionUne variable qui représente un objetApplication.

Paramètres

Nom	Requis/Facultatif	Type de données	Description
Prompt	Requis	String	Message à afficher dans la boîte de dialogue. Il peut s’agir d’une chaîne de caractères, d’un nombre, d’une date ou d’une valeur booléenne (Microsoft Excel contraint la valeur à avoir le type de données String avant de l’afficher). La longueur maximale est de 255 caractères, sans quoi il n’y a pas d’invite, et la méthode de l’application renvoie immédiatement Erreur 2015.
Titre	Facultatif	Variant	Titre de la zone d'entrée. Si vous ne spécifiez pas cet argument, le titre par défaut est « Entrée ».
Par défaut	Facultatif	Variant	Spécifie une valeur qui apparaît dans la zone de texte quand la boîte de dialogue s’affiche. Si cet argument est omis, la zone de texte reste vide. Cette valeur peut être un objet Range.
Left	Facultatif	Variant	Spécifie une position x pour la boîte de dialogue, exprimée en points et calculée à partir du coin supérieur gauche de l’écran.
Top	Facultatif	Variant	Spécifie une position y pour la boîte de dialogue, exprimée en points et calculée à partir du coin supérieur gauche de l’écran.
HelpFile	Facultatif	Variant	Nom du fichier d’aide pour cette zone d’entrée. Si les arguments HelpFile et HelpContextID sont présents, un bouton d’aide apparaît dans la boîte de dialogue.
HelpContextID	Facultatif	Variant	Numéro d’identification du contexte de la rubrique d’aide dans HelpFile.
Type	Facultatif	Variant	Spécifie le type des données renvoyées. Si vous ne spécifiez pas cet argument, la boîte de dialogue renvoie du texte.

vgendron · 21 Avril 2023

Bonjour

en cherchant un tout petit peu dans les options de inputbox.....

ValDef = Range("K1")
nom = Application.InputBox("Saisir texte/chiffre(s) à trouver :", "Rechercher", Default:=ValDef)

Usine à gaz · 21 Avril 2023

fanch55 à dit:
Salut, l'aide est ton ami :

Syntaxe
expression.InputBox (Prompt, Title, Default, Left, Top, HelpFile, HelpContextID, Type)

expressionUne variable qui représente un objetApplication.

Paramètres

Nom Requis/Facultatif Type de données Description
Prompt Requis String Message à afficher dans la boîte de dialogue. Il peut s’agir d’une chaîne de caractères, d’un nombre, d’une date ou d’une valeur booléenne (Microsoft Excel contraint la valeur à avoir le type de données String avant de l’afficher). La longueur maximale est de 255 caractères, sans quoi il n’y a pas d’invite, et la méthode de l’application renvoie immédiatement Erreur 2015.
Titre Facultatif Variant Titre de la zone d'entrée. Si vous ne spécifiez pas cet argument, le titre par défaut est « Entrée ».
Par défaut Facultatif Variant Spécifie une valeur qui apparaît dans la zone de texte quand la boîte de dialogue s’affiche. Si cet argument est omis, la zone de texte reste vide. Cette valeur peut être un objet Range.
Left Facultatif Variant Spécifie une position x pour la boîte de dialogue, exprimée en points et calculée à partir du coin supérieur gauche de l’écran.
Top Facultatif Variant Spécifie une position y pour la boîte de dialogue, exprimée en points et calculée à partir du coin supérieur gauche de l’écran.
HelpFile Facultatif Variant Nom du fichier d’aide pour cette zone d’entrée. Si les arguments HelpFile et HelpContextID sont présents, un bouton d’aide apparaît dans la boîte de dialogue.
HelpContextID Facultatif Variant Numéro d’identification du contexte de la rubrique d’aide dans HelpFile.
Type Facultatif Variant Spécifie le type des données renvoyées. Si vous ne spécifiez pas cet argument, la boîte de dialogue renvoie du texte.

Bjr fanch55

Merci à toi.
Oups ! j'avais oublié de chercher dans les Paramètres

Usine à gaz · 21 Avril 2023

vgendron à dit:
Bonjour

en cherchant un tout petit peu dans les options de inputbox.....

ValDef = Range("K1")
nom = Application.InputBox("Saisir texte/chiffre(s) à trouver :", "Rechercher", Default:=ValDef)

Bjr vgendron

OUI Oups ! j'avais pas assez cherché !
Merci à toi

Usine à gaz · 22 Avril 2023

Bjr vgendron , Bjr fanch55 , Bjr le Forum

Je reviens sur le fil ...
J'ai lu et tenté de comprendre les options de inputbox ... pas vraiment tout compris lol
Je pense que, même si je les avais lu avant, je n'aurais pas trouvé !

"ValDef = Range("K1")
nom = Application.InputBox("Saisir texte/chiffre(s) à trouver :", "Rechercher", Default:=ValDef)"
Fonctionne très bien, MERCI vgendron

Je me permets une autre p'tite demande que je n'arrive pas à coder :
Je voudrais coller "par Default le contenu du Presse Papier
ValDef = clipboard ou Presse Papier

Pourriez-vous encore m'aider ?
Grand merci

job75 · 22 Avril 2023

Bonjour Lionel,

Tu peux utiliser :

VB:

With CreateObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}") ' DataObject en late binding
    .GetFromClipboard
    ValDef = .GetText(1)
    nom = Application.InputBox("Saisir texte/chiffre(s) à trouver :", "Rechercher", Default:=ValDef)
End With

A+

Usine à gaz · 22 Avril 2023

job75 à dit:

Bonjour Lionel,

Tu peux utiliser :

VB:

With CreateObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}") ' DataObject en late binding
    .GetFromClipboard
    ValDef = .GetText(1)
    nom = Application.InputBox("Saisir texte/chiffre(s) à trouver :", "Rechercher", Default:=ValDef)
End With

A+

Bjr Gérard
Merci Gérard nickel comme d'habitude.

dysorthographie · 22 Avril 2023

Bonjour,
Inspiré d'une source de @patricktoulon

Code:

Sub Test()

PressePapier = Range("A1").Value
Debug.Print PressePapier
ClearPressePapier
End Sub
Public Function ClearPressePapier()
With CreateObject("htmlfile").parentwindow.clipboardData.clearData("Text"): End With
End Function
Public Property Let PressePapier(valeur)
With CreateObject("htmlfile").parentwindow.clipboardData.setData("Text", valeur): End With
End Property

Public Property Get PressePapier()
PressePapier = CreateObject("htmlfile").parentwindow.clipboardData.GetData("TEXT")
End Property

Autres InputBox

Usine à gaz

XLDnaute Barbatruc

Pièces jointes

vgendron

fanch55

XLDnaute Barbatruc

Syntaxe

Paramètres

vgendron

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Syntaxe

Paramètres

Usine à gaz

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

dysorthographie

XLDnaute Accro

Discussions similaires

Autres InputBox

XLDnaute Barbatruc

Pièces jointes

XLDnaute Barbatruc

Syntaxe​

Paramètres​

XLDnaute Barbatruc

XLDnaute Barbatruc

Syntaxe​

Paramètres​

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Accro

Discussions similaires

Syntaxe

Paramètres

Syntaxe

Paramètres