VBA Copie et mise en page

mercant76 à dit:

bonsoir,

au lieu de faire deux demandes à peu près identiques, postes plutôt une partie de ton fichier en expliquant ce que tu veux.

@+

Cliquez pour agrandir...

Arpette à dit:

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.

Cliquez pour agrandir...

Arpette à dit:

Quelqu'un aurait-il une idée.
Merci

Cliquez pour agrandir...

Arpette à dit:

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.

Cliquez pour agrandir...

Arpette à dit:

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.

Cliquez pour agrandir...

Arpette à dit:

Bonjour à tous, personne pour m'aider

Cliquez pour agrandir...

Arpette à dit:

Bonsoir à tous, toujour personne pour m'aider

Cliquez pour agrandir...