Résultats pour "select textbox value listbox"

2'281 résultats pour cette recherche

bonjour

Je travaille sur un fichier de recettes de cuisine.

J'ai une feuille du classeur où sont classées toutes mes recettes par ordre alphabétique.

Quand je fais un clic droit sur une recette, cela ouvre un userform où je récupère le nom de la recette dans une textbox.

Sur cet userform se trouve aussi une listbox avec toutes mes recettes affichées.

Je voudrais qu'à l'initialize du l'UF la valeur sélectionnée dans la listbox soit celle de la textbox, de façon à afficher automatiquement la recette dans le webbrowser à côté.

Ne me demandez pas de fichier car il est trop volumineux. Je joins une photo de l'UF

Merci de votre aide

Bonjour, j'ai deux valeurs dans une combobox qui entraine l'ouverture d'une listbox :

  • "PROBLEME A" qui ouvre une listbox pour sélectionner le ou les sous Problème de A, donc une LISTBOX EN MULTI SELECT
  • "PROBLEME B" qui doit m'autoriser à sélectionner une valeur dans la même listbox soit "SOUS PB B1 " soit "SOUS PB B2"
Comment faire en sorte pour avoir une une multi sélection si PROBLEME A et une sélection unique si PROBLEME B.

Merci pour votre aide

Youyou

Bonjour à tous,

Lorsque j'execute la macro ci-dessous, la ligne

Worksheets("BP").Cells(derlig2 + 1, 3).Value = ActiveSheet.Range(Cells(i, 1) & ":" & Cells(i, 7)).Value

est en erreur. Avez vous une idée ?

Sub Conca()

With ActiveSheet

For i = 1 To 52
derlig2 = Worksheets("BP").Columns("A").Find("*", , , , , xlPrevious).Row

If Cells(i, 20) <> "" And Cells(i, 1) <> "" Then
Worksheets("BP").Cells(derlig2 + 1, 3).Value = ActiveSheet.Range(Cells(i, 1) & ":" & Cells(i, 7)).Value
Worksheets("BP").Cells(derlig2 + 1, 10).Value = ActiveSheet.Cells(i, 20).Value
End If

Next i

End With
End Sub

Merci par avance

Bonjour

J'ai une plage de cellules "sources" qui comportent 2 lettres. (Tr, Tp, So ... etc). Chaque cellule a un couleur de fond différente.

J'ai une plage de cellules "cibles" qui comportent notamment les mêmes 2 lettres. J'arrive à mettre le même fond de couleur que dans les cellules "Sources" avec If CelluleCible.Text = CelluleSource.Text Then ....

Mais j'ai aussi des groupes de 3 lettres Tp1, Tr2 etc ... et j'aimerais qu'ils récupèrent les même couleurs de fond ..

Je voudrais donc dire :

Si le texte de la celluleCible commence par les lettres de la cellule Source, Alors ....

comment faire ?

Merci

Bonjour

Nouveau sur le site, je n'ai pas su créer un titre simple, désolé.

Donc, j'ai un SELECT sur ma table principale

un LEFT JOIN sur 1ére table secondaire

un LEFT JOIN sur 2nde table secondaire

un LEFT JOIN (SELECT) sur 3ème table secondaire

WHERE...

mon problème est que je veux, dans le LEFT JOIN SELECT... filtrer les enregistrements par rapport a la valeur d'une date du select principal et là, ça plante (The multi-part identifier "ctrh.FVDT - Valid from" could not be bound)

en espérant être plus clair,

merci d'avance pour votre aide

SELECT ctrh.[CONO - Environment] Cono
      ,ctrh.[AGNB - Agreement number] Ctr
      ,ctrh.[SUNO - Supplier] Frn
      ,ctrh.[FVDT - Valid from] 'Valide du'
...
...
FROM [Purchase agreement header] ctrh
  LEFT JOIN [Purchase agreement lines] ctrln
...
...
LEFT JOIN [Purchase agreement prices] ctrpu
...
...
  LEFT JOIN
        (
        SELECT [FACI - Facility],[SUNO - Supplier],[ITNO - Item number],SUM([RVQA - Received quantity]) QtRecue
            FROM [Purchase order line]
            WHERE [SUNO - Supplier]='F1570' and [RVQA - Received quantity]>0 [u]and [CODT - Confirmed delivery date] >= ctrh.[FVDT - Valid from][/u]
            GROUP BY [FACI - Facility],[SUNO - Supplier],[ITNO - Item number]
        ) 
            AS t2 ON ...

Bonjour,

J'ai un Userform permettant de valider des compétences divers et variées. ^^

Pour valider les compétences, je sélectionne un nom dans une Listbox et les infos prénom, code du guss arrivent toutes seul avec du VLOOKUP.

Le soucis c'est que quelques fois, il va falloir passer par le code du guss et non par son nom. Du coup j'ai 2 petits OptionButton qui proposent la sélection par Nom ou par Code.

Le soucis c'est que je galère comme un fifou pour trouver comment faire ça...Je m'explique :

Au départ, c'est comme expliqué ci-dessus la sélection par nom est cochée dès l'activation du UserForm.

J'ai donc la listbox par nom et la textbox qui rappatrie les codes.

Quand je clique sur la sélection par code je voudrais que le fonctionnement de ces deux cases s'inverse. La listbox devient une Textbox qui rappatrie les infos automatiquement et la Textbox devient une listbox que je ne sais pas non plus comment paramétrer dans ce cas de figure...

Merci d'avance pour votre aide !!!! =)

Je joins un petit exemple !!

80testselection.zip (12.95 Ko)

Bonjour à toutes et tous,

Je vous sollicite encore pour une question de débutant.

Dans un userform, je cherche à ajouter à ma textbox19.value une valeur (+0.3 ou +0.5) en fonction des dates de naissance dans des textbox5 et textbox18.

J'ai écrit ce code:

Private Sub CommandButton3_Click()

If TextBox18.Value > 2006 Then TextBox19.Value = TextBox19.Value + 0.3
If TextBox18.Value < 2006 Then TextBox19.Value = TextBox19.Value + 0.5

If TextBox5.Value > 2006 Then TextBox19.Value = TextBox19.Value + 0.3
If TextBox5.Value < 2006 Then TextBox19.Value = TextBox19.Value + 0.5

End Sub

ça fonctionne pour la première textbox mais ensuite les valeur ne sont plus ajoutées.

Pourriez-vous m'aider à compléter cette macro?

Merci d'avance pour vos conseils

Bonjour le forum,

Je bug sur un truc pourtant simple mais je ne comprends pas pourquoi... J'essaye de sauvegarder ma value de textbox 1&2 sur la Feuil1 en la sauvegardant dans un module pour en faire appel en Feuil2 mais cela ne vient pas...

Si quelqu'un aurait une petit aide à me fournir s'il vous plait ? Merci d'avance

Allan.

Bonjour,

Je cherche comment écrire sur une cellule à partir d'une macro avec un signe supégal ou infégal

J'ai déjà fait ceci :

Cells(12, 20) =TextBox1.Value

Elle me renvoie sur la celulle choisi la valeur entrée dans la TextBox1.

Seulement je voudrais que quand elle écrit dans la celulle le signe >= ou <= se rajoute devant.

Quelq'un peut m'aider svp.

Merci

Hello Guys,

I have a problem with my application !! I wanna show a number in pourcentage in a textBox in a userform but i do not know how to do it !! here my code : textBox.Value = Sheets("Resultat").Range("F12").Value

but i got 0,275667878777887 and i want to show 27%

Any help thank you in advance.

Bonsoir,

J'ai une petite question.

Je souhaiter créer un code mais pour cela j'ai besoin d'un petit coup de pouce.

Je ne sais pas comment faire pour dire ma TextBox contient du texte.

Je sais dire l'inverse, ma textBox ne contient pas de texte

TextBox.value = ""

Je ne sais pas si je suis bien clair..

Merci

Bonjour,

voici mon problème:

j'ai un text box dans un user form, je rempli ma text box avec un nombre, soit le nombre rentré dans la text box est un nombre qui fait partie de la colonne A et la macro continue soit pour nombre rentré dans la text box il n'y aucune cellule dans la colonne A qui lui correspond et la macro s'arrette.

Je trouve pas le code

une âme charitable peut elle m'aider?

merci d'avance

Sylvain

31textbox-valide.zip (47.92 Ko)

Bonjours j'essaie de changer des variable fixe pour une textbox dans la fonction rows.select

Voici un exemble, ce que j'ai en ce moment :

Sub Macro3()
'
' Macro3 Macro
'
    Range("A13").Select
    'Empeche l'ouverture de la fenetre horaire
    Application.ScreenUpdating = False
    Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
    Rows("390:397").Select
    Selection.Copy
    Windows("M07_20150507_crib_coll_jaw_TESTTTTT.xlsm").Activate
    Range("A5").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Range("E14").Select
    Windows("M07.xlsx").Activate
    'Empeche la demande d'enregistrement
    Application.DisplayAlerts = False
    ActiveWindow.Close
End Sub

Ce que j'ai de besoin

Sub Macro3()
'
' Macro3 Macro
'
    Range("A13").Select
    'Empeche l'ouverture de la fenetre horaire
    Application.ScreenUpdating = False
    Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
    Rows("Textbox1.value-42005:Textbox1.value-42012").Select
    Selection.Copy
    Windows("M07_20150507_crib_coll_jaw_TESTTTTT.xlsm").Activate
    Range("A5").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Range("E14").Select
    Windows("M07.xlsx").Activate
    'Empeche la demande d'enregistrement
    Application.DisplayAlerts = False
    ActiveWindow.Close
End Sub

Merci de votre aide

Bonjour

Je prends le problème à l'envers…

Si dans mon formulaire où les champs sont déjà remplis par défaut je voulais faire en sorte qu'on puisse changer le texte dans "Value" sans ouvrir la fenêtre propriété d'une TextBox , est ce que cela est possible ?

Dans le cas où je ne souhaite pas que la personne qui utilise le formulaire, change le propriété de base.

J'espère que je me suis bien expliqué

Merci pour votre aide !

pierre

Hello tout le monde,

J'ai trouvé cette macro sur un forum , elle permet de fusionner plusieurs sheets excel dans une sheet qui sera donc consolidée.

Cette macro fonctionne très bien, mais elle "paste" avec les formules

J'aimerai que ça fasse un copy paste special value

Est-ce possible d'ajouter ce critère "simplement" ou bien ça va complexifier tout ?

Merci d'avance

Sub Synthese()

'Vider la feuille

Sheets("feuil5").Range("A1:H2").CurrentRegion.Delete

'Copie les feuilles

'Copie feuille 1

Sheets("feuil1").Range("A1:H2").CurrentRegion.Copy Sheets("feuil5").Range("A" & Rows.Count).End(xlUp)

'Copie feuille 2

Sheets("feuil2").Range("A1:H2").CurrentRegion.Offset(1).Copy Sheets("feuil5").Range("A" & Rows.Count).End(xlUp).Offset(1)

'Copie feuille 3

Sheets("feuil3").Range("A1:H2").CurrentRegion.Offset(1).Copy Sheets("feuil5").Range("A" & Rows.Count).End(xlUp).Offset(1)

'Copie feuille 4

Sheets("feuil4").Range("A1:H2").CurrentRegion.Offset(1).Copy Sheets("feuil5").Range("A" & Rows.Count).End(xlUp).Offset(1)

End Sub

Bonjour,

J'ai une équation que je ne peux résoudre analytiquement pour trouver un paramètre (que j'appelle ici "b"). Je dois donc faire une itération à partir de plusieurs valeurs de b que je fixe dans un tableau (tableau d'une colonne qui contient 30 éléments).

le problème est que j'utilise "cell.value" pour définir les différents éléments du tableau mais quand je lance le programme je constate que seule la dernière valeur du tableau est prise en compte dans tous le tableau (tous les autres éléments du tableau sont remplacés par cette valeur).

le but de ce que je fais est de récupérer la valeur b du tableau qui me permet d'avoir l'écart minimum entre une fonction f(b) qui dépend de b et une constante z.

Si quelqu'un a une suggestion par rapport à la boucle que j'utilise ou à la variable cell.value... Ce sera la bienvenue.

Merci d'avance !

Dim i As Integer
Dim z, f As Double
Dim b As Double
Dim t As WorksheetFunction

Dim cell As Range

Set t = Application.WorksheetFunction

For Each cell In Range("A2:A30")

z = 1.4 * Log(8) + 1.9 * Log(20) 'je définis z qui est une constante

f = t.Min(Abs(((cell.value + 1.9 * Log((20 / cell.value) - 1)) - z) / z)) 'je définis f qui est l'écart minimum entre f(cell.value) et z 
Range("B2:B302").Value = Format(((cell.value + 1.9 * Log((20/ cell.value) - 1)) - z) / z, "0.0000")
Range("D2:D302").Value = Format(cell.value, "0.00")

Next cell

For Each cell In Range("A2:A30")

If (z * (f + 1) = cell.value + 1.9 * Log((20 / cell.value) - 1)) Then 'je pose la condition si pour retrouver la valeur cell.value qui me donne l'écart minimum entre f(cell.value) et z

b = cell.value 

Else

b = 0

End If

Next cell

Bonsoir le forum,

J'ai un souci sur une macro de restriction d'affichage en fonction de l'utilisateur.

J'ai dans mon USERFORM "IDENTIFICATION" la possibilité de saisie de l'identifiant et du mdp suivi de la validation qui consiste à afficher ou non les feuilles en fonction de l'identification effectuée.

je fonctionne par rechercheV en fonction du nom saisie dans la combobox1.

Mais le problème c'est que j'ai l'erreur suivante :

Impossible de lire la propriété VLookup de la classe Worksheetfunction.

sur la ligne :

 If TextBox1 = Application.WorksheetFunction.VLookup(ComboBox1.Value, IDENTIFICATION, 2, faux) Then

Je vous transmet le fichier avec ainsi que la macro :

le fichier :

Ma macro :

Private Sub CommandButton1_Click()

    If TextBox1 = Application.WorksheetFunction.VLookup(ComboBox1.Value, IDENTIFICATION, 2, faux) Then

        If Application.WorksheetFunction.VLookup(ComboBox1.Value, IDENTIFICATION, 3, faux) = 1 And         Application.WorksheetFunction.VLookup(ComboBox1.Value, IDENTIFICATION, 4, faux) = 1 And Application.WorksheetFunction.VLookup(ComboBox1.Value, IDENTIFICATION, 5, faux) = 1 And Application.WorksheetFunction.VLookup(ComboBox1.Value, IDENTIFICATION, 6, faux) = 1 And Application.WorksheetFunction.VLookup(ComboBox1.Value, IDENTIFICATION, 7, faux) = 1 Then

            Call AFFICHAGE_AFFICHAGE
            Call AFFICHAGE_IDENTIFICATION
            Call AFFICHAGE_BASE
            Call MASQUE_MENU

        ElseIf Application.WorksheetFunction.VLookup(ComboBox1.Value, IDENTIFICATION, 3, faux) = 1 And Application.WorksheetFunction.VLookup(ComboBox1.Value, IDENTIFICATION, 4, faux) = "" And Application.WorksheetFunction.VLookup(ComboBox1.Value, IDENTIFICATION, 5, faux) = "" And Application.WorksheetFunction.VLookup(ComboBox1.Value, IDENTIFICATION, 6, faux) = 1 And Application.WorksheetFunction.VLookup(ComboBox1.Value, IDENTIFICATION, 7, faux) = "" Then

            Call AFFICHAGE_AFFICHAGE
            Call MASQUE_MENU

        ElseIf Application.WorksheetFunction.VLookup(ComboBox1.Value, IDENTIFICATION, 3, faux) = "" And Application.WorksheetFunction.VLookup(ComboBox1.Value, IDENTIFICATION, 4, faux) = "" And Application.WorksheetFunction.VLookup(ComboBox1.Value, IDENTIFICATION, 5, faux) = 1 And Application.WorksheetFunction.VLookup(ComboBox1.Value, IDENTIFICATION, 6, faux) = "" And Application.WorksheetFunction.VLookup(ComboBox1.Value, IDENTIFICATION, 7, faux) = "" Then

            Call AFFICHAGE_BASE
            Call MASQUE_MENU

        End If

    End If

End Sub

merci d'avance pour le coup de main !

Bonjour,

J'essaye d'affecter à la combobox2 une liste de valeur qu'elle trouvera dans une colonne de wsprix, si dans une autre colonne, à la même ligne, on retrouve la même valeur que l'utilisateur aura sélectionné dans la combobox _liste_alliage.

En effet la valeur selectionné dans combobox1, est affecté a plusieurs valeurs différentes , sur plusieurs lignes.

Voici le code que j'ai fait, mais ça me renvoie une liste vide :

For i = 13 To DernLigne

            If wsprix.Cells(i, 8).Value = ComboBox1.Value Then
                If wsprix.Cells(i, 4).Value <> "" Then
                    combobox2.AddItem (wsprix.Cells(i, 4).Value)
                End If

            End If

            Next i

Bonjour,

Je cherche à exécuter automatiquement plusieurs macro à une heure fixe dans la journée :

Voici mon code place dans « this workbook »

Private Sub Worbook_Open ()

Application.ontime timevalue (« 7:00:00 »), « Macro1 »

Application.ontime timevalue (« 7:00:10 »), « Macro2 »

End Sub

Cependant le message suivant s’affiche à l’execution :

Le Can not run the macro the macro may not be available in this workbook or all macros may be disabled’´

A savoir que les procédures macro1 et macro 2 sont rédiger dans « Sheet1 » et « sheet2 »

Pouvez vous m’aider à savoir pourquoi ça ne fonctionne pas ?

Merci

Recherches récentes

trie automatiqueformulaire imagecellulleliste deroulanteincrementerpmujason pmujasonauto openimageimpression imageimpression image deformeeimpressionsupprimer doublonsdate inversee vbadate vbarange colonnesrange collonestextboxpowerquery