C
courtillon
Guest
Bonjour à tous et toutes,
J'ai ce soir, 2 demandes d'aide.
1/Ma feuille 4 étant ma feuille 'Menu ' j'ai ce code pour que mon classeur s'ouvre automatiquement sur elle en premier:
Private Sub Workbook_Open()
Feuil4.Select
End Sub
Je voudrais rajouter aussi un code pour que toutes mes autres feuilles s'ouvrent en CELLULE A1 de facon à voir ma feuille x ou y entierement visibles dés l'ouverture.
2/Sur cet autre code je voudrais rajouter une ligne de façon aprés recopie des données que la ligne source A5:J5 s'éfface:
Sub recopie_des_données()
Dim WsSource As Worksheet
Dim WsCible As Worksheet
Dim MaLigneSource As Range
Dim MaligneCible As Range
Dim derlgn As Integer
Set WsSource = Worksheets('client')
Set WsCible = Worksheets('Gestion Client')
Set MaLigneSource = WsSource.Range('A5:J5')
With WsCible
derlgn = .Range('A3000').End(xlUp).Row + 1
Set MaligneCible = .Range(.Cells(derlgn, 1), .Cells(derlgn, 10))
MaligneCible = MaLigneSource.Value
'''''ici peut être AVEC : Sheets('Client').[A5:J5].ClearContents
End With
End sub
Merci de votre aide qui par ailleurs m'a déja bien fait avancé dans mon projet
J'ai ce soir, 2 demandes d'aide.
1/Ma feuille 4 étant ma feuille 'Menu ' j'ai ce code pour que mon classeur s'ouvre automatiquement sur elle en premier:
Private Sub Workbook_Open()
Feuil4.Select
End Sub
Je voudrais rajouter aussi un code pour que toutes mes autres feuilles s'ouvrent en CELLULE A1 de facon à voir ma feuille x ou y entierement visibles dés l'ouverture.
2/Sur cet autre code je voudrais rajouter une ligne de façon aprés recopie des données que la ligne source A5:J5 s'éfface:
Sub recopie_des_données()
Dim WsSource As Worksheet
Dim WsCible As Worksheet
Dim MaLigneSource As Range
Dim MaligneCible As Range
Dim derlgn As Integer
Set WsSource = Worksheets('client')
Set WsCible = Worksheets('Gestion Client')
Set MaLigneSource = WsSource.Range('A5:J5')
With WsCible
derlgn = .Range('A3000').End(xlUp).Row + 1
Set MaligneCible = .Range(.Cells(derlgn, 1), .Cells(derlgn, 10))
MaligneCible = MaLigneSource.Value
'''''ici peut être AVEC : Sheets('Client').[A5:J5].ClearContents
End With
End sub
Merci de votre aide qui par ailleurs m'a déja bien fait avancé dans mon projet