× Aidez la recherche contre le COVID-19 avec votre ordi ! Rejoignez l'équipe PC Astuces Folding@home
 > Tous les forums > Forum Bureautique
 meme code pour toutes les feuilles du classeurSujet résolu
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
vieuxmonsieur
  Posté le 08/04/2013 @ 09:46 
Aller en bas de la page 
Astucien

bonjour,

je souhaiterai pouvoir utiliser ce code pour toutes les feuilles du classeur soit : mois de Jan à Dec :

'Un petit code qui, lors d'une saisie colonne A, en première ligne vide,
'ajoute systématiquement une ligne 'supplémentaire de saisie...

Private Sub Worksheet_Change(ByVal Target As Range)
Dim DernLig As Integer
Dim sht As Worksheet
If Target.Column <> 2 And Target.Count > 1 Then Exit Sub
DernLig = Range("A65536").End(xlUp).Row
If Target.Row = DernLig Then
Rows(DernLig + 1).Copy Range("A" & DernLig + 2)
Else
Rows(DernLig + 2).Delete
End If
End Sub

je vous remercie de bien vouloir m'indiquer ce que je dois changer ou modifier et de me commenter le code.

en vous souhaitant une bonne journee

Publicité
vieuxmonsieur
 Posté le 08/04/2013 à 12:59 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Dois-je obligatoirement la recopier dans toutes les feuilles ?

Anonyme
 Posté le 08/04/2013 à 13:40 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Nouvel astucien
ferrand
 Posté le 08/04/2013 à 14:06 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

Bonjour,

Elle se transpose presque identiquement, dans module ThisWorkbook :

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim DernLig As Integer
If Target.Column <> 2 And Target.Count > 1 Then Exit Sub
DernLig = Sh.Range("A65536").End(xlUp).Row
If Target.Row = DernLig Then
Sh.Rows(DernLig + 1).Copy Sh.Range("A" & DernLig + 2)
Else
Sh.Rows(DernLig + 2).Delete
End If
End Sub

vieuxmonsieur
 Posté le 08/04/2013 à 14:45 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

merci à vous ReineClaude et ferrand

en vous souhaitant une tres bonne fi de journee

Page : [1] 
Page 1 sur 1

Vous devez être connecté pour poster des messages. Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !


Les bons plans du moment PC Astuces

Tous les Bons Plans
79,99 €Casque sans fil Sony WH-CH700N Bluetooth avec réduction de bruit active à 79,99 €
Valable jusqu'au 04 Décembre

Cdiscount fait une belle vente flash sur le casque sans fil Sony WH-CH700N Bluetooth qui passe à 79,99 € livré gratuitement alors qu'on le trouve ailleurs à plus de 120 €. Ce casque sans fil rechargeable (via micro USB) offre jusqu'à 35h d'autonomie. L'AINC (Artificial Intelligence Noise Cancelling) s'adapte à votre environnement, ce qui vous permet d'éliminer les bruits indésirables lors de vos voyages ou si vous êtes avec d'autres personnes dans une même pièce. Une très bonne affaire.


> Voir l'offre
154,99 €SSD SanDisk Plus 2 To à 154,99 €
Valable jusqu'au 03 Décembre

Amazon propose actuellement le SSD SanDisk Plus 2 To à 154,99 € livré gratuitement. Une très bonne affaire pour ce SSD très fiable et performant qui offre des débits de 530 Mo/s en lecture et 445 Mo/s en écriture. Il est garanti 3 ans. On le trouve ailleurs à partir de 180 €. 


> Voir l'offre
29,90 €Routeur TP-Link Archer C6 Gigabit et Wifi double bande AC à 29,90 €
Valable jusqu'au 03 Décembre

Amazon fait une vente flash sur le routeur TP-Link Archer C6 qui passe à 29,90 € livré gratuitement. On le trouve ailleurs à partir de 40 €. Ce routeur dispose de 5 ports Ethernet Gigabit, du WiFi 802.11 AC sur 2 bandes (délivre des débits combinés allant jusqu’à 1.2Gbps). Vous pouvez le convertir en point d'accès pour partager votre réseau filaire avec d'autres appareils WiFi.


> Voir l'offre

Sujets relatifs
Protéger toutes les Feuilles en meme temps
verrouiller toutes les feuilles d'un classeur Exel
[Astuces] Même mise en forme toutes feuilles
Afficher 2 Feuilles d'un même classeur
Vérouiller toutes les feuilles d'un classeur
Affichage simultané deux feuilles même classeur
Excel 2007 Copier/Coller d’une feuille à l’autre Dans un même classeur.
Excel mémoire insuffisante pour ouvrir un nouveau classeur
copier sur plusieurs feuilles excel en meme temps
ActiveWorkbook.*** pour un classeur masqué
Plus de sujets relatifs à meme code pour toutes les feuilles du classeur
 > Tous les forums > Forum Bureautique