Userform & mise en ordre en cellule

[jeromeN95]

Bonjour à tous,
Je souhaiterai faire évoluer un fichier (ci-joint) : http://dl.free.fr/qVyokmmEE

Il sagit d'un USERFORM (déjà crée) qui comporte:
- 7 critères (questions)
- 1 bouton "Valider" qui doit importer les "réponses" dans une plage (A4:J7)
- 1 bouton "Quiter" qui est opérationnel

Je bloque un peu sur la méthode à employer, un bon excelient m'aiderait'il ?

Merci 🙂

 

[eriiic]

Re : Userform & mise en ordre en cellule

Bonjour,

voir proposition ci-joint
eric

 

[jeromeN95]

Re : Userform & mise en ordre en cellule

Bonsoir,
tout simplement merci.

J'ai malheuresement oublier de préciser 3 choses qui n'ont pas grande conséquence :

' rien ajouter si le TextBox1 n'est pas renseigné
'je veux mettre ceci comme phrase si TextBox2 n'est pas renseigné
' rien ajouter si le TextBox3 n'est pas renseigné

voici l'extrait du code :

If TextBox1 Then
Cells(lig, col) = "Le Th de l'eau est à " & TextBox1 & "° F"
lig = lig + 1
If lig = 8 Then lig = 4: col = 7
End If
' rien ajouter si le TextBox1 n'est pas renseigné

If TextBox2 Then
Cells(lig, col) = "il y a " & TextBox2 & " décontamination par mois"
lig = lig + 1
If lig = 8 Then lig = 4: col = 7
End If

If TextBox2 = "" Then 'je veux mettre ceci comme phrase si TextBox2 n'est pas renseigné
Cells(lig, col) = "il n'y a pas " & TextBox2 & "de décontamination"
lig = lig + 1
If lig = 8 Then lig = 4: col = 7
End If

If TextBox3 Then
Cells(lig, col) = "il y a " & TextBox3 & "% de relavage actuellement"
lig = lig + 1
If lig = 8 Then lig = 4: col = 7
End If
' rien ajouter si le TextBox3 n'est pas renseigné

 

[eriiic]

Re : Userform & mise en ordre en cellule

Bonjour,

Si, on le voyait bien dans tes exemples. J'en avais vu une partie mais zappé.
Par contre tes textbox sont dans cet ordre : 1, 3 ,2. Faire attention.
Regarde si ça va.

eric

 

[jeromeN95]

Re : Userform & mise en ordre en cellule

Bonjour,
c'est parfait, j'ai compris la méthode et je vais pouvoir la reproduire.

Merci beaucoup eric.

 

[jeromeN95]

Re : Userform & mise en ordre en cellule

Bonjour, je me demander s'il été possible de mettre les résultats dans une "zone de texte" ?

En effet, ca permet de me "modeller" à souhait...
Désoler si c'est pas faisable.

 

[eriiic]

Re : Userform & mise en ordre en cellule

Bonjour

Bien sûr, tu mets le résultat où tu veux.
Ca peut être dans un textbox ou un label (si tu veux afficher dans un formulaire), ou dans une variable texte sinon.
Label1= "toto"
ou
Dim rep1 as string
rep1= "toto"

eric

 

[jeromeN95]

Re : Userform & mise en ordre en cellule

Ok, merci pour cette réponse, ça fonctionne parfaitement, j'ai mis dans une textbox.