couper coller difficile

Version imprimable

Voir 40 message(s) de cette discussion en une page

26/03/2008, 12h20
ouskel'n'or

Je crois avoir compris ce que tu ne comprends pas (!)
Ce que je crois que tu veux faire : Tu veux copier le contenu d'une cellule d'un double clic gauche et le coller d'un clic droit.
Est-ce bien ça ?
Tu dis
A+

(Il est parfois plus simple d'expliquer ce qu'on veut obtenir que de montrer comment on veut le faire ;) )

presque

en effet, c'est presque ca...
je veux faire les deux (copier et coller) en double clique gauche.
je viens d'essayer avec un truc que j'ai deja :
Code:

1 2 3 4 5 6 7 8 9 Private Sub Worksheet_BeforeRightClick(ByVal target As Range, cancel As Boolean) If Not Intersect(target, [A4:C70]) Is Nothing Then nom = target target.ClearContents 'la ligne au dessus, c'est rajouter If Not Intersect(target, [E2:AD43]) Is Nothing Then target = nom: nom = "" cancel = True End Sub
j'avais deja ca pour passer les ressources de gauche dans le planning, sauf que c'etait un copier coller afin de garder tout le temps les ressources au complet, j'ai rajouter la commande 'effacer la cellule' au moment du copier, ca devient un couper. c'est exactement ca que j'aimerai avoir pour les deplacement a l'interieur du planning (a la differance du double clique au lieu du clique droit, histoire de differancier le "copier-coller" que je veux garder et le "couper-coller" que j'aimerai mettre en place).
vu que ca marche comme je veux, je me suis dit que je vais l'adapter en double clique et avec la plage de cellules souhaitée, bé pas reussit...

Un truc comme ça ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Dim Nom
 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, [A4:C70]) Is Nothing Then
         Nom = Target
         Target.ClearContents
    endif
End Sub
 
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, [E2:AD43]) Is Nothing Then 
         Target = Nom: Nom = ""
         Cancel = True
    endif
End Sub

26/03/2008, 14h43
Gorfael

Salut decarre et le forum

Citation:

Gorfael, je ne saisi pas les changements sur ton derniers post, pourrait tu apporter de plus amples precisions sur tes modifs

tu cliques-Droit sur A16 (Ahm....)
tu cliques-droit sur AC6
le nom a été "transféré"
si tu effaces AC6, il réapparait en A16. Cest "magique" :P
A+
26/03/2008, 14h45
decarre

1 pièce(s) jointe(s)
non, ca je l'ai deja, enfin, c'est pas sur ca qu'il faut plancher.
visiblement, je n'arrive pas a etre clair.
1. Le tableau A doit rester entier, et doit pouvoir diffuser aux tableau B et C des elements d'ou le copier coller en clique droit. ca, c'est bon, je l'ai.
2. les tableau B et C doivent subir tout les jours des modifs, mais tout les elements doivent rester en B et C, d'ou le couper coller en double clique gauche en utilisant des tableaux surdimensionnés pour ne rien écraser.
il me faut les deux types de cliques pour 2 actions distinctes

Ok. Alors tu peux t'inspirer du code que je t'ai passé

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Dim Nom
 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, [A4:C70]) Is Nothing Then
         Nom = Target
         'Target.ClearContents 'pas de clear sinon tu effaces
    elseif Not Intersect(Target, [E2:AD43]) Is Nothing Then
         Nom = Target
         'Target.ClearContents 'pas de clear sinon tu effaces
    endif
End Sub
 
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, [E2:AD43]) Is Nothing Then 
         Target = Nom: Nom = ""
         Cancel = True
    elseif Not Intersect(Target, [ici tu mets la plage 3]) then
         Target = Nom: Nom = ""
         Cancel = True
    endif
End Sub

Pas testé, je dois m'absenter
Bonne chance
A+

26/03/2008, 15h58
Gorfael

Salut decarre
Un petit dessin vaut mieux qu'un grand discours hein :mrgreen:
Si je comprend bien :

Clic-droit sur la plage A (A3:C70) copie en variable Nom_V
Clic-droit sur la plage B (E2:AA40) copie Nom_V sur la cellule et vide Nom_V
Clic-droit sur la plage C (AC4:AD43) copie Nom_V sur la cellule et vide Nom_V
Clic-droit sur la plage ailleurs vide Nom_V et exécute un Clic-droit normal

ça, c'est plus ou moins ce que j'ai déjà fait.
Pour finaliser, il faut juste faire un test pour ne pas avoir une erreur en cas de sélection multi-cellules
----------------------------------------------------------------
si variable globle Flg=False
Dbl_Cklic-gauche sur la plage B "coupe" la cellule et met Flg à True
Dbl_Cklic-gauche sur la plage C "coupe" la cellule et met Flg à True
Dbl_Cklic-gauche ailleurs éxecute le Dbl_Cklic-gauche normal

si Flg=true
Dbl_Cklic-gauche sur la plage B "colle" la cellule, efface la cellule origine et met Flg à False
Dbl_Cklic-gauche sur la plage C "colle" la cellule, efface la cellule origine et met Flg à False
Dbl_Cklic-gauche ailleurs arrête le mode couper, met Flg à false et éxecute le Dbl_Cklic-gauche normal

Remarque : on ne peut pas utiliser la vraie fonction Couper/coller, parce que tu as un formatage de cellules de B et de C (encadrement, fond, etc)

Si c'set bien ce que tu attends, on va pouvoir régler ce problème
Juste une idée : définir plus précisement les plage A, B et C : une erreur sur un titre.....
Pour ne pas faire d'erreur en cas de définition de plages aussi complexes, je me sert d'excel : Je choisi une cellule ailleurs, j'entres :"=somme(" et je choisi mes plages avec shift et Ctrl, ou en entrant ";", puis je cloture par ")".
Quand tu édites la formule, Excel te montres les plages auxquelles fait référence la formule : ça permet de vérifier/corriger. quand tout est bon, un copier depuis ma barre de formule coller sur la macro, puis suppressionde la cellule et ma plage est définie correcetement..

Nonobstant ce fonctionnement, on peut faire « disparaître » le nom de la plage A (couleur de police=couleur de fond) si le nom en A se trouve soit en B soit en C : c’est juste une indication visuelle, même si la cellule semble vide, le nom est toujours là
ou changer la couleur de fond

Mais dans ce cas, j’ai besoin de savoir si le nom peut exister plusieurs fois en B, plusieurs fois en C ou à la fois en B et en C : si c’est le cas, on peut soit changer le fond, soit la police (en italique par exemple), mais pas le faire disparaître.
Mais ça, c’est par MFC, pas par macro.

A+
26/03/2008, 17h02
decarre

super

:P:P:P:P:P:P:P:P:P
la, je crois que tu as bien cerné les pbs (merci dessin), c'est ce que je voulais faire, en mieux... bien vu!
pour ton idée de changer la police ou la couleur ou autre pour les ressources qui ne doivent pas (jamais) disparaitre, bé j'étais en train de mettre au point une forme conditionnelle pour me dire si des doublons en B+C existent, mais il s'avere que je n'arrive pas a pondre une formule legere.... donc à mediter!!!
je dois partir, je te repondrais plus emplement demain

je vous souhaite une bonne soirée et @+
26/03/2008, 20h24
Gorfael

Salut decarre
ça devrait être assez proche de ce que tu veux.
Les explication sont dans les macros.
ce qui m'a pris le plus de temps, ce sont :evilred: tes #CENSURÉ# :evilred: de cellules fusionnées.
seul bémol, que je n'ai pas corrigé, puisqu'il peut être intéressant :
si tu cliques-droit dans les plages où on doit "coller" le nom, sans avoir cliqué-droit avant dans les colonnes A:C, comme la variable Nom_V est vide, elle efface le nom :lol: (elle copie la variable vide dans la cellule.

sinon, j'ai rajouté une MFC sur les colonnes A:C (B dépend de A)
à droite du tableau, j'ai construit la formule de la MFC par rapport à A5

T'as plus qu'à t'amuser.
A+

Je ne veux pas m'accrocher mais tu devrais tout de même tester ça qui n'implique pas de "copy".

Si j'ai bien compris :

Un clic gauche dans une cellule faisant partie de la plage A2:C70 mémorise la donnée
Un clic droit insère la donnée dans la cellule si elle est fait exclusivement partie de E2:AB40

Un clic gauche dans une cellule faisant partie de la plage E2:AB40 mémorise la donnée
Un clic droit insère la donnée dans la cellule si elle est fait exclusivement partie de AC4:AD43

Si c'est bien ça, le code suivant le réalise.

La "copie"

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim Nom, adres As Range
 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, [A2:C70]) Is Nothing Then
         Nom = Target
         Set adres = Target
         'Target.ClearContents 'clear si tu souhaites effacer
    ElseIf Not Intersect(Target, [E2:AB40]) Is Nothing Then
         Nom = Target
         Set adres = Target
         'Target.ClearContents 'clear si tu souhaites effacer
    End If
End Sub

Le "collage"

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, [E2:AB40]) Is Nothing Then
        If Not Intersect(adres, [A2:C70]) Is Nothing Then
             Target = Nom: Nom = ""
             Cancel = True
         End If
    ElseIf Not Intersect(Target, [AC4:AD43]) Is Nothing Then
        If Not Intersect(adres, [E2:AB40]) Is Nothing Then
            Target = Nom: Nom = ""
            Cancel = True
         End If
    End If
End Sub

C'est toi qui vois ;)

27/03/2008, 13h40
decarre

Bravo

:lol: bé bien, on y est, le programme me fais ce que je veux, merci pour la perseverance... j'ai pas toujours été clair, mais voila, c'est fait
merci a tout les intervenant

merci ouskel'n'or pour ta patience, le dernier post, je n'arrive pas a le tester.
Gorfael, c'est ce que je voulais, merci

c'est avec un réel laisir que je vais pouvoir appuyer sur le bouton "RESOLU"

je vais voir maintenant comment gérer les doublons, alors peut etre a plus tard sur un autre sujet traitant des doublons au cas ou...

:D
27/03/2008, 14h20
ouskel'n'or

Citation:

Envoyé par decarre

merci ouskel'n'or pour ta patience, le dernier post, je n'arrive pas a le tester

8O ? Il suffisait de le coller dans la feuille de code de la feuille concernée... Et tu avais au-dessus du code l'explication sur ce qu'il est censé réaliser...
Mais si le code de Gorfael te convient, pas de pb.
Bon après-midi.

derniere petite question de la lignée

:D Salut à tous les depanneurs,
je voulais faire une modif dans mon code mais je ne sais pas comment faire.
donc voici mon code avec en incrustation, ce que j'aimerai qu'il realise...
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) If Target.Cells.Count <> Target.Cells(1).MergeArea.Cells.Count Then Exit Sub 'si le nombre de cellules de target est différent du nombre de cellules qui sont 'fusionnées avec la première cellule de target, on sort If Not (Intersect(Target, Union([A4:B15], [A18:A55], [A57:A73], [A76:A82], [A84:A90], [C5:C23], [C25:C51], [C53:C78], [C80:C90])) Is Nothing) Then 'si target appartient à la plage (A4:B15,A18:A55,A57:A73,A76:A82,A84:A90,C5:C23,C25:C59,C61:C78,C80:C90) Cancel = True Nom_V = Target Target.Copy ElseIf Not (Intersect(Target, Union([E2:AB49], [AC3:AC11], [AC13:AC22], [AC24:AC32], [AC34:AC37], [AC39:AC43], [AC45:AC49], [AD5:AD28], [AD30:AD49])) Is Nothing) Then 'sinon si target apparteint à la plage (E2:AB49,AC3:AC11,AC13:AC22,AC24:AC32,AC34:AC37,AC39:AC43,AC45:AC49,AD5:AD28,AD30:AD49) Cancel = True Application.CutCopyMode = False Target = Nom_V Nom_V = "" 'et si la variable Nom_V est vide, ne rien faire, cad click droit normal Else 'sinon (target n'appartient à aucune des 2 plages tesées) Nom_V = "" End If End Sub
parce que le probleme est que le click gauche dans la zone du planning (cf piece jointe d'un dernier des post de Gorfeld), ca efface, je trouver ca bien au debut, amais dans la ,pratique, des info se perdent et tous les utlisateurs de ce planning ne sont pas des informaticiens de carriere...

merci si quelqu'un a une idée...;)

Comme je ne te suis pas dans tes plages de cellules, avec le code passé plus haut, pour éviter de copier ou de coller des cellules vides, ça donnerait :
'La copie

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim Nom, adres As Range
 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target = "" then exit sub
    If Not Intersect(Target, [A2:C70]) Is Nothing Then
         Nom = Target
         Set adres = Target
         'Target.ClearContents 'clear si tu souhaites effacer
    ElseIf Not Intersect(Target, [E2:AB40]) Is Nothing Then
         Nom = Target
         Set adres = Target
         'Target.ClearContents 'clear si tu souhaites effacer
    End If
End Sub

'Le "collage"

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    If nom = "" then exit sub
    If Not Intersect(Target, [E2:AB40]) Is Nothing Then
        If Not Intersect(adres, [A2:C70]) Is Nothing Then
             Target = Nom: Nom = ""
             Cancel = True
         End If
    ElseIf Not Intersect(Target, [AC4:AD43]) Is Nothing Then
        If Not Intersect(adres, [E2:AB40]) Is Nothing Then
            Target = Nom: Nom = ""
            Cancel = True
         End If
    End If
End Sub

A placer comme précédemment dans la feuille de code de la feuille de calculs (!)

09/04/2008, 08h26
decarre

1 pièce(s) jointe(s)

erruer de clique, clarification

:?Salut,

j'ai bien regardé ton code, je ne l'ai pas essayer car ce code ne semble pas s'appliquer au passage de code "Private Sub Worksheet_BeforeRightClick".
En effet, j'aurais voulu un changement du code precedement cité.
Actuellement, la fonction beforerightclick copie si click droit dans l'espace A (cf dessin) puis colle dans les espaces B et C (re-cf dessin) la valeur enregistrée dans la variable Nom_V.
Le probleme, c'est que lorsque la variable Nom_V est vide et que l'on click droit dans les espaces B et c, ca colle la valeur de Nom_V, si elle est pleine, pas de probleme, si elle est vide, le click ecrase la valeur, cela ressemble a une gomme. au depart, la gomme etait plutot sympa, mais dans la realité, c'est une perte d'infos seche.

Mon souhait est le suivant : trouver la ligne de code a inserer pour que la fonction soit désactivée (le rendre a sa fonction initiale) si on click droit dans B et C alors que la variable Nom_V est vide.
De maniere iinverse, et en d'autrres termes, je souhaite que le collage du click droit dans l'espace B et C se fasse uniquement si la variable Nom_V est pleine...

J'espere que j'ai été clair...
Merci d'avance au solutionneur...:D
15/04/2008, 09h11
decarre

en fait, j'ai trouvé :D
il s'agit de

Code:

If Nom_V <> "" Then

voila, c'etait tout bete, mais fallait le temps que j'y pense...

merci a tous les gens qui m'ont aidé pour ce planning!!!!:yaisse2:

Voir 40 message(s) de cette discussion en une page