Déplacer un mot selon ou a lieu le double clic, 3 premieres cel. (-) et (+) 3 autres

anthoYS · 17 Juillet 2010

Bonjour,

Voilà le but :

Si double clic de C à E, alors laisser en A (-), si de F à G, rangé le mot en A, en B (+)
Voilà mon souhait.

Attention toutefois, car un double clic laisse la cellule coloré même après un autre double clic plus tard sur une autre cellule.
la position du mot doit dépendre du dernier double clic.

Tout ceci est récapitulé dans le fichier.

Merci par avance.

phlaurent55 · 17 Juillet 2010

Re : Déplacer un mot selon ou a lieu le double clic, 3 premieres cel. (-) et (+) 3 au

Bonjour Anthoys,

ton fichier en retour,

à+
Philippe

anthoYS · 17 Juillet 2010

Re : Déplacer un mot selon ou a lieu le double clic, 3 premieres cel. (-) et (+) 3 au

re,

Merci beaucoup,
seul problème, voir image ci-dessous, parfois la coloration n'a pas lieu.

Comment y remedier?

Merci encore.

anthoYS · 17 Juillet 2010

Re : Déplacer un mot selon ou a lieu le double clic, 3 premieres cel. (-) et (+) 3 au

Re,

Voici ce que je constate ;

Les "-" ajoutent le commentaire mais pas la coloration.
Par contre les "+", se colorent. Donc c'est oK.

Voici le code revu (inspiré de celui que phlaurent55 avait déjà modifié) :

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Dt As String
Dt = Date
With Target
    If .Column >= 3 And .Column < 9 Then
        Cancel = True
        If .Comment Is Nothing Then .AddComment
            .Comment.Shape.TextFrame.AutoSize = True
            .Comment.Text Text:=Dt
    End If
If .Column = 3 And Cells(Target.Row, 2) <> "" Then
    Cells(Target.Row, 2).Select
    Selection.Cut Destination:=Cells(Target.Row, 1)
Cells(.Row, 3).Interior.ColorIndex = 3
Cells(.Row, 9) = Date
End If
If .Column = 4 And Cells(Target.Row, 2) <> "" Then
    Cells(Target.Row, 2).Select
    Selection.Cut Destination:=Cells(Target.Row, 1)
Cells(.Row, 4).Interior.ColorIndex = 45
Cells(.Row, 9) = Date
End If
If .Column = 5 And Cells(Target.Row, 2) <> "" Then
    Cells(Target.Row, 2).Select
    Selection.Cut Destination:=Cells(Target.Row, 1)
Cells(.Row, 5).Interior.ColorIndex = 36
Cells(.Row, 9) = Date
End If
If .Column = 6 And Cells(Target.Row, 1) <> "" Then
    Cells(Target.Row, 1).Select
    Selection.Cut Destination:=Cells(Target.Row, 2)
Cells(.Row, 6).Interior.ColorIndex = 27
Cells(.Row, 9) = Date
End If
If .Column = 7 And Cells(Target.Row, 1) <> "" Then
    Cells(Target.Row, 1).Select
    Selection.Cut Destination:=Cells(Target.Row, 2)
Cells(.Row, 7).Interior.ColorIndex = 35
Cells(.Row, 9) = Date
End If
If .Column = 8 And Cells(Target.Row, 1) <> "" Then
    Cells(Target.Row, 1).Select
    Selection.Cut Destination:=Cells(Target.Row, 2)
Cells(.Row, 8).Interior.ColorIndex = 4
Cells(.Row, 9) = Date
End If
End With
End Sub

Merci encore.

Compte Supprimé 979 · 17 Juillet 2010

Re : Déplacer un mot selon ou a lieu le double clic, 3 premieres cel. (-) et (+) 3 au

Bonjour AnthoYS,

Logique pout ton problème de coloration 😕

Puisque pour les colonnes C,D,E tu testes si la colonne "B" contient du texte
Si la cellule est vide, tu continues sans rien faire

A+

phlaurent55 · 17 Juillet 2010

Re : Déplacer un mot selon ou a lieu le double clic, 3 premieres cel. (-) et (+) 3 au

Re,

seul problème, voir image ci-dessous, parfois la coloration n'a pas lieu.seul problème, voir image ci-dessous, parfois la coloration n'a pas lieu.

c'est normal, cela viens de :

Code:

If .Column = 3 [SIZE=3][COLOR=red][B]And[/B][/COLOR][/SIZE] Cells(Target.Row, 2) <> ""

en résumé:
si qq chose en colonne A lorsqu'on dbl-clic dans les trois colonnes gauches, rien ne se passe
si qq chose en colonne B lorsqu'on dbl-clic dans les trois colonnes droites, rien ne se passe

en espérant avoir répondu
à+
Philippe

Edit: Bonjour Bruno

anthoYS · 17 Juillet 2010

Re : Déplacer un mot selon ou a lieu le double clic, 3 premieres cel. (-) et (+) 3 au

Merci, mais comment changer cela pour que ça marche BrunoM45 et/ou phlaurent55 ?
Car là vous m'expliquez la cause.

Faut-il que j'enlève pour chaque ligne du code ceci :

Code:

= 3 And Cells(Target.Row, 2) <> ""

Merci par avance à vous.

phlaurent55 · 18 Juillet 2010

Re : Déplacer un mot selon ou a lieu le double clic, 3 premieres cel. (-) et (+) 3 au

Re,

Merci, mais comment changer cela pour que ça marche BrunoM45 et/ou phlaurent55 ?
Car là vous m'expliquez la cause.

le problème c'est que tu ne nous expliques pas clairement et en détails le moment où cela doit changer de colonne et de couleur, éventuellement le moment où cela ne peut pas changer de colonne et de couleur,
pour une meilleure compréhension, il serait peut-être utile de savoir à quoi cela va servir

Bon dimanche à+
Philippe

anthoYS · 19 Juillet 2010

Re : Déplacer un mot selon ou a lieu le double clic, 3 premieres cel. (-) et (+) 3 au

Re,

Un double clic en C, rouge, en D orange, etc.
Si le double clic est réalisé de 1 à 3 (soit de C à E), le mot doit rester à gauche, sinon (de 4 à 6) il doit aller à droite (+).

Voir image :

A+

Merci

anthoYS · 19 Juillet 2010

Re : Déplacer un mot selon ou a lieu le double clic, 3 premieres cel. (-) et (+) 3 au

Re,

Avec ce code, après double clic, la coloration des cellules est bonne, mais le mot en (-) ou (+) fini par disparaître.

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Dt As String
Dt = Date
With Target
    If .Column >= 3 And .Column < 9 Then
        Cancel = True
        If .Comment Is Nothing Then .AddComment
            .Comment.Shape.TextFrame.AutoSize = True
            .Comment.Text Text:=Dt
    End If
If .Column = 3 Then
    Cells(Target.Row, 2).Select
    Selection.Cut Destination:=Cells(Target.Row, 1)
Cells(.Row, 3).Interior.ColorIndex = 3
Cells(.Row, 9) = Date
End If
If .Column = 4 Then
    Cells(Target.Row, 2).Select
    Selection.Cut Destination:=Cells(Target.Row, 1)
Cells(.Row, 4).Interior.ColorIndex = 45
Cells(.Row, 9) = Date
End If
If .Column = 5 Then
    Cells(Target.Row, 2).Select
    Selection.Cut Destination:=Cells(Target.Row, 1)
Cells(.Row, 5).Interior.ColorIndex = 36
Cells(.Row, 9) = Date
End If
If .Column = 6 Then
    Cells(Target.Row, 1).Select
    Selection.Cut Destination:=Cells(Target.Row, 2)
Cells(.Row, 6).Interior.ColorIndex = 27
Cells(.Row, 9) = Date
End If
If .Column = 7 Then
    Cells(Target.Row, 1).Select
    Selection.Cut Destination:=Cells(Target.Row, 2)
Cells(.Row, 7).Interior.ColorIndex = 35
Cells(.Row, 9) = Date
End If
If .Column = 8 Then
    Cells(Target.Row, 1).Select
    Selection.Cut Destination:=Cells(Target.Row, 2)
Cells(.Row, 8).Interior.ColorIndex = 4
Cells(.Row, 9) = Date
End If
End With
End Sub

Testez !

Merci par avance à ceux qui sauront m'aider. 😉

anthoYS · 20 Juillet 2010

Re : Déplacer un mot selon ou a lieu le double clic, 3 premieres cel. (-) et (+) 3 au

Re,

J'ai revu le fichier une dernière fois.

Voilà le résultat avec une nouvelle requête de ma part (concernant la coloration du mot également).

J'ai récapitulé les critères concernant mon fichier et explicité mon souhait pour ceux qui n'auraient pas encore compris avec mes explications premières.

Au plaisir,

En attente d'une aide...

Merci d'avance.

fichier cijoint

phlaurent55 · 20 Juillet 2010

Re : Déplacer un mot selon ou a lieu le double clic, 3 premieres cel. (-) et (+) 3 au

Re,

J'ai récapitulé les critères concernant mon fichier et explicité mon souhait pour ceux qui n'auraient pas encore compris avec mes explications premières.

tes premières explications ont été comprises et j'y ai de suite apporté une solution (17/07/2010 20h28 post#2) en réponse tu nous dis qu'il subsiste un problème de couleur de cellules
ce problème ne vient pas de ma procédure mais peut être du fait qu'il y a une différence d'affichage selon que le fichier est ouvert avec la version 2003 ou 2007
si c'est cela, essaie de modifier les couleurs et prends des couleurs "de base" au lieu de prendre du "vert-pomme pas très mûre", du "jaune-banane pas très fraîche", "bleu-ciel étoilé", .............

à+
Philippe

anthoYS · 20 Juillet 2010

Re : Déplacer un mot selon ou a lieu le double clic, 3 premieres cel. (-) et (+) 3 au

Re,

Tout à fait d'accord avec toi phlaurent55. Je ne parlais pas forcement de toi.

Non, il tourne sous 2003 aussi. Et il me semble que le problème persiste à vérifier demain...
Tu as toutefois, sans doute raison (phlaurent55).

Quid de la solution concernant la coloration du mot de façon instantanée en rapport au dernier double clic de la cellule correspondant à la ligne?

Merci par avance, à ceux qui auront une idée.

PS : Merci phlaurent55 d'avoir corriger une de mes fautes, car j'ai écrit rapidement sans me relire, et voici que je fait souvent des fautes en procédant de la sorte.
Désolé.

phlaurent55 · 21 Juillet 2010

Re : Déplacer un mot selon ou a lieu le double clic, 3 premieres cel. (-) et (+) 3 au

Re,
ton fichier en retour,

Je suis reparti à zéro et tout remis en place

il me semble que plusieurs réponses ont été supprimées sur ce fil 🙄
cela semble fonctionner pour tes "nouvelles exigences" 🙂

à+
Philippe

je ne reviendrai pas sur ce fil aujourd'hui ---------> Fête Nationale en Belgique

anthoYS · 21 Juillet 2010

Re : Déplacer un mot selon ou a lieu le double clic, 3 premieres cel. (-) et (+) 3 au

Re,

Un grand merci phlaurent55 de m'avoir aidé.

@+

Déplacer un mot selon ou a lieu le double clic, 3 premieres cel. (-) et (+) 3 autres

anthoYS

XLDnaute Barbatruc

Pièces jointes

phlaurent55

Nous a quittés en 2020

Pièces jointes

anthoYS

XLDnaute Barbatruc

anthoYS

XLDnaute Barbatruc

Compte Supprimé 979

Guest

phlaurent55

Nous a quittés en 2020

anthoYS

XLDnaute Barbatruc

phlaurent55

Nous a quittés en 2020

anthoYS

XLDnaute Barbatruc

anthoYS

XLDnaute Barbatruc

Pièces jointes

anthoYS

XLDnaute Barbatruc

phlaurent55

Nous a quittés en 2020

anthoYS

XLDnaute Barbatruc

Pièces jointes

phlaurent55

Nous a quittés en 2020

Pièces jointes

anthoYS

XLDnaute Barbatruc

Discussions similaires

Déplacer un mot selon ou a lieu le double clic, 3 premieres cel. (-) et (+) 3 autres

XLDnaute Barbatruc

Pièces jointes

Nous a quittés en 2020

Pièces jointes

XLDnaute Barbatruc

XLDnaute Barbatruc

Compte Supprimé 979

Guest

Nous a quittés en 2020

XLDnaute Barbatruc

Nous a quittés en 2020

XLDnaute Barbatruc

XLDnaute Barbatruc

Pièces jointes

XLDnaute Barbatruc

Nous a quittés en 2020

XLDnaute Barbatruc

Pièces jointes

Nous a quittés en 2020

Pièces jointes

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency