Macro double clic

[tactic6]

Macro double clic [Résolu]

Bonjour le forum et tous les autres

Voici mon nouveau dilemme
je voudrais qu'en double cliquant sur une référence article celle ci va directement se mettre à la première ligne disponible sur ma facture
j'ai essayé avec ce code mais ça ne le fait pas ??

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
Dim rang As Long, mysh As Object, nomcl As Long
Cancel = True
Set mysh = Sheets("Articles")
If Target.Column = 1 Then 'double click dans la 1er colonne
    With Sheets("Facture") 
        rang = .Range("B53").End(xlUp).Row + 1 
        .Cells(rang, 1) = mysh.Cells(Target.Row, 13) 
    End With
End If
Set mysh = Nothing 'vide la variable
MsgBox "Copie effectue !"
End Sub

Pourriez vous m'aider svp ma liste définitive articles contient environ 4000 références

Merci

 

[ninbihan]

Re : Macro double clic

Bonjour,

essaies avec ceci:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
Dim rang As Long, mysh As Object, nomcl As Long
Cancel = True
Set mysh = Sheets("Articles")
If Target.Column = 1 Then 'double click dans la 1er colonne
    With Sheets("Facture")
        rang = .Range("B53").End(xlUp).Row + 1
        .Cells(rang, 2) = mysh.Cells(Target.Row, 1)
    End With
End If
Set mysh = Nothing 'vide la variable
MsgBox "Copie effectue !"
End Sub

Bon aprés midi,

Ninbihan

 

[BERRACHED said]

Re : Macro double clic

Salut tous le Monde
j'ai rajouter au code proposé une ligne qui transfere aussi le Libelle

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
Dim rang As Long, mysh As Object, nomcl As Long
Cancel = True
Set mysh = Sheets("Articles")
If Target.Column = 1 Then 'double click dans la 1er colonne
    With Sheets("Facture")
        rang = .Range("B53").End(xlUp).Row + 1
        .Cells(rang, 2) = mysh.Cells(Target.Row, 1)
        .Cells(rang, 3) = mysh.Cells(Target.Row, 2)
    End With
End If
Set mysh = Nothing 'vide la variable
MsgBox "Copie effectue !"
End Sub

Cordialement

 

[Excel_lent]

Re : Macro double clic

autocensure

 

[tactic6]

Re : Macro double clic

Merci a tous
je fais mes essais

 

[tactic6]

Re : Macro double clic

Re à tous
ça marche super bien sauf que si j'écris un commentaire dans la colonne designation la macro ne repere pas mon ecriture et réécrit par dessus
on peut trouver une pararde ou dois-je obligatoirement y ajouter une reference a mon commentaire ?

en meme temps pourriez vous me commenter pour comprendre et extrapoler dans une autre macro les lignes:
.Cells(rang, 2) = Target
.Cells(rang, 3) = Target.Offset(0, 1)
.Cells(rang, 9) = Target.Offset(0, 3)

merci

 

[tactic6]

Re : Macro double clic

Bonjour le forum et tous les autres

je n'arrive pas a comprendre comment marche cette macro
j'ai compris que .cell(2.1) correspond à la colonne B et la ligne A
mais malgré tout je n'arrive pas à utiliser cette formule pour une autre application

exemple tout simple modifier la macro pour avoir uniquement que la ref en C12
et bien j'y arrive pas !!!

voici le code que j'ai testé:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
Dim rang As Long 
Cancel = True
If Target.Column = 1 Then 'double click dans la 1er colonne
    With Sheets("Facture")
        .Cells(3, 12) = Target
        
    End With
End If
MsgBox "Copie effectue !"
End Sub

D'où vient mon erreur ???

 

[tactic6]

Re : Macro double clic

oups !!

j'ai trouvé inversion ici .Cells(3, 12) = Target

Depuis hier soir que je cherche Pffffffffff alors que c'était tout bete
hi hi hi

 

[tactic6]

Re : Macro double clic

Re tout le monde
sur ce code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
Dim rang As Long, mysh As Object, nomcl As Long
Cancel = True
Set mysh = Sheets("Articles")
If Target.Column = 1 Then 'double click dans la 1er colonne
    With Sheets("Facture")
        rang = .Range("B53").End(xlUp).Row + 1
        .Cells(rang, 2) = mysh.Cells(Target.Row, 1)
        .Cells(rang, 3) = mysh.Cells(Target.Row, 2)
    End With
End If
Set mysh = Nothing 'vide la variable
MsgBox "Copie effectue !"
End Sub

où est la ligne qui detecte la 1° cellule B vide ?
je voudrais y mettre la C

j'ai essayé rang = .Range("C53").End(xlUp).Row + 1
mais ça marche pas ?
SVP
merci


@Excel_lent
pourquoi tu as autocensuré ton post c'était le plus complet ???

 

[Compte Supprimé 979]

Re : Macro double clic

Salut Tactic6,

En général on met plutôt :

rang = .Range("C" & Rows.Count).End(xlUp).Row + 1

Mais, pour cela il ne faut pas de ligne total ou autre dans ta feuille

A+

 

[tactic6]

Re : Macro double clic

merci de me répondre mais si je remplace

rang = .Range("B53").End(xlUp).Row + 1

par

rang = .Range("C" & Rows.Count).End(xlUp).Row + 1

il ne se passe aucun transfert ???

je dois peut être préciser que C et D sont fusionnées peut être ça pose problème

 

[skoobi]

Re : Macro double clic

Bonsoir tactic6, Bruno, le forum,

sauf erreur de ma part, les cellules fusionnées n'empêche pas de trouver la dernière ligne vide d'une colonne à condition que la recherche se face sur la colonne la plus à gauche de la plage fusionnée, ce qui est ton cas.
La raison doit être autre, exécute la macro en pas à pas dans un module pour voir ce qui se passe.

 

[tactic6]

Re : Macro double clic

Merci
pas à pas impossible

 

[skoobi]

Re : Macro double clic

Re,
tu dois transférer le code dans un module, effectivement, le pas à pas ne marche pas dans une macro événementielle.

 

[tactic6]

Re : Macro double clic

Re tout le monde
module crée mais comment exécuter le pas a pas ??