le contenu de textbox à copier avec des conditions dans feuille

[news]

Bonjour à tous du forum, 🙂

En cliquant sur le bouton "OK" d'un Userform les données de 4 Textbox sont copiées sur la feuille("data").

VarDerL = Sheets("data").Range("A65536").End(xlUp).Row + 1
.Range("C" & VarDerL) = TextBox3.Value
.Range("AF" & VarDerL) = Round(CSng(Trim(TextBox5.Value)), 2)
.Range("AF" & VarDerL).NumberFormat = "#,##0.00_ ;[Red]-#,##0.00 "

le bug vient comment définir la textbox3 avec des conditions ?
si TextBox3.Value = fruits Then = 1000
si TextBox3.Value = ananas Then = 1010

.Range("AG" & VarDerL).Formula = "=IF((TextBox3.Value)=""fruits"",1000,)
.Range("AJ" & VarDerL).Value = Range("AI").Value
.Range("AK" & VarDerL).Value = Sum("AF" - "AI")
...

Les conditions se trouvent dans la feuille "groupe", voir ci-joint fichier Excel.
Je ne sais comment modifier que les différentes conditions sont applicables et fonctionnent.

merci d'avance de vos astuces,

news

 

[news]

Re : le contenu de textbox à copier avec des conditions dans feuille

Bonsoir à tous du forum,

j'ai recherché dans le forum, les archives,

mais je n'ai pas trouvées de données pour résoudre,

news

 

[Paritec]

Re : le contenu de textbox à copier avec des conditions dans feuille

Bonsoir News le forum
pourquoi tu ne mets pas une combobox à la place de ton textbox3?
ce serait réglé tout de suite avec ton listindex!!
a+
papou 🙂

 

[news]

Re : le contenu de textbox à copier avec des conditions dans feuille

Bonjour à tous du forum,

Re:
le combobox je n'ai pas utilisé parce que les données du Textbox sont repris d'une listbox.

En cliquant sur le bouton "Ok", les données des Textbox sont mis dans la feuille ("data").
Mais pour Textbox3 j'utilise des conditions, repris de la feuille ("groupe").
Aulieu de mettre dans vba pour chaque cas, case = "fruits" ou case ="ananas" ou case ="légumes", etc., comme la liste peut-être assez longue, le mieux serait d'une fonction rechercheV dans la feuille("groupe"), Si trouve dans column C une donnée reprend la donnée correspondante en colonne D.
Mais la je n'arrive pas à mettre le vba code pour l'appliquer.

If Worksheets("groupe") = "fruits" Then 1000

Comment inclure une variable que la macro s'effectue automatiquement aulieu de dire pour chaque cas est effecué autre donnée ?

news

 

[Paritec]

Re : le contenu de textbox à copier avec des conditions dans feuille

Bonjour News le forum
oui enfin que cela vienne d'une listbox n'est pas plus un problème enfin voilà tes conditions pour textbox3
a+
papou

fin = Feuil3.Range("A65000").End(xlUp).Row
For a = 2 To fin
If TextBox3 = Feuil3.Cells(a, 3) Then TextBox3 = Feuil3.Cells(a, 4): Exit For
Next

 

[news]

Re : le contenu de textbox à copier avec des conditions dans feuille

Bonjour à tous du forum,

Re:
cela ne résoud pas tout à fait, comme la valeur n'est pas modifié dans textbox 3,
et que dans la feuille "data" ne se trouvent pas les données correctes reprises des Textbox, lorsqu'on a cliqué sur le bouton "OK".

ci-joint fichier explicite,

news

 

[Pierrot93]

Re : le contenu de textbox à copier avec des conditions dans feuille

Bonjour News, Papou🙂

regarde le code ci-dessous, à insérer / adapter à ton projet.

Dim c As Range
Set c = Sheets("groupe").Range("c2:C12").Find(TextBox3.Value, , xlValues, xlWhole, , False)
If Not c Is Nothing Then Sheets("data").Range("AE" & VarDerL) = c.Offset(0, 1).Value

bonne journée
@+

 

[news]

Re : le contenu de textbox à copier avec des conditions dans feuille

Bonjour à tous du forum,

Re: super, fonctionne très bien, ce qui manquait encore pour clôturer ce userform,

merci Pierrot93 pour réponse et astuce donné,

bonne journée encore,

news