Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Formule avec boutons d'option

Formule avec boutons d'option

2 réponses
Avatar
Denys
Bonjour =E0 tous,

J'essaie d'=E9crire une formule en VBA qui doit rapporter=20
des noms dans une cellule d=E9pendamment du bouton d'option=20
choisi... Voici le code:

Dim Ligne As Long

With ActiveSheet()
Ligne =3D .[a65536].End(xlUp)(2).Row

With ActiveSheet()
.Range("A" & Ligne) =3D Date
.Range("B" & Ligne).formula =3D "=3Dif(optionbutton1=20
then "Pierre")Else "Claude""

Excel me dit "Expected end of statement" avec le mot=20
Pierre.

Pourtant, si je veux qu'il =E9crive Pierre, je dois le=20
mettre entre guillemets.... Non?

Z'auriez une id=E9e???

Merci

Denys
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
papou
Bonjour denys
If optionbutton1 then
.Range("B" & Ligne).formula = "Pierre"
Else .Range("B" & Ligne).formula = "Claude""
End If

Cordialement
Pascal

"Denys" a écrit dans le message de
news:2fb901c3e1b6$18d16760$
Bonjour à tous,

J'essaie d'écrire une formule en VBA qui doit rapporter
des noms dans une cellule dépendamment du bouton d'option
choisi... Voici le code:

Dim Ligne As Long

With ActiveSheet()
Ligne = .[a65536].End(xlUp)(2).Row

With ActiveSheet()
.Range("A" & Ligne) = Date
.Range("B" & Ligne).formula = "=if(optionbutton1
then "Pierre")Else "Claude""

Excel me dit "Expected end of statement" avec le mot
Pierre.

Pourtant, si je veux qu'il écrive Pierre, je dois le
mettre entre guillemets.... Non?

Z'auriez une idée???

Merci

Denys
Avatar
Denys
Bonjour Papou,

Merci beaucoup....Ça fonctionne très bien...

Bonne journée

Denys


-----Original Message-----
Bonjour denys
If optionbutton1 then
..Range("B" & Ligne).formula = "Pierre"
Else .Range("B" & Ligne).formula = "Claude""
End If

Cordialement
Pascal

"Denys" a écrit
dans le message de

news:2fb901c3e1b6$18d16760$
Bonjour à tous,

J'essaie d'écrire une formule en VBA qui doit rapporter
des noms dans une cellule dépendamment du bouton d'option
choisi... Voici le code:

Dim Ligne As Long

With ActiveSheet()
Ligne = .[a65536].End(xlUp)(2).Row

With ActiveSheet()
.Range("A" & Ligne) = Date
.Range("B" & Ligne).formula = "=if(optionbutton1
then "Pierre")Else "Claude""

Excel me dit "Expected end of statement" avec le mot
Pierre.

Pourtant, si je veux qu'il écrive Pierre, je dois le
mettre entre guillemets.... Non?

Z'auriez une idée???

Merci

Denys


.