Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Souci dans le code

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
H

Hugues

XLDnaute Impliqué
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
 
Trier par date Trier par votes
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'


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

A+
 
Dernière modification par un modérateur:
Vote positif 0 Vote négatif
Re : Souci dans le code

Bonjour Hugues, salut Hasco,

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

Code: 
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+
 
Vote positif 0 Vote négatif
Re : Souci dans le code

Re,

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

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

A+
 
Vote positif 0 Vote négatif
Re : Souci dans le code

Re,
Hello Pierrot🙂

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

Une autre proposition sans copier coller:

Code: 
[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:

Code: 
[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+
 
Dernière modification par un modérateur:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Résolu(e)
XL 2019 colorer les différents aliments avec un code VB pour macro de ce genre ?
2
Réponses
16
Affichages
616
anthoYS
  • Résolu(e)
XL 2021 Code vba pour filtres automatiques sans le nom de l'onglet
Réponses
4
Affichages
194
sylvanu
D
  • Question Question
Microsoft 365 VBA copier cellule, conserver la copie tout en effaçant contenu
2 3
Réponses
33
Affichages
2 K
fanch55
J
  • Résolu(e)
Microsoft 365 Valeur cellule dans un macro
2
Réponses
17
Affichages
675
job75
T
  • Résolu(e)
XL 2019 Filtrer certains champs au démarrage avec vba
2
Réponses
15
Affichages
1 K
telemarrk
T
W
  • Résolu(e)
XL 2019 Cacher le signe de retour à la ligne dans une ListBox d'Userform
Réponses
5
Affichages
203
Webperegrino
W
  • Résolu(e)
XL 2019 Définition des fonctions volatiles et propriété Saved
Réponses
13
Affichages
402
job75
N
  • Question Question
XL 2013 Utilisé deux CommandButton_Click dans la même feuil
Réponses
4
Affichages
429
patricktoulon
U
  • Question Question
Autres RÉSOLU ma macro ne fonctionne pas
Réponses
3
Affichages
268
un internaute
U
Y
  • Résolu(e)
XL 2019 Compter le nb de Fichier dans un dossier afin de créer une nouvelle version
Réponses
2
Affichages
543
youguybass
Y
J
  • Résolu(e)
Microsoft 365 Première cellule vide ou égal zéros dans une plage définie
Réponses
11
Affichages
455
juju91
J
  • Résolu(e)
XL 2016 Excel code vba motus
Réponses
11
Affichages
672
papychat1
L
  • Question Question
XL 2016 Enregistrer une zone dans un PDF
Réponses
2
Affichages
392
patricktoulon
G
  • Question Question
XL 2021 Macro pour changer les titres de fichier d'archive
Réponses
3
Affichages
699
fanch55
Capturer et imprimer ou exporter en pdf un userform
Réponses
4
Affichages
611
PHV62
P
  • Résolu(e)
XL 2021 Bug dans code vba
Réponses
8
Affichages
816
thunder23
E
  • Résolu(e)
Microsoft 365 Combobox ajouter si n'existe pas dans Liste
2 3 4
Réponses
47
Affichages
3 K
cathodique
B
  • Question Question
Autres excel vba --> sauvegarder le dessin d'une feuille sur le disque dur
Réponses
2
Affichages
262
bernard_metz
B
  • Résolu(e)
XL 2016 problème au niveau d'un contrôle dans VBA
Réponses
2
Affichages
578
chinel
M
  • Question Question
XL 2013 MACRO VBA pour imprimer tous les bulletins d'un établissement scolaire
Réponses
4
Affichages
805
MBEPID
M
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…