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

Messages postés
15
Date d'inscription
mercredi 26 février 2014
Statut
Membre
Dernière intervention
29 octobre 2014
-
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 -> http://cjoint.com/?DJCo0lv1iRz

En vous remerciant par avance de votre aide.
Afficher la suite 

12 réponses

Messages postés
14715
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
13 septembre 2019
1171
0
Merci
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
15
Date d'inscription
mercredi 26 février 2014
Statut
Membre
Dernière intervention
29 octobre 2014
0
Merci
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
14715
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
13 septembre 2019
1171
0
Merci
Re,

Merci pour l'explication. En cas d'erreur de "cochage", que doit-il se passez ????
Messages postés
15
Date d'inscription
mercredi 26 février 2014
Statut
Membre
Dernière intervention
29 octobre 2014
0
Merci
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
14715
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
13 septembre 2019
1171
0
Merci
Re,

je regarde la chose

A+
Messages postés
15
Date d'inscription
mercredi 26 février 2014
Statut
Membre
Dernière intervention
29 octobre 2014
0
Merci
Merci beaucoup
Messages postés
14715
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
13 septembre 2019
1171
0
Merci
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

http://cjoint.com/?DJDkDaGAVwW
Messages postés
15
Date d'inscription
mercredi 26 février 2014
Statut
Membre
Dernière intervention
29 octobre 2014
0
Merci
Parfait, merci pour ce beau travail.

Bonne journée
Messages postés
15
Date d'inscription
mercredi 26 février 2014
Statut
Membre
Dernière intervention
29 octobre 2014
0
Merci
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
14715
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
13 septembre 2019
1171
0
Merci
Re,

je regarde la chose

A+
Messages postés
14715
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
13 septembre 2019
1171
0
Merci
Re,


fichier modifie "copie" sans "": http://cjoint.com/?DJDrqW3dwir
Messages postés
15
Date d'inscription
mercredi 26 février 2014
Statut
Membre
Dernière intervention
29 octobre 2014
0
Merci
Magnifique,

merci encore et bonne soirée :)