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 Fran34
  • 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 !

Fran34

XLDnaute Nouveau
Bonjour,
je cherche à mettre une condition dans une macro

Je veux aller copier des données d'une feuille A, vers une feuille B, mais dans cette feuille B, j'ai déjà des colonnes avec des données, et je souhaite donc que la macro aille coller les données à la suite des colonnes déjà remplies

Il me faut donc une ligne de macro que permette par exemple de reconnaître, colonne après colonne, où se trouve des données, puis repérer la colonne où il n'y a pas de données, et y coller les infos de la feuille A

je ne suis pas sur d'avoir été très clair😕

Merci de votre aide🙂 🙂
A+
Fran34

En allant vers une feuille, je veux aller copier
 
Re : Macro

Bonjour

Cela devrait t'aider

Code:
Find the last used cell, before a blank in a Column:
Sub LastCellBeforeBlankInColumn()
Range("A1").End(xldown).Select
End Sub
Code:
Find the very last used cell in a Column:
Sub LastCellInColumn()
Range("A65536").End(xlup).Select
End Sub
Code:
Find the last cell, before a blank in a Row:
Sub LastCellBeforeBlankInRow()
Range("A1").End(xlToRight).Select
End Sub
Code:
Find the very last used cell in a Row:
Sub LastCellInRow()
Range("IV1").End(xlToLeft).Select
End Sub
Code:
Find the very last used cell on a Worksheet:
Sub Demo()
Cells.Find(What:="*", After:=[A1], SearchDirection:=xlPrevious).Select
End Sub
 
Dernière édition:
Re : Macro

Merci
Mais j'ai essayé en remplacant "Range("G3").Select" de ma macro par ta première proposition par cela ne marche pas
Il y a certainement autre chose à faire

Merci
Fran34


Sub copierésultverscompétitions()
'
' copierésultverscompétitions Macro
' Macro enregistrée le 17/09/2005 par Michael Cuzon
'

'
Range("E6:AN6").Select
Selection.Copy
Sheets("stat 18 trous compet").Select
Range("G3").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Columns("G:G").Select
Application.CutCopyMode = False
Selection.Insert Shift:=xlToRight
Range("C1").Select
End Sub
 
Re : Macro

Oups,
j'ai oublié le passage de la macro à traduire, afin que je puisse la modifier !!!
Merci

Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Columns("G:G").Select
Application.CutCopyMode = False
Selection.Insert Shift:=xlToRight
Range("C1").Select
 
- 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

Réponses
18
Affichages
491
Réponses
4
Affichages
415
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…