Remplacer "X" par la valeur d'une cellule

[fr832]

Bonjour, et mes meilleurs voeux pour 2010 à tous,
voila je cherche à remplacer le"X" qui sera placé dans les cases entre D5 et F19 par le nb de voix qui est placé en colonne C.

Faut il faire une Mise en forme conditionnelle?

Ou modifier le code VBA?

J'ai fait un essai avec cette formule [CODE]=SI(D19="X";C19;"")[/CODE]
en ce moment voila le code utilisé:

[COLOR="blue"]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"
Unload Me
End Sub[/COLOR]

par avance merci à tous pour vos lumières

 

[JCGL]

Re : Remplacer "X" par la valeur d'une cellule

Bonjour à tous,

Peux-tu essayer avec :

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

A+ à tous

 

[jp14]

Re : Remplacer "X" par la valeur d'une cellule

Bonsoir

Une solution par macro évènementielle.

A tester

JP

 

[job75]

Re : Remplacer "X" par la valeur d'une cellule

Bonsoir fr832, JCGL, JP 🙂

Pourquoi remplacer les "X" ?? A priori cette formule en D22 suffit :

=SOMME.SI(D5:D19;"x";$C5:$C19)

A tirer sur E22 et F22.

A+

 

[JCGL]

Re : Remplacer "X" par la valeur d'une cellule

Bonjour à tous,
Salut JP
Salut Job 🙂,

Juste pour information, je n'ai fait que reprendre le code existant dans le module de la feuille et comme souhaité dans la zone de texte

A+ 🙂
A+ à tous

 

[fr832]

Re : Remplacer "X" par la valeur d'une cellule

bonsoir JCGL, Job 75, JP 14, un grand merci votre travail est au top et encore une fois vous me démontrez qu'il y a plusieurs façons d'y arriver.

Je demande à remplacer les X car je suis parti vers la simplicité le X me sert à confirmer plusieurs choix et une fois finni je m'aperçois que j'avais oublié des choses en route.

Encore un grand merci et toutes mes amitiés 🙂