Inscription valeurs dans un tableau sous condition avec Userform

Fred0o

XLDnaute Barbatruc

• 29 Juillet 2012

• #2

Re : Inscription valeurs dans un tableau sous condition avec Userform

Bonjour solidpliskin,

Voici un essai en pièce jointe.

A+

 

Pièces jointes

• solidpliskin_V1.xlsm

  54.6 KB · Affichages: 47

Vote positif 0 Vote négatif

S

Solid_Pliskin

Guest

• 29 Juillet 2012

• #3

Re : Inscription valeurs dans un tableau sous condition avec Userform

Salut Fred0o,

Ca fonctionne pour la colonne "nom1" et "adver1".

Par contre, si dans la liste on choisi un autre nom (par exemple: "nom2"), ca ne marche plus.

Merci 😉

 

Vote positif 0 Vote négatif

Fred0o

XLDnaute Barbatruc

• 29 Juillet 2012

• #4

Re : Inscription valeurs dans un tableau sous condition avec Userform

Re-bonjour,

Une condition placée au mauvais endroit. Voilà qui est corrigé.

A+

 

Pièces jointes

• solidpliskin_V2.xlsm

  57.9 KB · Affichages: 55

Vote positif 0 Vote négatif

S

Solid_Pliskin

Guest

• 29 Juillet 2012

• #5

Re : Inscription valeurs dans un tableau sous condition avec Userform

Nickel!

Ca fonctionne impec'.

Merci Fred0o !

 

Vote positif 0 Vote négatif

P

Psebcool

Guest

• 29 Juillet 2012

• #6

Re : Inscription valeurs dans un tableau sous condition avec Userform

Salut Solid-Pliskin, salut Fredo,

Je suis interessé par ce sujet, et je voulais savoir si ça pouvait fonctionné aussi avec du texte ?

C'est à dire de copier à la fois des valeurs et/ou du texte dans les cellules. J'ai essayé sur le fichier de Solid-Pliskin, le texte ne passe pas.

merci et bonne soirée A+

 

Vote positif 0 Vote négatif

Fred0o

XLDnaute Barbatruc

• 29 Juillet 2012

• #7

Re : Inscription valeurs dans un tableau sous condition avec Userform

Bonsoir PsebCool,

C'est normal que ça ne fonctionne pas, car j'ai transformé le résultat des boites de dialogue en Entiers, pour répondre au besoin de solid_pliskin. Si tu veux le texte, dans le code VBA, tu remplaces :

VB:

            If Me.TextBox1 <> "" Then Cells(Cells(65536, i).End(xlUp).Row + 1, i) = CInt(TextBox1)
            If Me.TextBox2 <> "" Then Cells(Cells(65536, i + 1).End(xlUp).Row + 1, i + 1) = CInt(TextBox2)

Par :

VB:

            If Me.TextBox1 <> "" Then Cells(Cells(65536, i).End(xlUp).Row + 1, i) = TextBox1
            If Me.TextBox2 <> "" Then Cells(Cells(65536, i + 1).End(xlUp).Row + 1, i + 1) = TextBox2

A+

 

Vote positif 0 Vote négatif

P

Psebcool

Guest

• 29 Juillet 2012

• #8

Re : Inscription valeurs dans un tableau sous condition avec Userform

Oki, je te remercie Fredo (et Solid-Pliskin par la même occasion).

Ca va me servir pour plus tard !

😉

 

Vote positif 0 Vote négatif