Discussion :

[Foxcon]

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

[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.

[Foxcon]

Bonjour et merci pour tes précisions
onglets multiple.xlsm
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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ChristianBosch]

Salut, voila le code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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