XL 2010 écriture d'un texte si case coché excel VBA

S

soan

XLDnaute Barbatruc

Inactif

• 16 Juin 2021

• #2

Bonjour missymanioca, Bruno,

bienvenue sur le site XLD !

VB:

Sub Essai()
  If checkbox5 Then ['Bilan ECA'!A2] = "ECA"
End Sub

soan

 

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 17 Juin 2021

• #3

Bonjour Bruno,

à propos du crossposting, tu as oublié

Spoiler: un détail très important !

c'est sur le site XLD qu'il y a les meilleures réponses !

n'est-ce pas David ? (bonjour à toi aussi !)

soan

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 17 Juin 2021

• #4

Bonjour
histoire de mettre mon grain de sel
pas besoins d'activer la feuille ni la cellule d'ailleurs

Spoiler: méthode 1

Sheets("Bilan ECA").[A2]=application.rept( "ECA",Abs(checkbox5.Value)

ou bien encore

Spoiler: méthode 2

Sheets("Bilan ECA").[A2]=Left("ECA", len("ECA")*Abs(checkbox5.Value))

et j'en passe et des meilleures

 

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 17 Juin 2021

• #5

Bonjour Patrick,

patricktoulon à dit:

pas besoin d'activer la feuille ni la cellule d'ailleurs

Cliquez pour agrandir...

j'ai le grand plaisir de t'informer que le code VBA de mon post #3 n'active ni la feuille, ni la cellule !

j'suis un champion de VBA, alors ? (mais c'est pas moi qui ai inventé la poudre, hein ? )​

soan

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 17 Juin 2021

• #6

Bonjour @soan j'ai vu je répondais à @missymanioca
la tienne est très bien aussi
perso je fait la guerre contre les if else en ce moment même si il y en a qu'un

 

Vote positif 0 Vote négatif

M

missymanioca

XLDnaute Nouveau

• 17 Juin 2021

• #7

Bonjour à tous, merci beaucoup pour vos réponses rapide ! Et désolée pour le crossposting ...
J'ai essayé tout vos propositions mais ça ne fonctionne pas ...
Je ne comprend pas, quand je les exécute rien est écrit dans ma cellule A2 de ma feuille "Bilan ECA", pourtant ma case est bien cochée...

Sub Macro2()
If checkbox44 Then ['Bilan ECA'!A2] = "ECA"
End Sub

(Ma checkbox a changé de nom entre temps j'ai eu quelques déboires... )

 

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 17 Juin 2021

• #8

@missymanioca

missymanioca à dit:

Ma checkbox a changé de nom entre-temps j'ai eu quelques déboires...

Cliquez pour agrandir...

ah ben ça, si le nom de la checkbox a changé, c'est plutôt recommandé de mettre le nouveau nom dans l'instruction VBA ! éventuellement, essaye :​

VB:

Sub Macro2()
  If CheckBox44 Then Worksheets("Bilan ECA").[A2] = "ECA"
End Sub

si la case à cocher est un contrôle de formulaire placé directement sur la feuille de calcul, pense à lui affecter la macro nommée Macro2 ; si la case à cocher est un contrôle ActiveX, c'est différent ; et si la case à cocher est dans un UserForm (= un formulaire), c'est encore différent ! comme quoi, avec ton fichier (sans données confidentielles), ton exo aurait déjà été résolu.

pour info, tu peux envoyer ton fichier Excel en utilisant le bouton "Joindre un fichier" que tu peux voir en bas à gauche d'un post en cours d'édition ; attention : taille maximum : 1 Mo (que le fichier soit zippé ou non).​

soan

 

Dernière édition: 17 Juin 2021

Vote positif 0 Vote négatif

M

missymanioca

XLDnaute Nouveau

• 18 Juin 2021

• #9

Bonjour,
merci beaucoup de ton aide Soan mais ça ne fonctionne pas non plus, même en affectant la macro.
En effet ce sera plus simple avec le fichier, je l'ai mis en pièce jointe.
Je parle d'un "formulaire", mais techniquement ce n'est pas vraiment un formulaire, je l'ai fait à la main

 

Pièces jointes

• Test v2.xlsm

  359.3 KB · Affichages: 16

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 18 Juin 2021

• #10

Bonjour
il faut savoir qu'en VBA quand on parle de formulaire on parle de userform
là il n'y a rien de tout ça, juste un userform vide
c'est (je suppose) juste un transfert de données après remplissage dans la feuil1

bref c'est de niveau débutant pour faire cela
et je te suggère d'utiliser un tableau structuré pour tes feuilles secondaires ce sera largement plus simple

 

Vote positif 0 Vote négatif

M

missymanioca

XLDnaute Nouveau

• 18 Juin 2021

• #11

En effet j'ai oublié de le préciser mais je suis bien une débutante en VBA d'où ma demande d'aide
Pour ce qui est du tableau structuré je ne comprend pas vraiment en quoi ça peut répondre à ma demande ?
Je veux garder l'aspect visuel de mon document tel qu'il est car je dois l'imprimer, j'aimerais juste rajouter un bouton qui puisse quand je clique copier et coller toutes les informations que j'ai renseigné sur mon document sur mon tableau en ajoutant une nouvelle ligne. Pour toutes les autres infos, je n'ai pas de soucis ça fonctionne, c'est pour les cases à cocher que je séche... et je ne vois pas trop comment je pourrais le présenter autrement (sans cases à cocher)

 

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 19 Juin 2021

• #12

Bonjour missymanioca, le fil,

je te laisse essayer ton nouveau "formulaire". (qui n'est pas un UserForm : c'est seulement sur la feuille de calcul)

pour tes 4 cases à cocher du "Type d'activité", regarde bien toutes les possibilités entre ces deux extrêmes : de 4 cases cochées à aucune case cochée ; tu l'savais pas, hein, que même dans Excel y'a Extrême Limite !

bien sûr, je ne parle pas seulement du cochage proprement dit, mais aussi du résultat obtenu en feuille "Bilan ECA", cellule A2.​

---

code VBA du module "Feuille entretien" :

VB:

Option Explicit

Sub TA()
  Dim T, s$, n As Byte, i As Byte
  T = Array("PT", "ECA", "ESA", "ETS")
  Application.ScreenUpdating = 0
  For i = 1 To 4
    ActiveSheet.Shapes("cbTA" & i).Select
    If Selection.Value = 1 Then s = s & T(i - 1) & ", "
  Next i
  n = Len(s): If n > 0 Then s = Left$(s, n - 2)
  ['Bilan ECA'!A2] = s: ActiveCell.Select
End Sub

bien sûr, ensuite, tu devras faire une adaptation pour que la ligne de la cellule de destination corresponde à la ligne où tu vas écrire des infos en feuille "Bilan ECA", pour une personne donnée ou un dossier donné.

puis tu auras la joie de refaire tout le même travail pour chaque série de cases à cocher de ton magnifique formulaire ! bon courage, et haut les cœurs, car tu vas avoir beaucoup de pain sur la planche !

c'est pas pour te décourager, hein ? au contraire, j'te stimule !
(mais surtout, ne me demande pas de le faire à ta place ! )​

soan

 

Pièces jointes

• Test v3.xlsm

  125.8 KB · Affichages: 25

Vote positif 1 Vote négatif

Solution

M

missymanioca

XLDnaute Nouveau

• 21 Juin 2021

• #13

Bonjour @soan , tout d'abord merci beaucoup de ton aide, ton temps, mais surtout ta bienveillance
Je viens d'essayer c'est bien ce que je voulais et ça fonctionne Comme tu dis maintenant reste plus qu'à faire le reste lol. En tout cas merci encore !
Bonne journée.

 

Vote positif 0 Vote négatif