remplir tableau via userform

Pierrot93

XLDnaute Barbatruc

• 1 Janvier 2010

• #2

Re : remplir tableau via userform

Bonjour,

essaye peut être ainsi :

Code:

Private Sub CommandButton3_Click()
If ComboBox1.ListIndex <> -1 Then
    If OptionButton1 Then
        Cells(ComboBox1.ListIndex + 5, 4).Value = "X"
        ElseIf OptionButton2 Then Cells(ComboBox1.ListIndex + 5, 5).Value = "X"
        ElseIf OptionButton3 Then Cells(ComboBox1.ListIndex + 5, 6).Value = "X"
    End If
End If
End Sub

bon après midi
@+

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 1 Janvier 2010

• #3

Re : remplir tableau via userform

Bonjour,

Hello Pierrot🙂

Puisque c'est fait, voici une autre façon possible.

Code:

Private Sub CommandButton3_Click()
 Dim idxLigne As Long, idxCol As Long
 If ComboBox1.ListIndex = -1 Then Exit Sub
 With Feuil1.Range("Noms")
    idxLigne = ComboBox1.ListIndex + 1
    idxCol = (OptionButton1 * -3) + (OptionButton2 * -4) + (OptionButton3 * -5)
    'si une option a été choisie
    If idxCol > 0 Then .Cells(idxLigne, idxCol) = "x"
 End With
End Sub

A+

 

Vote positif 0 Vote négatif

fr832

XLDnaute Occasionnel

• 1 Janvier 2010

• #4

Re : remplir tableau via userform

bonjour pierrot et merci ça fonctionne à merveille,le top.

Est il possible de modifier le code avec un message d'alerte afin d'empecher le vote si il y a inscrit "Zéro" dans les voix de ma colonneC?

ainsi que d'empecher un vote si la personne à deja voté?

Par avance merci beaucoup, amitiés🙄

 

Vote positif 0 Vote négatif

fr832

XLDnaute Occasionnel

• 1 Janvier 2010

• #5

Re : remplir tableau via userform

merci egalement HASCO lequel code choisir lol
ils sont parfait les deux, merci encore

 

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 1 Janvier 2010

• #6

Re : remplir tableau via userform

Bonjour fr,
Voici, j'efface et je pointe au cas ou modif

Code:

Private Sub CommandButton3_Click()
lig = ComboBox1.ListIndex + 5
Feuil1.Range("D" & lig & ":F" & lig).ClearContents
If OptionButton1.Value Then Feuil1.Cells(lig, 4) = "x"
If OptionButton2.Value Then Feuil1.Cells(lig, 5) = "x"
If OptionButton3.Value Then Feuil1.Cells(lig, 6) = "x"
End Sub

Oups!!! trop tard j'ai beau faire F5 pas de réponses

 

Dernière édition: 1 Janvier 2010

Vote positif 0 Vote négatif

G

Guest

Guest

• 1 Janvier 2010

• #7

Re : remplir tableau via userform

RE,

Est il possible de modifier le code avec un message d'alerte afin d'empecher le vote si il y a inscrit "Zéro" dans les voix de ma colonneC?

ainsi que d'empecher un vote si la personne à deja voté?

Cliquez pour agrandir...

Plusieurs pistes:

1 - ne charger que les noms des personnes n'ayant pas voté et protéger les cellules dans la feuilles(pour empêcher le vote directement sur la feuille)

2 - Au moment ou la personne est sélectionnée dans la combobox tester si la cellule de la colonne c = "zéro"

3 - au moment de la validation

Suivant l'une des ces trois proposition, essaie de le faire et reviens avec ce que tu auras essayé.

A+

@Youki essaie CTRL+F5 pour obliger le navigateur à ne pas charger à partir du cache mais à partir du serveur

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 1 Janvier 2010

• #8

Re : remplir tableau via userform

Re, bonjour Hasco, Youky

Pour empêcher le vote si 0 voix, modifie le code du "ComboBox1" comme suit :

Code:

Private Sub ComboBox1_Click()
idxLig = ComboBox1.ListIndex
If idxLig = -1 Then Exit Sub
idxLig = Range("noms").Row + idxLig
With Sheets("Feuil1")
  TextBox1 = .Cells(idxLig, 1)
  TextBox2 = .Cells(idxLig, 3)
End With
CommandButton3.Enabled = Not TextBox2 = 0
End Sub

 

Vote positif 0 Vote négatif

fr832

XLDnaute Occasionnel

• 1 Janvier 2010

• #9

Re : remplir tableau via userform

Re bonsoir youky, hasco et pierrot , merci pour empecher le vote pierrot, c'est le top et de plus juste une ligne de rajouté .

Merci je vais donc utiliser ton code .

Je vais essayer d'empecher de voter une deuxiéme fois lors de la validation.

Merci pour vos lumières, amitiés

 

Vote positif 0 Vote négatif

fr832

XLDnaute Occasionnel

• 1 Janvier 2010

• #10

Re : remplir tableau via userform

Rebonsoir, je n'arrive pas à réaliser un code qui empeche de voter 2 fois.
Je voulais essayer avec nbval.

Dans ma feuille excel j'ai fait en colonne H =nbval(d5:f5)

et je voulais essayer comme code que si la case de la colonnne H correspondant à notre selection combobox est supérieur à 1, alors empecher le vote par un msgbox.

Par avance merci pour vos lumières

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 1 Janvier 2010

• #11

Re : remplir tableau via userform

Re,

Et si tu nous donnais ton fichier avec tes changements et ce que tu as essayé de faire. Plus explications.

A+

 

Vote positif 0 Vote négatif

fr832

XLDnaute Occasionnel

• 1 Janvier 2010

• #12

Re : remplir tableau via userform

ren hasco voici mon fichier merci

 

Pièces jointes

• aide2 V2.xls

  39 KB · Affichages: 136

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 1 Janvier 2010

• #13

Re : remplir tableau via userform

Re

dans ton code tu as cette ligne de code :

Code:

Feuil1.Range("D" & lig & ":F" & lig).ClearContents

elle efface le contenu des cellules E à F se rapportant au nom selectionné, donc pas possible de voter 2 fois...

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 1 Janvier 2010

• #14

Re : remplir tableau via userform

re,

Voici une solution possible.

Par contre je n'ai pas vu tes efforts de codage sur le userForm pour arriver à tes fins. Avec ce qu'on t'a donné précédement tu aurais pu trouvé un début de piste.

A+

 

Vote positif 0 Vote négatif

fr832

XLDnaute Occasionnel

• 1 Janvier 2010

• #15

Re : remplir tableau via userform

re bonsoir pierrot et hasco,
pierrot je voulais informer le votant qu'il avait déja voté via msgbox, mais merci de t(avoir penché sur mon problème.

Hasco merci pour ton code ça parait tellement simple pour toi mais pour moi j'y suis pas arrivé, j'etais parti vers un code nbval mais en vba marche pas , j'ai trouvé qu'il fallait mettre countA, mais j'y suis pas arrivé.

Merci encore à vous tous pour votre aide, toutes mes amitiés

 

Vote positif 0 Vote négatif