Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

macro copier coller

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion kinel
  • 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
K

kinel

XLDnaute Occasionnel
bonjour à tous

pouvez vous m'aider sur une macro copier coller que je voudrais intégrer au tableur ci-joint
les détails de ma question se trouvent dans la feuille1

Merci

Kinel
 

Pièces jointes

Trier par date Trier par votes
Re : macro copier coller

Bonjour kinel,

Code: 
Private Sub CommandButton13_Click()
Dim c As Range
ActiveCell.Activate 'ou modifier la propriété TakeFocusOnClick
If ActiveCell.Column <> 1 Or ActiveCell = "" Then Exit Sub
For Each c In Sheets("101").[C5:C16]
  If c = "" Then c = ActiveCell: Exit Sub
Next
MsgBox "Zone pleine..."
End Sub
A+
 
Vote positif 0 Vote négatif
Re : macro copier coller

bonjour à tous
particulièrement à Job75 s'il reçoit ce message

dans ce code qui fonctionne très bien, je voudrai ajouter un copier de la cellule se trouvant sur la même ligne en colonne C
pour la copier sur la même ligne en colonne E de la feuille 101

j'ai bien essayé quelques modif mais je n'ai pas le niveau pour arriver au but

merci de votre aide

Kinel
 
Vote positif 0 Vote négatif
Re : macro copier coller

Bonjour kinel,

kinel à dit:
j'ai bien essayé quelques modif mais je n'ai pas le niveau pour arriver au but
Cliquez pour agrandir...

Vous vous sous-estimez :

Code: 
Private Sub CommandButton13_Click()
Dim c As Range
ActiveCell.Activate 'ou modifier la propriété TakeFocusOnClick
If ActiveCell.Column > 1 Or ActiveCell = "" Then Exit Sub
For Each c In Sheets("101").[C5:C16]
  If c = "" Then
    c = ActiveCell
    c(1, 3) = ActiveCell(1, 3) 'colonne C => E
    Exit Sub
  End If
Next
MsgBox "Zone pleine..."
End Sub
A+
 
Vote positif 0 Vote négatif
Re : macro copier coller

cette fois ça fonctionne mais j'ai un autre souci

la commande renvoie à la feuille 101 hors je vais devoir créer une soixantaine de feuilles de ce type
le but étant de renvoyer la copie vers la dernière feuille ouverte
un peu comme la commande retour que vous aviez suggéré sur un autre post et que j'ai intégrée à l'exemple
 
Vote positif 0 Vote négatif
Re : macro copier coller

merci pour cette réponse

ça se complique !

les feuilles suivantes seront exactement de même nature, juste quelques contenus de cellules qui seront différents
chacune des feuilles suivantes de 101 à 131 (voire plus) seront complétées par les codes choisis de la feuille CSARR qui contient le CommandButton13_Click en question
je pourrais bien sur copier le contenu de la feuille CSARR sur chacune des feuilles 101 ..... ou encore créer une feuille CSARR pour chaque feuille 101... mais ça deviendrait un fichier énorme

le code du CommandButton13_Click ne peut il pas se servir de la variable Public o pour placer les codes choisis ?

merci de votre réponse

Kinel
 
Vote positif 0 Vote négatif
Re : macro copier coller

Bonjour à tous

j'ai bien essayé ce code:

Private Sub CommandButton13_Click()
Dim c As Range
ActiveCell.Activate 'ou modifier la propriété TakeFocusOnClick
If ActiveCell.Column <> 1 Or ActiveCell = "" Then Exit Sub
o.Activate 'renvoit bien vers la feuille précédente
For Each c In [C5:C16]
If c = "" Then c = ActiveCell: Exit Sub
Next
MsgBox "Zone pleine..."
End Sub

mais une fois la dernière feuille affichée on dirait que la commande s'arrête
je n'ai pas de message d'erreur mais la copie en C5:C16 ne se fait pas

merci de votre aide

kinel
 
Vote positif 0 Vote négatif
Re : macro copier coller

Bonjour kinel,

Code: 
Private Sub CommandButton13_Click()
 Dim c As Range
 ActiveCell.Activate 'ou modifier la propriété TakeFocusOnClick
 If ActiveCell.Column > 1 Or ActiveCell = "" Then Exit Sub
 For Each c In o.[C5:C16]
 If c = "" Then c = ActiveCell: Exit Sub
 Next
 MsgBox "Zone pleine..."
 End Sub
La macro est dans la feuille du bouton donc pour la plage il faut préciser qu'il s'agit de la feuille o.

Il n'est pas nécessaire d'activer o.

A+
 
Vote positif 0 Vote négatif
Re : macro copier coller

RE

juste encore une petite question

est il possible, une fois la copie réalisée, de revenir automatiquement sur la feuille o ?
j'ai bien essayé le o.activate à divers endroits du code mais sans résultat

Kinel
 
Vote positif 0 Vote négatif
Re : macro copier coller

salut

je laisse le soin à Job (si... perfectionniste 😉) de modifier son code.
Tu peux essayer
Code: 
'Dans Thisworkbook
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
  Set o = Sh
End Sub

'sans oublier dans un module standard
Public o As Worksheet

'dans la page de code de la feuille CSARR
Private Sub CommandButton13_Click()
  Dim L As Byte
  If ActiveCell.Column > 1 Or ActiveCell = "" Then Exit Sub
  'mais il doit y avoir d'autres exceptions !
  Do
    If o.Cells(5 + L, 3) = "" Then o.Cells(5 + L, 3) = ActiveCell: Exit Do
    L = L + 1
  Loop While L < 12
  If L = 12 Then MsgBox "zone complète !", vbCritical, "plus de copies..."
  o.Select
End Sub
 
Dernière édition:
Vote positif 0 Vote négatif
Re : macro copier coller

bonjour
mer"Si..." pour cette proposition qui fonctionne bien

j'avais juste oublié dans mon exemple de code qu'il me fallait aussi copier la cellule de la colonne D de la même ligne
donc copier A et D de la feuille CSARR
coller en C et E de la feuille "o"
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
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

B
  • Question Question
XL 2021 création macro
Réponses
7
Affichages
356
dysorthographie
B
  • Question Question
XL 2016 Macro "Double-clic + Entrée"
2
Réponses
16
Affichages
399
job75
I
  • Résolu(e)
Microsoft 365 Transformer un export de données
2
Réponses
27
Affichages
812
Ines99
I
F
  • Question Question
XL 2016 [VBA] Coller du texte sans formatage
Réponses
8
Affichages
199
F22Raptor
F
  • Résolu(e)
XL 2019 copier des valeurs de la verticale à l'horizontale. Possible d'un coup ?
2
Réponses
20
Affichages
479
gosselien
D
  • Résolu(e)
Microsoft 365 macro qui ne fonctionne pas pour colorisation d'une carte
Réponses
8
Affichages
355
job75
  • Question Question
XL 2021 Copier coller qui ajoute une référence absolu Toute seule
2
Réponses
24
Affichages
1 K
TooFatBoy
G
  • Question Question
XL 2016 filtrer, copier et coller les données avec la macro
Réponses
4
Affichages
320
job75
D
  • Résolu(e)
XL 2019 Ajouter préfixe
Réponses
6
Affichages
271
sylvanu
C
  • Question Question
Microsoft 365 Incrémenter une liste par rapport à une 1ere liste
Réponses
2
Affichages
150
Chris5633
C
B
  • Résolu(e)
XL 2021 VBA : activer une feuille dont le nom est la valeur d'une cellule
Réponses
2
Affichages
203
berru76
B
B
  • Question Question
XL 2013 excel Copier coller feuille avec tout le contenue
Réponses
4
Affichages
309
Bodin44
B
M
  • Résolu(e)
XL 2021 Fonction pour rechercher des données, puis à reporter dans une 2ème feuille avec 1 critère
Réponses
13
Affichages
377
job75
  • Question Question
XL 2019 Copier et coller automatiquement une nouvelle donnée par un bouton, ListView décallée à la sur la page (Multipage) et vibration du Userform
2
Réponses
16
Affichages
970
TooFatBoy
  • Résolu(e)
XL 2016 Copie automatique de cellules à un endroit précis
Réponses
7
Affichages
230
AtTheOne
R
  • Question Question
XL 2016 récupérer une image depuis un SharePoint et la coller dans une cellule
Réponses
4
Affichages
166
halecs93
C
  • Résolu(e)
XL 2021 Données qui ne s'affichent pas dans un label (UserForm)
Réponses
6
Affichages
184
Constantin
C
T
  • Résolu(e)
Microsoft 365 Tableau structuré
Réponses
14
Affichages
490
fanch55
C
  • Question Question
XL 2021 Exporter des données vers une autre feuille...
Réponses
7
Affichages
201
sylvanu
  • Résolu(e)
Autres Copier/ Coller plage de données dans une autre cellule d'un même onglet
Réponses
6
Affichages
470
fenec
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…