Ecriture d'un texte si case cochée Excel VBA

Question

Bonjour,

Je suis actuellement en train de réaliser un formulaire, l'objectif

est qu'à chaque fois que l'on remplisse ce formulaire, une macro copie

colle toute les informations sur la ligne d'une autre feuille. Ma macro

fonctionne pour le texte aucun soucis, mais je n'arrive pas à copier les

informations des cases à cocher. J'ai fait ça :

If checkbox5.Value = True Then

Sheets("Bilan ECA").Select

Range("A2").Select

ActiveCell.FormulaR1C1 = "ECA"

Range("A3").Select

End If

L'objectif étant que si la case est coché ça m'écrive "ECA" dans la

deuxième feuille. Si je ne met pas le "If checkbox" la formule

fonctionne et écrit bien ECA dans la case que je souhaite.

Quelqu'un peut m'aider ?

Xmenpl · Answer

Bonjour, on ne voit pas lors de quel événement vous utilisez votre code ?

c'est dans : Private Sub CheckBox5_Click() ?

Par ailleurs pour écrire un simple mot on utilise pas "formulaR1C1" idem pour tous les select juste pour arriver à un activecell ???

Private Sub CheckBox5_Click()
If CheckBox5.Value = True Then
Sheets("Bilan ECA").Range("A2").value="ECA"
Else
Sheets("Bilan ECA").Range("A2").value=""
End If
End Sub

Invité · Answer

Merci de lire la charte du forum SVP Et notamment ce qui concerne le crossposting : Ne postez pas la même question sur un autre forum pour éviter de faire perdre bêtement du temps aux membres sur un problème qui peut être déjà résolu sur l'autre forum. L'inverse est également valable, si vous avez déjà posé votre question sur un autre forum, ne créez pas un doublon sur ce forum (à moins d'avoir clôturé le sujet sur l'autre forum) Merci de votre compréhension...