Probleme macro sélection cellule + copie à la suite

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion arnaudbu
  • Date de début Date de début

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
A

arnaudbu

XLDnaute Occasionnel
Bonjour,

J'aimerais sélectionner: la case actuelle + les 4 cases à droite et les copier à la suite sur une autre feuille. J'ai fait ce code mais cela ne fonctionne pas.

Quelq'un pourrait -il m'aider ?

Code: 
ActiveCell(3, 3).Select
Selection.Copy
Sheets("Suivi_Actions").Select
Cells(Range("A65536").End(xlUp).Row + 1, 1).Select
ActiveSheet.Paste

Merci
 
Trier par date Trier par votes
Re : Probleme macro sélection cellule + copie à la suite

Bonjour Arnaudbu,

ActiveCell(3, 3) n'a pas de sens en VBA.

Il faut écrire soit Cells(3, 3).Select soit ActiveCell.Select.

Edition : bon, je n'avais pas tout lu, écrivez donc au début :

Range(ActiveCell, ActiveCell.Offset(0, 4)).Select

A+
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Probleme macro sélection cellule + copie à la suite

Bonjour Arnaud, Job

une autre solution, en une seule instruction, sans les "select", rarement utilies en vba :

Code: 
Sheets("nomdelafeuillesource").Range(ActiveCell, ActiveCell.Offset(0, 4)).Copy _
    Destination:=Sheets("Suivi_Actions").Range("A65536").End(xlUp).Offset(1, 0)

bon après midi
@+
 
Vote positif 0 Vote négatif
Re : Probleme macro sélection cellule + copie à la suite

Re

pour uniquement les valeurs, essaye comme suit (non testé) :

Code: 
With Sheets("Suivi_Actions")
    .Range(.Range("A65536").End(xlUp).Offset(1, 0), .Range("A65536").End(xlUp).Offset(1, 4)).Value = _
        Sheets("nomdelafeuillesource").Range(ActiveCell, ActiveCell.Offset(0, 4)).Value
End With

bonne soirée
@+
 
Vote positif 0 Vote négatif
Re : Probleme macro sélection cellule + copie à la suite

Re

valeur + mise enforme :

Code: 
Sheets("nomdelafeuillesource").Range(ActiveCell, ActiveCell.Offset(0, 4)).Copy _
    Destination:=Sheets("Suivi_Actions").Range("A65536").End(xlUp).Offset(1, 0)
With Sheets("Suivi_Actions")
    .Range(.Range("A65536").End(xlUp).Offset(0, 0), .Range("A65536").End(xlUp).Offset(0, 4)).Value = _
    .Range(.Range("A65536").End(xlUp).Offset(0, 0), .Range("A65536").End(xlUp).Offset(0, 4)).Value
End With

non testé...

@+
 
Vote positif 0 Vote négatif
Re : Probleme macro sélection cellule + copie à la suite

Bonsoir à tous


Valeurs et mise en forme
(changer le nom des feuilles)

J'ai adopté cette syntaxe pour la commodité de lecture du code VBA
Code: 
Option Explicit

Sub test()
Dim rs As Range, rd As Range
With Sheets(1)
    Set rs = .Range(ActiveCell, ActiveCell.Offset(0, 4))
    Set rd = Sheets(2).Range("A65536").End(xlUp).Offset(1, 0)
    rs.Copy
    rd.PasteSpecial xlValues
    rd.PasteSpecial xlFormats
   End With
Application.CutCopyMode = False
End Sub
 
Vote positif 0 Vote négatif
Re : Probleme macro sélection cellule + copie à la suite

Chez moi a la maison pas de problème. Au travail j'ai cette erreur:

Erreur d'execution 1004
La methode PasteSpecial de la classe Range a echoué

Excel 2002 SP3 sur les deux postes

Une idée ?
 
Vote positif 0 Vote négatif
Re : Probleme macro sélection cellule + copie à la suite

Re

Normalement
Sheets(1), Sheets(2) indiquent que le classeur contient une feuille d'index 1
et une feuille d'index 2

Essaye en indiquant le nom des feuilles

Si les feuilles se nomment Feuil1 et Feuil2 , modifie ainsi
Code: 
Option Explicit

Sub test()
Dim rs As Range, rd As Range
With Sheets([COLOR="Red"]"Feuil1"[/COLOR])
    Set rs = .Range(ActiveCell, ActiveCell.Offset(0, 4))
    Set rd = Sheets([COLOR="Red"]"Feuil2"[/COLOR]).Range("A65536").End(xlUp).Offset(1, 0)
    rs.Copy
    rd.PasteSpecial xlValues
    rd.PasteSpecial xlFormats
   End With
Application.CutCopyMode = False
End Sub
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Probleme macro sélection cellule + copie à la suite

Code: 
Sub archivage()

If ActiveCell.Column < 9 Or ActiveCell.Column > 9 Then
MSG = MsgBox("Veuillez sélectionner une case dans la Colonne 'Com'", vbCritical, "Attention")
Exit Sub

ElseIf ActiveCell.Row < 10 Or ActiveCell.Row > 32 Then
MSG = MsgBox("Rien à selectionner dans cette partie de la feuille", vbCritical, "Attention")
Exit Sub

Else
    
Dim rs As Range, rd As Range
With Sheets("Rapport")
    Set rs = .Range(ActiveCell, ActiveCell.Offset(0, 6))
    Set rd = Sheets("Suivi_Actions").Range("A65536").End(xlUp).Offset(1, 0)
    rs.Copy
    rd.PasteSpecial xlFormats
    rd.PasteSpecial xlValues
   End With
Application.CutCopyMode = False
    
Sheets("Suivi_Actions").Select

Cells(Range("A65536").End(xlUp).Row - 0, 1).Select

Range(ActiveCell, ActiveCell.Offset(0, 6)).Select

Selection.Borders(xlDiagonalDown).LineStyle = xlNone
   Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With

End If

End Sub
 
Vote positif 0 Vote négatif
Re : Probleme macro sélection cellule + copie à la suite

Re


Houla!


Si tu mélanges du code VBA qui essaie de limiter au maximum les Selection

et du code plein de Select, ça va faire des étincelles.

Ps: Les Dim se mettent toujours en, début de code
 
Vote positif 0 Vote négatif
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

arck
  • Résolu(e)
XL 2019 macro avec fonction copié coller si rempli par la macro
Réponses
12
Affichages
658
AtTheOne
AtTheOne
T
  • Question Question
XL 2013 Impression, choix de feuilles et nombre de copie
Réponses
11
Affichages
800
AtTheOne
AtTheOne
N
  • Question Question
XL 2013 Utilisé deux CommandButton_Click dans la même feuil
Réponses
4
Affichages
437
patricktoulon
patricktoulon
D
  • Question Question
XL 2019 Boucle For Next and select case
Réponses
2
Affichages
260
dadaze
D
S
  • Résolu(e)
Microsoft 365 VBA Concaténer contenu de plusieurs cellules dans une seule avec séparateurs / évolutifs
Réponses
3
Affichages
641
spike29
S
A
  • Question Question
XL 2019 Copie d'une valeur dans la cellule à côté d'une valeur trouvé
Réponses
1
Affichages
598
sylvanu
sylvanu
piga25
  • Résolu(e)
XL 2016 En VBA, Automatiser la réponse en fonction de l'état d'une cellule.
Réponses
7
Affichages
902
piga25
piga25
N
  • Résolu(e)
XL 2021 comment faire recherche dans une colonne et ligne
Réponses
5
Affichages
737
job75
job75
B
  • Question Question
XL 2013 Comment trier les nom des feuilles et fusionner leur tableaux dans une une autre feuille ?
Réponses
10
Affichages
1 K
Compte Supprimé 979
C
M
  • Question Question
Microsoft 365 Copier / coller avec mise en forme VBA
Réponses
0
Affichages
956
marie3107
M
Lu76Fer
XLS : Evènements souris 'click' sur la grille & astuces
Réponses
3
Affichages
706
Lu76Fer
Lu76Fer
K
  • Résolu(e)
XL 2019 Copie de la dernière ligne avec la mise en forme et formules
Réponses
6
Affichages
933
Kev1407
K
Usine à gaz
  • Résolu(e)
XL 2021 Affecter la valeur "ok" en colonne "F" uniquement sur les lignes visibles
Réponses
6
Affichages
710
Usine à gaz
Usine à gaz
Usine à gaz
  • Résolu(e)
XL 2021 Filtrage que je ne parviens pas à faire
Réponses
6
Affichages
793
Usine à gaz
Usine à gaz
V
  • Résolu(e)
XL 2016 Facturier : Retour à la ligne sur la facture
2
Réponses
19
Affichages
2 K
Vermithor
V
Dadi147
  • Question Question
XL 2016 Copier les colonnes lors de la sélection dans la Chechbox
Réponses
7
Affichages
596
xUpsilon
xUpsilon
C
Excel : Fusionner des cellules en conservant le contenu et la police des cellules à fusionner
Réponses
5
Affichages
944
crocrocro
C
P
  • Résolu(e)
Microsoft 365 Erreur d'exécution "9" :L'indice n'appartient pas à la sélection
Réponses
9
Affichages
2 K
pelerin65
P
V
  • Résolu(e)
XL 2016 Exportation au format PDF à l'aide d'une macro : erreur 1004 'Document non enregistré'
Réponses
14
Affichages
1 K
Phil69970
Phil69970
A
  • Question Question
Microsoft 365 boucle macro pour importer des données
2
Réponses
16
Affichages
2 K
Arnaud Legay
A
Retour