ventilation de donné

[GHISLAIN]

bonjour a tous

j essaie de me depatouiller pour ventiller mes donnees d une feuille a l autre mais je n y parviens pas
je n arrive a le faire que pour une seule feuille

si vous pouviez me donner un coup de main pour finaliser mon projet


merci a tous de votre aide

amicalement

ghislain

 

[nyko283]

Re : ventilation de donné

Bonsoir Ghislain,le forum,

Regarde le code pour le click sur une cellule orange,c'est la seule que j'ai modifé,
j'ai renomé également les onglet pour avoir la même case que ta liste.

dit moi si c'est ce que tu cherche.

je viens de rajouter une sortie anticipé sur ta macro d'interception du clic sur les cellules orange sinon la macro plante.

A plus

 

[kjin]

Re : ventilation de donné

Bonsoir,
Voir PJ, si tant est que j'ai compris la question
A+
kjin

 

[GHISLAIN]

Re : ventilation de donné

bonsoir tous et merci de vous etre penché sur mon fil

je viens de regarder ta proposition kjin qui fonctionne bien mais le souci c est que j avais des actions complementaire concernant les dates et dans le code proposé je ne sais pas ou les metttre

si tu peux jeter un coup d oeil

sur l user lieux 1 et lieux 2 l action des dates est differentes

merci encore de ton aide

pour nyko283 je n ai pas pu regarder ta proposition le fichiers n est pas joint

merci encore

amicalement ghislain

 

[kjin]

Re : ventilation de donné

Re,
Oui, j'avais bien vu seulement, je ne vois pas le rapport entre le formulaire et la saisie d'une quelconque date.
Il faut vérifier ton histoire de date avant l'affichage du formulaire, c'est tout !
Sauf que pour l'instant, je ne comprends pas comment ça fonctionne, donc une petite explication serait bienvenue
En outre, est-il normal que dans les colonnes G et I on trouve les mêmes infos que sur le formulaire ?!
A+
kjin

 

[GHISLAIN]

Re : ventilation de donné

j ai modifié les code de cette façon

With Sheets(CStr(ListBox1))
ActiveCell.Offset(0, 1) = "=TODAY()" ' me renseigne la cellule a droite du double click par la date du jour
ActiveCell.Offset(0, 0) = ListBox1.Value ' me renseigne la cellule active avec la valeur de la listbox1

Rng.Copy .Range("a65000").End(xlUp).Offset(1, 0)

Rng.Delete shift:=xlUp
End With
Set Rng = Nothing
Unload Me





Dim x&

If Target.Column = 7 Or Target.Column = 9 Then
If IsEmpty(Target) Then 'j ai modifié ici puisque je souhaite que l action ce declenche uniquement si la cellule est vide
Cancel = True
x = Target.Row
Set Rng = Range("A" & x, "K" & x)
Lieux.Show
End If
End If
End Sub

je voudrai rajouté que l evenement se declenche que si la cellule est vide et aussi si la cellule de gauche n est pas vide que l action ne se declenche pas

merci encore de ton aide precieuse

je repasse demain

bonne soiree

amicalement ghislain

 

[GHISLAIN]

Re : ventilation de donné

voila je crois que j y suis arrivé a ce que je souhaitais
ci joint le fichier pour plus de comprehension

je repasse demain si j ai des souci sur les autres user

merci de ton aide amicalement

ghislain

 

[kjin]

Re : ventilation de donné

Bonsoir,
Dans le module de la feuille...

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim x&
If Target.Column = 7 Or Target.Column = 9 Then
    If IsEmpty(Target) And Not IsEmpty(Target.Offset(, -1)) Then
        Cancel = True
        x = Target.Row
        Set Rng = Range("A" & x, "K" & x)
        Lieux.Show
    End If
End If
End Sub

...et dans le module du formulaire

Private Sub ListBox1_Click()
ActiveCell = ListBox1.Value
ActiveCell.Offset(0, 1) = VBA.Date
With Sheets(CStr(ListBox1))
    Rng.Copy .Range("a65000").End(xlUp).Offset(1, 0)
End With
Rng.Delete shift:=xlUp
Set Rng = Nothing
Unload Me
End Sub

A+
kjin