Re : VBA Copie et mise en page
Bonsoir le forum,
J'ai besoin d'aide concernant un copiage et une mise en page. J'ai dans une feuille 2 une liste de noms que je modifie en ajoutant et supprimant des lignes.
Je souhaite copier cette liste dans la feuille 1 en cellule A3. Bien entendu je supprime tout avant de coller. Ensuite je veux faire une mise en page de cette feuille 1 cellule A1 à x et colonne A à R
Merci pour votre aide.
Bonsoir à tous,
je reformule ma demande en changeant quelques requètes. Voici ma macro qui fonctionne bien, mais j'aimerais ce que je fais sur la feuille "Relevé_Hebdo" s'applique sur la feuille "Relevé_Journalier" sans l'adresse, juste le nom.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Worksheets("Relevé_Hebdo").Unprotect
If Not Application.Intersect(Target, Range("A1:A65000")) Is Nothing Then
Cancel = True
Rows(Target.Row).Copy
Rows(Target.Row).Insert Shift:=xlDown
Range(Cells(Target.Row, 1), Cells(Target.Row, 12)).ClearContents
AX = InputBox("Merci de renseigner le Nom et le Prénom")
BX = InputBox("Merci de renseigner l'adresse")
Cells(Target.Row, 1) = AX
Cells(Target.Row, 2) = BX
Sheets("Relevé_Journalier").Select
[
COLOR="Red"]C'est ici que j'ai un problème
Application.CutCopyMode = False, la structure est la même sauf que je n'ai pas besoin de l'adresse.
[/COLOR]
End If
Worksheets("Relevé_Hebdo").Protect
End Sub
Je vous joints mon fichier
Merci de votre aide.