Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.
  • Initiateur de la discussion Initiateur de la discussion Pascal
  • 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 !

P

Pascal

Guest
Bonjour le Forum,
j'ai un pb sur la macro suivante:

Sub copier_colonne()
Range('C8:C21').Select
Application.CutCopyMode = False
Selection.Copy
Sheets('evolution').Select
Range('B3').Select
ActiveSheet.Paste
End Sub

Au faite il s'agit de copier un tableau (C8:21) d'une feuille et le coller sur une autre feuille 'evolution';
Mon problème c que je veux que ma macro puisse coller sur la colonne qui suit la colonne B si celle ci contient des infos. (donc il faut changer la ligne: Range('B3').select), je pense..
 
Bonjour Pascal et le forum,

pour déterminer la colonne libre pour coller, tu dois utiliser une variable qui te donne la colonne libre.

La macro devient :

Sub copier_colonne()
Dim Col As Byte

If Sheets('evolution').Range('B3').Value = '' Then
Sheets('Feuil1').Range('C8:C21').Copy Sheets('evolution').Range('B3')
Else
Col = Sheets('evolution').Range('IV3').End(xlToLeft).Column + 1
Sheets('Feuil1').Range('C8:C21').Copy Sheets('evolution').Cells(3, Col)
End If
End Sub

Cordialement

Bernard
 
- 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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
18
Affichages
597
Réponses
10
Affichages
791
Réponses
7
Affichages
367
Réponses
3
Affichages
561
Réponses
4
Affichages
586
Réponses
1
Affichages
575
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…