Macro

[Fran34]

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

 

[Staple1600]

Re : Macro

Bonjour

Cela devrait t'aider

Find the last used cell, before a blank in a Column:
Sub LastCellBeforeBlankInColumn()
Range("A1").End(xldown).Select
End Sub

Find the very last used cell in a Column:
Sub LastCellInColumn()
Range("A65536").End(xlup).Select
End Sub

Find the last cell, before a blank in a Row:
Sub LastCellBeforeBlankInRow()
Range("A1").End(xlToRight).Select
End Sub

Find the very last used cell in a Row:
Sub LastCellInRow()
Range("IV1").End(xlToLeft).Select
End Sub

Find the very last used cell on a Worksheet:
Sub Demo()
Cells.Find(What:="*", After:=[A1], SearchDirection:=xlPrevious).Select
End Sub

 

[Staple1600]

Re : Macro

Re

Peux-tu joindre, stp, un fichier exemple?

 

[Fran34]

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

 

[Fran34]

Re : Macro

Re,
QQ1 peut-il m'aider à "traduire" les opérations réalisées par cette macro ?

Merci
Fran34

 

[Fran34]

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