une aide code vba ajout de colonne

Version imprimable

04/06/2021, 10h13
Foxcon

1 pièce(s) jointe(s)

une aide code vba ajout de colonne

Bonjour, j'utilise une macro via un bouton pour creer automatiquement des onglets
col / A1 nom de la colonne + données col / b1 nom de la colonne + données <br>
ce qui donne ça avec cette macro
<br>
MOIS SEM
janvier 1

problème j'aimerais obtenir les infos de la col 1 jusqu'à 5 pour 5 semaines <br>
MOIS SEM
janvier 1 2 3 4 5

la fonction cell offset n'argumente que sur une colonne j'aimerais ajouter les données des autres colonnes a droite
auriez-vous une solution merci
cordialement
04/06/2021, 11h38
ChristianBosch

Salut, alors premièrement je te conseille d'utiliser la balise code (#) pour insérer ton code, une image ne nous permet pas de le copier

En suite j'ai pas bien compris ce que tu voulais faire, mais je peux déjà voir que tu copie les données des cellules A2 à A13 (d'ailleurs l'adresse de la feuille n'est pas précisée).

Ca arrangerai de voir ton tableau et de savoir ce que tu veux faire exactement.

1 pièce(s) jointe(s)

[XL-2007] une aide code vba ajout de données d'autres colonnes

Bonjour et merci pour tes précisions
Pièce jointe 599216
j'ai joint le tableau pour plus de compréhension
comme tu auras pu le constater il y a une plage de données
col "A" janvi,fev etc "A2:A13" en col "B" les semaines; seulement
je n'obtiens au moment de créer les nouvelles feuilles
que les infos de la col "b" j'aimerais celles de la "c","d","e","f"
je ne suis pas du tout compétent mais j'apprend )
j'imagine qu'il y a d'autres solutions mon esprit est ouvert ....
merci pour le coup de pouce
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Sub creer_onglet() For Each cell In Range("A2:A13") Set feuille = Worksheets.Add(After:=Worksheets(Worksheets.Count)) feuille.Name = cell.Value feuille.Range("A1").Value = "MOIS" feuille.Range("B1").Value = "SEM" feuille.Range("A2").Value = cell.Value feuille.Range("B2").Value = cell.Offset(0, 1).Value Next cell End Sub

Salut, voila le code:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Option Explicit
 
Sub creer_onglet()
Dim dernCol As Integer
Dim i As Integer
Dim cell As Range
Dim feuille As Worksheet
 
dernCol = Feuil1.Cells(1, Columns.Count).End(xlToLeft).Column
 
For Each cell In Feuil1.Range("A2:A13")
 
    Set feuille = Worksheets.Add(After:=Worksheets(Worksheets.Count))
    feuille.Name = cell.Value
 
    For i = 2 To dernCol
        feuille.Cells(1, 1).Value = "MOIS"
        feuille.Cells(1, i).Value = "SEM"
        feuille.Cells(2, 1).Value = Feuil1.Cells(cell.Row, 1).value
        feuille.Cells(2, i).Value = Feuil1.Cells(cell.Row, i).Value
    Next i
Next cell
End Sub