Souci dans le code

[Hugues]

Bonjour Le Forum

J'ai un souci dans le code suivant.
Je souhaite pour chaque onglet d'un classeur, lors de leur fermeture, faire un copier collage spécial des valeurs d'une zone.
Pour cela lors de l'ouverture de l'onglet je garde en mémoire le nom de l'onglet qui me servira pour donner les instruction lors de sa fermeture.

Ci joint le code :

Dim ws As Worksheet

Private Sub Worksheet_Activate()
ws = ActiveSheet.Name
MsgBox ("Le nom de l'onglet est : " & ws)
End Sub

Private Sub Worksheet_Deactivate()
' Détermination de la dernière cellule de la ligne 6 renseignée
dercellule = ws.Range("iv6").End(xlToLeft).Offset(-2, 0).Address
MsgBox ("La dernière cellule est : " & dercellule)


' Copiage_collage spécial de la zone recherchée
ws.Range("W4:" & dercellule).Select
Selection.Copy
ws.Range("W4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False


End Sub


Merci par avance pour l'aide,

Cordialement,

Hugues

 

[Guest]

Re : Souci dans le code

Bonjour,

Oui, et le 'soucis' il est où?

Sans doute faut-il mettre ton instruction de copiage dans le module 'thisworkBokk'

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object) 
'Sh est la feuille en cours de désactivation
End Sub

A+

 

[Hugues]

Re : Souci dans le code

Re bonjour,

J'ai une erreur d'exécution N° 91.

Ci joint le fichier .

Merci par avance,

Hugues

 

[job75]

Re : Souci dans le code

Bonjour Hugues, salut Hasco,

Pas regardé votre fichier, mais modifié les macros du post #1 :

Dim ws As Worksheet

Private Sub Worksheet_Activate()
Set ws = ActiveSheet
MsgBox ("Le nom de l'onglet est : " & ws.Name)
End Sub

Private Sub Worksheet_Deactivate()
' Détermination de la dernière cellule de la ligne 6 renseignée
dercellule = ws.Range("iv6").End(xlToLeft).Offset(-2, 0).Address
MsgBox ("La dernière cellule est : " & dercellule)


' Copiage de la zone recherchée
ws.Range("W4:" & dercellule).Copy ws.Range("W4")

End Sub

Pas trop compris l'intérêt mais maintenant au moins, ça ne bug plus partout...

A+

 

[job75]

Re : Souci dans le code

Re,

Ah oui, le collage spécial était là pour ne conserver que les valeurs, alors écrivez :

' Copiage des valeurs de la zone recherchée
ws.Range("W4:" & dercellule) = ws.Range("W4:" & dercellule).Value

A+

 

[Guest]

Re : Souci dans le code

Re,
Hello Pierrot🙂

Moi aussi je cherchais l'intérêt!

Une autre proposition sans copier coller:

[COLOR=blue]Dim[/COLOR] ws [COLOR=blue]As[/COLOR] Worksheet
[COLOR=blue]Private[/COLOR] [COLOR=blue]Sub[/COLOR] Worksheet_Activate()
    [COLOR=blue]Set[/COLOR] ws = ActiveSheet
    MsgBox ([I]"Le nom de l'onglet est : "[/I] & ws.Name)
[COLOR=blue]End[/COLOR] [COLOR=blue]Sub[/COLOR]
[COLOR=blue]Private[/COLOR] [COLOR=blue]Sub[/COLOR] Worksheet_Deactivate()
    [COLOR=blue]With[/COLOR] ws.Range([I]"W4:"[/I] & ws.Range([I]"iv6"[/I]).[COLOR=blue]End[/COLOR](xlToLeft).Offset(-2).Address)
        ws.Range([I]"W4"[/I]).Resize(, .Columns.Count).Value = .Value
    [COLOR=blue]End[/COLOR] [COLOR=blue]With[/COLOR]
[COLOR=blue]End[/COLOR] [COLOR=blue]Sub[/COLOR]

Pour toutes les feuilles du classeur mettre dans le module ThisWorkBook:

[COLOR=blue]Private[/COLOR] [COLOR=blue]Sub[/COLOR] Workbook_SheetDeactivate([COLOR=blue]ByVal[/COLOR] Sh [COLOR=blue]As[/COLOR] [COLOR=blue]Object[/COLOR])
  [COLOR=blue]With[/COLOR] Sh.Range([I]"W4:"[/I] & Sh.Range([I]"iv6"[/I]).[COLOR=blue]End[/COLOR](xlToLeft).Offset(-2).Address)
        Sh.Range([I]"W4"[/I]).Resize(, .Columns.Count).Value = .Value
  [COLOR=blue]End[/COLOR] [COLOR=blue]With[/COLOR]
[COLOR=blue]End[/COLOR] [COLOR=blue]Sub[/COLOR]

Sans plus, a part peut-être vérifier s'il existe des données.
A+

 

[job75]

Re : Souci dans le code

Re Hasco,

Hello Pierrot🙂

Là tu commences à m'inquiéter cher Hasco 🙂

A+

 

[Guest]

Re : Souci dans le code

Re,

@Job75 autant pour moi! Je m'en vais de ce pas consulter😀
Salut chez toi.