Bonsoir
Contrairement aux topics sur le forum discussion, c'est un peu le désert là! Bon, pour en revenir à ce post, il faudrait que tu précises, je supposes que oui, si tu cherches une méthode générale. Il faudrait en particulier que tu précises, si le nombre de lignes et le nombre de colonnes sont fixes.
Tu peux essayer cette macro mais quel est l'intérêt de programmer, si tu ne cherches pas une méthode générale? A toi de voir ou d'apporter quelques éléments supplémenataires.
Code :
- Sub MergeSheets()
- Rows("4:4" ).Select
- Selection.Insert Shift:=xlDown
- Sheets("Feuil2" ).Select
- Range("B1:B5" ).Select
- Selection.Copy
- Sheets("Feuil1" ).Select
- Range("C1" ).Select
- ActiveSheet.Paste
- Sheets(2).Select
- Range("A1" ).Select
- Range(Selection, Selection.End(xlToRight)).Select
- Range(Selection, Selection.End(xlDown)).Select
- Selection.Delete
- Sheets(1).Select
- Range("A1" ).Select
- End Sub
|
@+
Edit: En collant mon code, des espaces sont apparus dans certaines intructions avant la parenthèse de fermeture (instructions en rouge). Il n'y a pas d'espace après "Feuil1" par exemple.
Message édité par TAM136 le 02-11-2006 à 18:05:50