couper coller difficile

Salut :?
j'ai fait mon programme, mais il ne marche pas... je debut sur VBA, donc je ne m'étonne de rien...

le but du programme est de:
1-quand je double clique sur un nom de la liste, le programme enregistre la cellule double cliquer comme cible
2-le programme efface la cellule (couper)
3-je double clique sur la cellule ou je veux deplacer la cible, le programme me colle le nom pris comme cible.

je vous joint le fichier de travail et mon programme.

le programme que j'ai fait jusque la est le suivant:

Code:

---

1 2 3 4 5 6 7

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect(Target, [D9:H15]) Is Nothing Then nom = Target Target.Cut If Not Intersect(Target, [D9:H15]) Is Nothing Then Target = nom: nom = "" Cancel = True   End Sub

---

si quelqu'un pouvait jeter un oeil, ce serait super sympa:D

Bonjour Decarre, bienvenue sur le forum,
Voudrais-tu bien modifier le sujet de la dicussion, nous sommes tous là pour un "Probleme de programmation" ;)
Afin de permettre de retrouver un sujet déjà traité ou de savoir s'il on peut t'aider d'un premier coup d'oeil d'un seul, un sujet de discussion doit être explicite et indiquer brièvement le problème que tu rencontres.
Merci de lire les règles du forum, règles qui entre autres faciliteront tes recherches.
Bonne chance

Salutdecarre et le foum

Citation:

---

j'ai fait mon programme, mais il ne marche pas... je debute sur VBA

---

2 Propositions une seule possible sur la feuille

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Option Explicit Dim Nom_V As String Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 'Traitement----------------------- If Not Intersect(Target, [D9:H15]) Is Nothing Then 'si cellule appartient à la plage D9:H15 Cancel = True 'sortir du mode édition If Nom_V = "" Then 'si la variable est vide Nom_V = Target 'mémoriser le contenu de cellule Target.ClearContents 'effacer la cellule Else 'sinon (variable non vide) Range(Target.Address) = Nom_V 'cellule = variable Nom_V = "" 'vider variable End If End If End Sub

---

ou bien en conservant l'usage du Couper

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Option Explicit Dim Flg As Boolean Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 'Traitement----------------------- If Not Intersect(Target, [D9:H15]) Is Nothing Then 'si cellule appartient à la plage D9:H15 Cancel = True 'sortir du mode édition If Flg Then 'si la variable = VRAI ActiveSheet.Paste 'Coller sur la sélection Flg = False 'Variable=FAUX Else 'sinon (variable = FAUX) Target.Cut 'couper la cellule Flg = True 'Variable=VRAI End If End If End Sub

---

Si t'as des questions poses-les

Quelques petites précisions
Les variables (Nom_V et Flg) sont à déclarer en haut du module (zone "(Déclaration)")

Quelques conseils :
N'utilise pas des noms qui pourrait être utiliser par Excel (Name, Sheet, etc..)
Déclare tes variables (VBA-Menu Outils>>Options>>Editeur>>Déclaration obligatoire des variables) : Je sais, les super programmeurs disent que ce n'est pas utiles, mais... ça évite les erreurs de frappe. En commençant tes variables par une majuscule, quand tu tape ton code (pas trop fort), les variables déclarées sont remplcée par le même format que la déclaration. Si la variabkle n'est pas reconnue, la première lettre ne passe pas en majuscule à la validation de l'instruction (comme pour les formule)

En déclarant tes variables, mets leur un type : ça t'oblige à réfléchir à ce que va contenir ta variable, ça économise de la place en RAM, mais de plus souvent ça t'avertit s'il y a un problème et que tu la remplis avec une valeur que tu n'attendais pas.

Quand tu mets un fichier d'essai, supprime les feuilles inutiles

A+

Citation:

---

Envoyé par Gorfael

Déclare tes variables (VBA-Menu Outils>>Options>>Editeur>>Déclaration obligatoire des variables) : Je sais, les super programmeurs disent que ce n'est pas utiles, mais...

---

Les supers programmeurs savent qu'une variable non déclarée est une source d'erreur et de problème.
Tu peux aussi utiliser, en tête de module

Code:

---

Option.Explicit

---

bonsoir,

Exact pour les variables, et on peut même être plus explicite, comme ce site recèle de trésors, autant en profiter, c'est un peu lourd au départ, mais on prend vite le pli et quel confort ensuite quand on revient sur un projet :D

voir ici :

http://argyronet.developpez.com/office/vba/convention/

cordialement,

Didier

tout d'abord, je vous remercie pour votre aide et vos reponses formatrices!:lol:

cependant, je n'arrive pas a adapter les programmes que vous m'avez donné sur le fichier sur lequel je bosse, je pensais aléger ma demande et en fait je vous ai fait plancher sur un fichier qui m'aide grandement, mais ne me débloque pas tout a fait.

je joint donc le fichier mère a ce message

Cependant 2 points restent noir pour moi :

1. le programme que j'ai inseré dans VBA fait bugger le premier que j'avais deja fait
2. le programme que vous m'avez fait marche tres bien sur l'exemple mais pas sur mon planning journalier, en fait il fait que copier et effacer la cellule, mais il ne colle pas... (je l'ai essayé tout seul)

but de la manoeuvre:

1. faire un copier coller grace au clique droit du tableau de ressources (celui coloré a gauche vers le planning et les disponibilités)
2. faire un couper coller a l'interieur du planning et du tableau des indisponibilités

je pense avoir était complet sur les explications, mais si il devait résider une zone flou, j'apporterais de plus amples explication dans les plus bref delais...

je vous remercie par avance

j'ai continué a travailler mon programme, il realise la premiere etape mais m'affiche un message d'erreur pour la second (cf message du dessus)
:?
mon code actuel

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32

Private Sub ScrollBar2_Change()   End Sub     Option Explicit Dim Nom_V As String   Private Sub worksheet_BeforeDoubleClick(ByVal target As Range, cancel As Boolean) If Not Intersect(target, [E2:AD43]) Is Nothing Then cancel = True If Nom_V = "" Then Nom_V = target target.ClearContents Else Range(target.Address) = Nom_V Nom_V = "" End If End If End Sub       Option Explicit Dim nom As String   Private Sub Worksheet_BeforeRightClick(ByVal target As Range, cancel As Boolean) If Not Intersect(target, [A4:C70]) Is Nothing Then nom = target If Not Intersect(target, [E2:AD43]) Is Nothing Then target = nom: nom = "" cancel = True   End Sub

---

le message d'erreur me dit

Citation:

---

attention erreur de compilation
seuls des commentaires peuvent apparaitre apres End Sub, End Fonction, ou End Property

---

j'aimerais savoir comment faire du tout en un vu qu'apparament, on ne peux mettre qu'un "End Sub"

Citation:

---

Option Explicit

---

doit être placé en tête du module, avant toutes les SUB

Merci ouskel'n'or, ca ne m'affiche plus de message d'erreur.:D
un bugg en moins:D:D
Le probleme suivant, c'est que ca coupe, et recoupe, et rerecoupe, mais sans jamais coller, pourtant, je trouve le code logic...
On dirait qu'il fait abstraction de la partie du code suivante :

Code:

---

1 2 3

Else Range(target.Address) = Nom_V Nom_V = ""

---

quelqu'un a une idée?
merci d'avance

Code:

---

1 2	else target = Nom_V

---

hi hi !

salut decarre
Comme je me méfie du copier/coller, je ne me suis occupé que de la macro du module de classe de la feuille.
Quelques principes :
Les déclarations de variables :
Dans la macro, la variable n'existe que pour la macro
Dans un module lié à une feuille en haut de la page : fonctionne uniquement pour les macros du module. N'est remise à 0 que par fermeture du module
Dans un module général : fonctionne pour le classeur (et dans certains cas, pour Excel)

Donc, tu ne dois pas demander à Excel de choisir si la variable Nom est celle déclaré dans le module de la feuille Feuil1 ou celle déclarée dans le module général. Il risque de se faire des noeuds au boyeaux de la tête !

Pour éviter toutes confusion, déclare au maximum dans les macros, et seulement en globales celles dont tu ne peux pas faire la déclaration dans les macros.

Ne jamais utiliser le même nom pour deux variables globales et éviter les noms dont Excel peut se servir.

Une macro commence par Sub et finit par End Sub.
entre ces 2 instructions il ne peut pas y avoit de Sub (ou de Function).

Dans un module il ne peut pas y avoir 2 macros de mêmes noms

Excel ne prend jamais de décision ; il fait ce que tu lui dit de faire et que ce que tu lui dis, même si c'est une énormité. si tu lui dis avance, et qu'il y a un ravin devant, n'espère pas qu'il s'arrête. Il n'ast pas prévu pour ça.
tu peux le vérifier en utilisant la macro automatique WorkSheet_Change avec une simple instruction Target.Offset(1,0) = 1
tu remplis ta colonne de 1 et tu passes en erreur.

Tout ça pour dire qu'il faut être précis dans ce que tu demandes
but de la manoeuvre:

1. faire un copier coller grace au clique droit du tableau de ressources (celui coloré a gauche vers le planning et les disponibilités)
2. faire un couper coller a l'interieur du planning et du tableau des indisponibilités

Ce que je crois comprendre :
faire un copier coller grace au click-droit, du tableau de ressources (celui coloré a gauche) vers le planning et les disponibilités
de la plage(A4:B13;A16:A47;A49:A59;A62:A65;A67:A70) vers la plage (E2:AD37) (quoique vraisemblablement la ligne 9 et sans doute d'autres doivent être exclues) ? c'est la macro donnée dans l'exemple, sauf que comme je ne suis pas sûr, j'ai laissé de A2:A70 vers E2:AD37

faire un couper coller a l'interieur du planning et du tableau des indisponibilités
Couper/coller, mais comment ? Clic-droit, là aussi ou une autre commande ? et on coupe de où, pour coller où ?

Tu travaille sur un planning, moi sur une feuille. C'est toute la différence, mais elle est importante
Le fait de couper coller, me fait supposer que tu veux "gommer" les personnes indisponibles de plage "A2:A70" si elles se trouvent dans la plage réservée à l'indisponibilité (?) : il faut donc prévoir l'inverse (à moins que ça ne soit pas important).
Moi je préfère que la ressource soit reconnue comme indisponible, si elle apparaît dans la plage indisponible : une seule macro, mais une MFC qui change la couleur du fond, ou celle de la police.
Inconvénient : "poid" du tableau
Avantage : une seule macro (celle pour le clic-droit) et un retour à l'état antérieur facile, sans risque d'erreur.

A+

merci pour ta reponse Gorfael.
les interogations que tu souleves sont de bonnes augures, un oeil exterieur ne fait jamais de mal.

pour precision:

le travail que tu as effectué sur le clique droit est exactement celui que je souhaité
la question que tu te posais sur la suite du code a propos du couper coller, et bé cela se passe uniquement dans le planning et dans le tableau comprenant les colonnes AC et AD.
parce que en fait dans ce dernier figures les personnes non employais sur les chantier et les materiels disponible.

bref, je voulais a la base garder un listing complet et permanant des ressources totales (chose faite avec le copier coller) car futurement elles seront veroullées, passer toutes ces ressources dans le planninfg et tableau de droite de sorte qu'on ait plus qu'a bouger les éléments du planning et tableau de droite selon les changement d'emploi du temps sans égarer des ressources par erreur, d'où le double clique pour couper coller pour organiser. l'utilisation est de prendre le planning de la veille pour mutter ses element si il le faut.
donc je veux, non pas cliquer droit pour le couper coller, mais un boule clique gauche ce coup ci. c'est celui-ci que je n'arrive pas a faire marcher, il coupe mais ne colle pas.

voila comment je voyais le fonctionnement du planning

As-tu testé ce que je t'ai mis avant le laïus de Gorfael ?

Edit
Au fait, je t'avais demandé de modifier le sujet de ta discussion ;)
(Bouton Edit en bas de ton premier post)

Salut decarre
Une modif vite
teste en cliquant-droit sur un nom et Clic-droit AC4:AC37
pour expliquer mes dires

SALUT Gorfael et ouskel'n'or

tout d'abord, je n'arrive pas a changer apres le sujet de la discution (ce doit etre surement sqmple mais je n'ai pas trouver)

ouskel'n'or, t'as modif

Citation:

---

ouskel'n'or Code :
else
target = Nom_V
hi hi !

---

ca ne marche toujours pas, ca coupe mais ne colle pas...

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

merci a vous 2 a+

en simplifiant le truc
a propos du double click gauche qui ne colle pas :
si on fait un copier de target dans une cellule (AJ24) au premier double clique pour couper la cellule voulue et qu'au second double click dans la cellule cible, la macro copie la cellule AJ24 dans cette cellule cible?
c'est 2 ligne de commande en plus, une dans le IF et l'autre dans le ELSE, non?
Why not?
est ce clair, je ne sais pas, a vous de me le dire

Citation:

---

Envoyé par decarre

ouskel'n'or, t'as modif
ca ne marche toujours pas, ca coupe mais ne colle pas...

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

merci a vous 2 a+

---

Alors c'est que tu n'as rien dans Nom_V.
Où prends-tu cette variable ? A quoi correspond-elle ?
Montre toute ta procédure "Woksheet_change.

en effet, c'est une chose que j'avais envisagé, mais qui n'a pas plus retenu mon attention étant donné que rien ne me choque dans les lignes de commandes.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Private Sub worksheet_BeforeDoubleClick(ByVal target As Range, cancel As Boolean) If Not Intersect(target, [E2:AD43]) Is Nothing Then cancel = True If Nom_V = "" Then Nom_V = target target.ClearContents Else Range(target.Address) = Nom_V Nom_V = "" End If End If End Sub

---

je vois pas ou le code plante...
où il ne charge pas la variable...

donc je prend la valeur de la variable quand je double clique sur une cellule, ensuite je redouble clique et la, c'est sencé vidé cette variable dans la deuxieme cellule double cliqué puis vidé la variable
je te joint le fichier...

J'ai l'impression que tu ne comprends pas ce que tu fais. Ce n'est pas une critique, c'est un constat et moi-même j'en apprends tous les jours ;)
Donc

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Private Sub worksheet_BeforeDoubleClick(ByVal target As Range, cancel As Boolean) If Not Intersect(target, [E2:AD43]) Is Nothing Then cancel = True If Nom_V = "" Then 'ici, tu dis "si target est vide" Nom_V = target '... ta variable prend la valeur de ta cellule vide target.ClearContents 'là tu effaces une cellule VIDE Else 'sinon, si target n'est pas vide, tu la vides puisque Nom_V est vide, obligatoirement Range(target.Address) = Nom_V 'là, je t'ai déjà corrigé, target = Nom_V Nom_V = "" End If End If End Sub

---

Où prends-tu la valeur Nom_V ?
Tel que tu écris ce code, avec ses erreurs, tu dois la déclarer en début de procédure.
Et pourquoi utilises-tu l'événement BeforeDoubleClick de ta feuille ?
Dis plutôt ce que tu veux faire.
A+

oui effectivement, je ne comprend pas tout... voir moins que ca.
le truc, c'est que je suis etudiant en alternace, j'aiu jamais touché a VBA, donc, j'essaye de comprendre, de déduire se que je peux sur les forum...

voila toute ma page de code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29

Private Sub ScrollBar2_Change()   End Sub     Option Explicit Dim Nom_V As String Dim nom As String   Private Sub worksheet_BeforeDoubleClick(ByVal target As Range, cancel As Boolean) If Not Intersect(target, [E2:AD43]) Is Nothing Then cancel = True If Nom_V = "" Then Nom_V = target target.ClearContents Else Range(target.Address) = Nom_V Nom_V = "" End If End If End Sub     Private Sub Worksheet_BeforeRightClick(ByVal target As Range, cancel As Boolean) If Not Intersect(target, [A4:C70]) Is Nothing Then nom = target If Not Intersect(target, [E2:AD43]) Is Nothing Then target = nom: nom = "" cancel = True   End Sub

---

ce que je faire me paraissais pas insurmontable, enfin, c'est un projet imposé, avec une ligne a suivre, d'ou les doubles cliques.

donc, je voulais faire une procedure pour deplacer un ouvrier ou camion, peut importe, pour le mettre dans une autre equipe. d'ou le coupé coller en double clique, car c'est bien plus rapide que le couper coller manuel, d'apres les solutions auquelles je pense.