Copie au double clic

[Albatros]

Bonjour,

Petit soucis sur mon double clic de cellule.

Je souhaite qu'il recopie certaines cellules dans une autre feuille, j'arrive a faire une partie de la procédure, mais en réalité il n'en fait qu'a sa tête rien que pour m'embêter !!!

Les explications dans le fichier joint se sera plus clair.

Très bon week-end de Pâques à tous.

 

[Mytå]

Re : Copie au double clic

Salut le forum

Range("D" & Target.Row).Copy
Sheets("Rappel").Range("D35").PasteSpecial Paste:=xlPasteValues
Range("G" & Target.Row).Copy
Sheets("Rappel").Range("D37").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False

Devrait convenir

Mytå

 

[Albatros]

Re : Copie au double clic

Merci Beaucoup Mytå

A toi il fait tout ce que tu lui demande...c'est du favoritisme

Me reste néanmoins le problème pour la ligne "Bibi" facture numéro 509
en D37 j'ai besoin qu'il fasse le total de ce qui a été encaissé tu comprends !

 

[Mytå]

Re : Copie au double clic

Re Albatros

Une version modifiée

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 
Dim Montant As Double
Dim Total As Double
Dim Ligne As Integer
 
If Not Application.Intersect(Target, Range("M8:M1000")) Is Nothing Then
If Target = "" Then Target = Date Else Exit Sub
Montant = 0: Total = 0
For Ligne = 1 To Range("A65535").End(3).Row
  If Cells(Ligne, 1) = Cells(Target.Row, 1) And _
        Cells(Ligne, 2) = Cells(Target.Row, 2) Then
    Montant = Montant + Cells(Ligne, 7)
    Total = Total + Cells(Ligne, 4)
  End If
Next Ligne
 
Sheets("Rappel").Range("D35") = Total
Sheets("Rappel").Range("D37") = Montant
Sheets("Rappel").Activate
 
End If
End Sub

Mytå

 

[Compte Supprimé 979]

Re : Copie au double clic

Bonsoir,

Oups, Myta à été plus rapide...

Mais voilà quand même ton fichier modifié, peut-être plus simple dans le code

Et le code modifié

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim I, LigEnCours As Integer
Dim TotEnc As Single, NumFac As String, NewNum As String
[COLOR=seagreen]'Sheets("Factures").Activate PAS NECESSAIRE[/COLOR]
If Target.Column <> 13 Or Target.Row = 1 Then Exit Sub
[COLOR=seagreen]' Inscrit la date du jour si rien dans la cellule[/COLOR]
If Target = "" Then Target = Date
Cancel = True
[COLOR=seagreen]' Récupère le numéro de la Ligne en Cours[/COLOR]
LigEnCours = Target.Row
[COLOR=seagreen]' Récupère le numéro de la facture[/COLOR]
NumFac = Range("A" & LigEnCours).Value: NewNum = NumFac
[COLOR=seagreen]' Inscrit le montant de la facture dans la cellule D35 de la feuille "Rappel"[/COLOR]
[COLOR=seagreen]' Pour moi, MIEUX QUE COPIE/COLLER[/COLOR]
Sheets("Rappel").Range("D35").Value = Range("D" & LigEnCours).Value
[COLOR=seagreen]' Met le montant Total Encaissement à ZERO[/COLOR]
TocEnc = 0
[COLOR=seagreen]' Tant que le numéro de la facture = le nouveau numéro récupéré[/COLOR]
Do While NewNum = NumFac
  [COLOR=seagreen]' Additionne les encaissements[/COLOR]
  TotEnc = TotEnc + Range("G" & LigEnCours).Value
  [COLOR=seagreen]' Passe à la ligne du dessous[/COLOR]
  LigEnCours = LigEnCours + 1
  [COLOR=seagreen]' Récupère le numéro de facture de la ligne[/COLOR]
  NewNum = Range("A" & LigEnCours).Value
Loop
[COLOR=seagreen]' Une fois tout terminé, inscrit le montant encaissé[/COLOR]
Sheets("Rappel").Range("D37").Value = TotEnc
Sheets("Rappel").Activate
End Sub

 

[Albatros]

Re : Copie au double clic

Je pensais qu'il n'y avait peut-être pas de solution et était prête a dire que je n'était pas forcément folle amoureuse de mon double clic et que je pouvais envisager une autre possibilité.

Et me voilà avec deux solutions qui vont aussi bien l'une que l'autre, et j'ai même les explications offertes (ce qui m'aide vraiment beaucoup).

Merci infiniment Mytå et BrunoM45 c'est très sympa !

 

[Bebere]

Re : Copie au double clic

bonsoir Albatros,Myrta
la soirée étant calme et pour éclaircir les idées une autre réponse
bonne cocogne(fête de Pâques)
à bientôt

 

[Albatros]

Re : Copie au double clic

Bonjour Bebere,
c'est grace à lui qui connait très bien mon fichier qu'il est utilisable aujourd'hui (mon fichier pas Bebere) .

Tu vois moi qui pensait avoir totalement terminé j'avais oublié la fonction Rappel.


Depuis que j'ai créer cette feuille rappel Excel me génère une erreur !
C'est à dire qu'il m'affiche la fenêtre :
"Excel a rencontrer une erreur ect..." avec demande de récupération du fichier.

Ceci donc seulement depuis que j'ai créer cette feuille rappel (il n'y a rien dans cette feuille au niveau codes) mais ce problème était déjà avant que Myrta et Bruno ne me propose leur codes, c'est idem avec le tiens.

Cela ne se produit que sur mon classeur et pas sur le classeur test que j'ai placé ici !! Et seulement depuis que j'ai créer cette feuille rappel !!!

Et je n'ai ce problème que si j'active cette procédure de rappel avec le double clic, j'enregistre ensuite la feuille rappel dans un dossier et lorsque je veux fermer mon classeur....j'ai cette fichue fenêtre de rapport d'erreur qui me saute dessus......dont le rapport ne me parle pas beaucoup en réalité.

De quel côté est-ce que je dois chercher pour comprendre ce problème là ??

Dans le menu Débogage j'ai fait "compiler VBAproject" et tout va bien il ne s'arrête nul part.
Est-ce que je vais devoir vivre avec cette fenêtre d'erreur ???

 

[wilfried_42]

Re : Copie au double clic

bonjour albatros

as tu des procedures workbook_beforeclose
desactivate, etc.......

style deprotection de feuille ou reaffichage de barre de menu

 

[Albatros]

Re : Copie au double clic

Bonjour wilfried

non pas le plus petit workbook_beforeclose

j'ai un Private Sub Workbook_Open()
sur une feuille précise mais jamais eu de problème avec ça !

pas de protection deprotection ni reaffichage.

Il y a un rapport direct avec cette dernière feuille que j'ai créer...enfin un rapport direct avec l'histoire du double clic...peut-être sur l'enregistrement de la feuille mais j'utilise cette façon d'enregistrer sur plusieurs autres feuilles de ce classeur sans me prendre un retour de manivelle pour autant.

Option Explicit

Private Sub OKenregistreRappel_Click()
' on va ENREGISTRER le rappel dans le dossier Rappels

Dim NomFichier As String
Sheets(Array("Rappel")).Copy
Dim Nom As String
Dim Chemin As String
Dim numero As String * 8
With Sheets("Rappel")
Nom = .Range("J2") & " RAPPEL du " & Day(.Range("D2")) & _
"." & Format(Month(.Range("D2")), "00") _
& "." & Year(.Range("D2")) & " " & .Range("B12") & " .xls"
End With
ActiveWorkbook.SaveAs ActiveWorkbook.Path & "\Facturation Cabinet\Rappels\" & Nom

'efface images
ActiveSheet.DrawingObjects.Select
Selection.Delete
Unload ENREGISTRERAPPEL

End Sub

J'ai revérifié 62 fois le nom du dossier d'enregistrement et nom de la feuille sont corrects !!

Je n'arrive pas a détecter ce qui génère l'erreur ??

 

[wilfried_42]

Re : Copie au double clic

re:

tu travailles sur une USF ? pourquoi ce Unload sinon

 

[Albatros]

Re : Copie au double clic

oui c'est sur un USF, je me retrouve devant la feuille enregistrée (et c'est ce que je veux) mais n'ai plus besoin du USF sous le nez.



Est-ce que de réinstaller Office pourrait rétablir les choses ?

Tu n'as qu'a essayer Albatros et tu verras bien !

Ah bon, d'accord !

mais je n'y crois pas trop.

 

[wilfried_42]

Re : Copie au double clic

re:

essaye de le porter sur le site ou sur une autre machine, pour voir si c'est un probleme qui se repercute ailleur, si oui, cela vient du programme sinon, d'excel ou de la machine lol

 

[Albatros]

Re : Copie au double clic

Je vais essayer sur une autre machine, pourrais pas avant demain.


C'est horrible d'arriver enfin au bout d'un énorme boulot et d'avoir ce genre de plaisanterie là.
Moi qui commencais enfin a faire autre chose et ne plus faire de double clic sur le bouton de l'ascenseur.

 

[Compte Supprimé 979]

Re : Copie au double clic

Salut Albatros,

Si dans ton Workbook_Open() tu as : Unload ENREGISTRERAPPEL

Ou est ton Load ENREGISTRERAPPEL ?

A mon avis si tu fais un UNLOAD sans un LOAD, il risque d'y avoir des soucis effectivement.

A+