Copier coller plusieurs texte à l'aide de case à cocher. [Résolu/Fermé]

Signaler
Messages postés
16
Date d'inscription
mercredi 26 février 2014
Statut
Membre
Dernière intervention
26 juin 2020
-
Messages postés
16
Date d'inscription
mercredi 26 février 2014
Statut
Membre
Dernière intervention
26 juin 2020
-
Bonjour,

Pour mon travail, j'aimerai réaliser un excel (2007) qui me permet, à l'aide de case à cocher, de remplir deux cases de différentes phrases (plutôt longues), et par un copier le coller dans un autre logiciel (à la main).
Pour une explication j'ai réalisé un excel pour représenter mes besoins.
En gros je dois cliquer sur plusieurs case à cocher sur un choix de 15 propositions, toujours les même, qui à pour effet d'aller chercher le texte de la cellule qui correspond a la case cochée (onglet DATA) et de le coller dans la bonne case de destination (ongle fram1).
Les phrases collées dans les cases de destination doivent s'ajouter à la suite des autres (trvx 1 trvx 2 ,...)

Fichier -> https://www.cjoint.com/?DJCo0lv1iRz

En vous remerciant par avance de votre aide.

12 réponses

Messages postés
15349
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
22 septembre 2020
1 361
Bonjour,

Pas tres claire votre explication sur les phrases:

< doit remplir phrase 1 dans trvx et phrase 2 dans materiel ???????

a quoi sert la colonne marteriel dans DATA ?????
Messages postés
16
Date d'inscription
mercredi 26 février 2014
Statut
Membre
Dernière intervention
26 juin 2020

Bonjour,

Excusez moi, pas toujours très simple d'expliquer.

Alors, lorsque je clique sur la case à cocher "A" les phrases dans "data" (trvx 1 et mat1) vont respectivement dans les cases "J6" et "J13" de l'onglet "Fram1".

Si je clique sur la case à cocher "B" ou "C",.... je veux que les phrases dans l'onglet "data" s'ajoute après les phrases existante (par exemple dans la cellule"J6" trvx1 trvx 2 trvx 3 ,...).

Le but est que pour mon travail je dois remplir des cases "travaux" et "materiel" dans un logiciel de mon boulot, et j'aimerai trouver un moyen de m'aider à remplir rapidement ces cases à l'aide de sélection (case à cocher).

Merci
Messages postés
15349
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
22 septembre 2020
1 361
Re,

Merci pour l'explication. En cas d'erreur de "cochage", que doit-il se passez ????
Messages postés
16
Date d'inscription
mercredi 26 février 2014
Statut
Membre
Dernière intervention
26 juin 2020

Re,

Si on clique -> copie dans les cellules concernés dans "Fram1"

Si on dé clique -> cela supprime les phrases de la case à cocher concernée.
Messages postés
15349
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
22 septembre 2020
1 361
Re,

je regarde la chose

A+
Messages postés
16
Date d'inscription
mercredi 26 février 2014
Statut
Membre
Dernière intervention
26 juin 2020

Merci beaucoup
Messages postés
15349
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
22 septembre 2020
1 361
Re,

fichier modifie code 8 cases a cocher(vous completerez pour aller a 15) et code complet pour copies,

clic case a cocher met/enleve trvx x et mat x dans cellules violettes

clic boutons Copie: remplit case vertes et copie pour collage ailleur

https://www.cjoint.com/c/DJDkDaGAVwW
Messages postés
16
Date d'inscription
mercredi 26 février 2014
Statut
Membre
Dernière intervention
26 juin 2020

Parfait, merci pour ce beau travail.

Bonne journée
Messages postés
16
Date d'inscription
mercredi 26 février 2014
Statut
Membre
Dernière intervention
26 juin 2020

J'ai de nouveau une petite question ^^

La fonction "copy" me met des guillemet et rend le collage pas très jolie.

Existe t-il lune autre fonction copié qui copie proprement le texte dans la cellule ?
J'entends propre pas de guillemet et pas d'espace avant ou après.
J'ai vu sur google la fonction SendKeys mais je n'arrive pas à la mettre en oeuvre.

Pour rappel le code :

Private Sub Cmd_TRVX_Click()
Dim Text_Trvx As String

Text_Trvx = ""
With Worksheets("Fram1")
For cel = 7 To 21
If .Cells(cel, 2) <> "" Then
Text_Trvx = Text_Trvx & .Cells(cel, 2) & vbNewLine
End If
Next cel
.Range("K6") = Text_Trvx
.Range("K6:Q21").Copy
End With
End Sub


Donc le besoin est de pouvoir copier le texte présent dans la cellule "K6" afin que je puisse le coller proprement dans mon logiciel interne à mon entreprise.

Encore merci :)
Messages postés
15349
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
22 septembre 2020
1 361
Re,

je regarde la chose

A+
Messages postés
15349
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
22 septembre 2020
1 361
Re,


fichier modifie "copie" sans "": https://www.cjoint.com/c/DJDrqW3dwir
Messages postés
16
Date d'inscription
mercredi 26 février 2014
Statut
Membre
Dernière intervention
26 juin 2020

Magnifique,

merci encore et bonne soirée :)