Créer des feuilles excel à partir d'une liste+données
sof_011
Messages postés
3
Date d'inscription
Statut
Membre
Dernière intervention
-
sof_011 -
sof_011 -
Bonjour à tous,
J'essaye de créer des feuilles Excel à partir d'une liste en copiant en même tant les données correspondantes à un nom de ma liste.
J'ai utilisé la macro suivante mais elle ne fonctionne pas.
Pourriez-vous comment je peux modifier la ligne en gras pour que cela fonctionne.
Sub Macro3()
'
' Macro3 Macro
' Dim nom, c
For Each c In Range("liste")
nom = c.Value
Sheets("Feuil1").Select
Range("A1:I1,A"c":I"c").Select
Selection.Copy
Sheets.Add After:=Worksheets(Worksheets.Count)
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
ActiveSheet.Name = nom
Next c
End Sub
je voudrais copier en plus de plage A1:I1 la plage correspondant au nom pour lequel je crée la nouvelle feuille.
J'espère que ma demande est suffisamment claire.
Merci d'avance pour votre aide.
J'essaye de créer des feuilles Excel à partir d'une liste en copiant en même tant les données correspondantes à un nom de ma liste.
J'ai utilisé la macro suivante mais elle ne fonctionne pas.
Pourriez-vous comment je peux modifier la ligne en gras pour que cela fonctionne.
Sub Macro3()
'
' Macro3 Macro
' Dim nom, c
For Each c In Range("liste")
nom = c.Value
Sheets("Feuil1").Select
Range("A1:I1,A"c":I"c").Select
Selection.Copy
Sheets.Add After:=Worksheets(Worksheets.Count)
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
ActiveSheet.Name = nom
Next c
End Sub
je voudrais copier en plus de plage A1:I1 la plage correspondant au nom pour lequel je crée la nouvelle feuille.
J'espère que ma demande est suffisamment claire.
Merci d'avance pour votre aide.
A voir également:
- Créer des feuilles excel à partir d'une liste+données
- Liste déroulante excel - Guide
- Creer un groupe whatsapp a partir d'un autre groupe - Guide
- Créer un lien pour partager des photos - Guide
- Créer un compte google - Guide
- Trier des données excel - Guide
4 réponses
Bonjour,
je viens de copier votre ligne mais... non ça ne fonctionne pas :-(
Lorsque je veux exécuter la macro, le débogueur se lance et indique erreur de syntaxe.
Merci quand même d'avoir répondu. Et si vous avez une autre idée n'hésitez pas.
bàv
je viens de copier votre ligne mais... non ça ne fonctionne pas :-(
Lorsque je veux exécuter la macro, le débogueur se lance et indique erreur de syntaxe.
Merci quand même d'avoir répondu. Et si vous avez une autre idée n'hésitez pas.
bàv
Bonjour,
A Maurice: je suis désolée mais non ça ne fonctionne pas.
A Via55: vous me dites que cela fonctionne chez vous :-(
pourquoi pas chez moi?
Je mets en la copie complète de ma macro, voulez-vous bien vérifier que toutes nos lignes sont identiques, s'il vous plait. Je sais que je suis près du but mais il y a quelque chose qui coince.
Merci pour votre aide à tous les 2
Sub Macro3()
'
' Macro3 Macro
' Dim nom, c
For Each c In Range("liste")
nom = c.Value
Sheets("Feuil1").Select
Range("A1:I1,A" & c & ":I" & c).Select
Selection.Copy
Sheets.Add After:=Worksheets(Worksheets.Count)
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
ActiveSheet.Name = nom
Next c
End Sub
A Maurice: je suis désolée mais non ça ne fonctionne pas.
A Via55: vous me dites que cela fonctionne chez vous :-(
pourquoi pas chez moi?
Je mets en la copie complète de ma macro, voulez-vous bien vérifier que toutes nos lignes sont identiques, s'il vous plait. Je sais que je suis près du but mais il y a quelque chose qui coince.
Merci pour votre aide à tous les 2
Sub Macro3()
'
' Macro3 Macro
' Dim nom, c
For Each c In Range("liste")
nom = c.Value
Sheets("Feuil1").Select
Range("A1:I1,A" & c & ":I" & c).Select
Selection.Copy
Sheets.Add After:=Worksheets(Worksheets.Count)
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
ActiveSheet.Name = nom
Next c
End Sub
Bonjour,
Les variables dans Liste étant vraisemblablement du texte ne peuvent être utilisées dans les références du Range
Il faut utiliser une variable n qui relève le N° de la ligne : n = c.Row
D'autre part pour sélectionner la ligne n la syntaxe sera plutôt ;
Range("A" & n & ":I" & n).Select
et pour sélectionner de la ligne 1 à la ligne n
Range("A1 & ":I" & n).Select
Un exemple qui fonctionne
https://www.cjoint.com/?0Kcozkun09S
Cdlmnt
Les variables dans Liste étant vraisemblablement du texte ne peuvent être utilisées dans les références du Range
Il faut utiliser une variable n qui relève le N° de la ligne : n = c.Row
D'autre part pour sélectionner la ligne n la syntaxe sera plutôt ;
Range("A" & n & ":I" & n).Select
et pour sélectionner de la ligne 1 à la ligne n
Range("A1 & ":I" & n).Select
Un exemple qui fonctionne
https://www.cjoint.com/?0Kcozkun09S
Cdlmnt