Remplacer "X" par la valeur d'une cellule

JCGL

XLDnaute Barbatruc

• 4 Janvier 2010

• #2

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

Bonjour à tous,

Peux-tu essayer avec :

Code:

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

 

Vote positif 0 Vote négatif

J

jp14

XLDnaute Barbatruc

• 4 Janvier 2010

• #3

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

Bonsoir

Une solution par macro évènementielle.

A tester

JP

 

Pièces jointes

• Classeurfr832.zip

  13.8 KB · Affichages: 75

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 4 Janvier 2010

• #4

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

Bonsoir fr832, JCGL, JP 🙂

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

Code:

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

A tirer sur E22 et F22.

A+

 

Dernière édition: 4 Janvier 2010

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 4 Janvier 2010

• #5

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

 

Vote positif 0 Vote négatif

fr832

XLDnaute Occasionnel

• 4 Janvier 2010

• #6

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 🙂

 

Vote positif 0 Vote négatif