Double Click sur cellule

[Alyre]

Bonsoir le forum

une petite question niaiseuse pour les pro.,

j'ai une colonnes de A1 a A312 dans feuil1, qui contien des donner.
ce que je voudrais faire, ca serais un double click sur une cellule aux choix
entre A1 et A312.

et qu'elle transfère le contenue de la cellule que j'aurai click dessu
dans un autre feuille exemple feuil2

j'ai seulment le début de ma Sub, comme exemple


Private Sub Worksheet_BeforeDoubleClick(ByVal Value As Excel.Range, Cancel As Boolean

Merci beaucoup a l'avance

J'appréci beaucoup votre forum

@ ++ alyre

 

[Alyre]

re bonsoir
j'ai oublier de mentionner que je transfer dans la feuil2 , dènièreLignVide

Merci
A ++ alyre

 

[Mytå]

Bonsoir Alyre

Essaye ceci
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Dim position As Integer
position = Sheets("Feuil2").Range("A65535").End(xlUp).Row
If Sheets("Feuil2").Range("A1") = "" Then position = 0
If ActiveSheet.Name = "Feuil1" Then Sheets("Feuil2").Cells(position + 1, 1) = ActiveCell
End Sub

Mytå

 

[Alyre]

Bonsoir Mytâ

ca c'est du service, tres rapide merci

J'ai copier et coller, et essayer mais rien ne foctionne ,
quand je click sur une cellule la sub ne roulle pas dutout

pourtan le début de la sub que j'ai donner comme exemple roulais, mais ce que je n'arivais pas a faire c'étais de transféré sur la feuil2

est- ce que il y a autre chose qu'il faut que je fasse ?

Merci beaucoup pour l'aide

@ ++ alyre

 

[Mytå]

re Alyre

fichier en piece jointe

Mytå

 

[Alyre]

re bonsoir Myta


un gros merci , tu est génial, ça marche a 100 mille a l'heure
et en plus tu ma donner un service exceptionnel je suis de plus en plus épater par les personne comme toi qui se dévoue bénévolement, pour aider les nul comme moi hi hi

Merci encore pour le travail que tu fait

@ ++

alyre

 

[Mytå]

Re Alyre

Non ne dit pas que tu es nul

J'ai appris comme toi au debut des @$~!*&^ j'en ai fait moi aussi

C'est avec le temps que cela vient faut etre perseverant

Bonne fin de soirée Alyre et du muguet pour toi aussi

 

[Mytå]

re le forum

et je ne suis qu'un debutant j'ai encore bcp a apprendre moi aussi

demain d'autre vont surement passer et pt faire plus simple mais bon !!!

A+ Mytå

 

[Ti]

Salut à vous deux et bon 1er mai.

Tiens Myta, je me suis amusé à condenser au maximum ta formule. Comme elle ne doit réagir que dans Feuil1, il est inutile de la mettre dans Thisworkbook, il vaut mieux la placer dans Feuil1, ça évite un test inutile.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
With Target
If .Column <> 1 And .Row > 312 Then Exit Sub
End With
IIf([Feuil2].[A1] = "", [Feuil2].[A1], _
[Feuil2].[A65536].End(xlUp).Offset(1, 0)) = Target
Cancel = True
End Sub

 

[Ti]

comme ça c'est mieux :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
With Target
If .Column <> 1 And .Row > 312 Then Exit Sub
End With
With [Feuil2]
IIf(.[A1] = "", .[A1], .[A65536].End(xlUp).Offset(1, 0)) = Target
End With
Cancel = True
End Sub

 

[Alyre]

Salut Ti et le Forum

Merci beaucoup pour ta formule Ti

je vien de l'essayez et je crois qu'elle est plus rapide que c'elle de Myta, mais ce n'est pas pour déprécier c'elle de Myta, car elle fontionne tres bien aussi.

Encore une fois je vous dit 1000 fois Merci a vos d'eux, vous ètes 1000 fois meilleur que moi hi hi

@ ++++
alyre

 

[Mytå]

re Alyre

tu auras tjrs meilleur en macro que moi mais oufs faut les comprendre

moi je passe par le plus simple pour les debutants(es)

mais bon pas grave

Mytå

 

[Alyre]

re Myta

C'est vrai ce que tu dit , pour moi comme débutant c'est plus facile de comprendre ta formule

Mais j'aprécie beaucoup toutes les réponces a mes demandes car ça me fait travaillé plus fort pour comprendre

bonne fin de soiré

@ ++
alyre

 

[Mytå]

re

mais comprends tu tous; oui tu gobes tel quel

IIf(.[A1] = "", .[A1], .[A65536].End(xlUp).Offset(1, 0)) = Target

???????????? ca veux dire quoi

copier-coller cela marche mais faut le comprendre

Mytå

 

[Alyre]

re Myta

Tu me passe toute un test

Non non c'est sur que je ne comprend pas toute la formule de TI

mais c'est comme j'ai dit, je fait des grosse effort pour essayer de comprendre

pour le moment j'ai adapter ta formule a mon fichier, car elle est plus simple a comprendre

j'ai pas été franc avec vous autres, dans mon claseur ce n'est pas les feuil1 et feuil2 que j'ai ce s'ont (Canadian Price List) et (Order Form)

alors pour faire foctionner la formule il faut que je l'addope a ses nom de feuilles que j'ai , et pour moi c'est plus facile avec ta formule

@ +
alyre