XL 2010 Créer des onglets selon les infos filtrées d'une colonne

B

belkacem_64

XLDnaute Junior

• 18 Décembre 2016

• #2

bonsoir
essai

 

Pièces jointes

• EXPORT-CATEGORIE-2.xlsm

  25.2 KB · Affichages: 27

Vote positif 0 Vote négatif

Chris401

XLDnaute Accro

• 18 Décembre 2016

• #3

Bonjour

Regarde si ça te convient (clique sur "Creation des Feuilles Inscription")

 

Pièces jointes

• EXPORT-CATEGORIE-1.xlsm

  29.3 KB · Affichages: 30

Vote positif 0 Vote négatif

D

deps

XLDnaute Junior

• 18 Décembre 2016

• #4

Bonjour belkacem_64, chris401, forum

merci pour vos solutions.

Celle de chris401 est plus complète car elle transfère les données de recap vers les feuilles créées
Cependant si je clic une 2e fois sur le bouton création, il y a une erreur 1004.
Je suppose que le vidage des feuilles doit certainement pas se faire et il y a un conflit de nom.
La macro pourrait elle vider avant de tourner ?

Dans les feuilles créées :
en D2 , serait il possible d'y coller B3 de la feuille récap ?
en D4, serait il possible d'y coller le nom de l'onglet ?

merci pour votre aide.
Cordialement
Deps

 

Vote positif 0 Vote négatif

Chris401

XLDnaute Accro

• 18 Décembre 2016

• #5

Re
L'effacement était bien prévu mais il y avait une petite erreur dans le code

 

Pièces jointes

• EXPORT-CATEGORIE-1.xlsm

  31.1 KB · Affichages: 33

Vote positif 0 Vote négatif

D

deps

XLDnaute Junior

• 18 Décembre 2016

• #6

Re

merci beaucoup.
Ca fonctionne très bien.

je souhaiterais que la feuille "masque" ne soit pas visible pour éviter les erreurs de manipulation
Aurais tu une idée ?

merci
Deps

 

Vote positif 0 Vote négatif

D

deps

XLDnaute Junior

• 18 Décembre 2016

• #7

Rebonjour

j'ai voulu numéroter les lignes des feuilles créées.
j'ai ajouté cette partie de code (Call numerote_ligne) ci dessous
ainsi que la macro numerote_ligne
mais la numérotation ne se fait pas
Qu'ai je oublié ?

merci
Deps

Code:

'Copie données
For i = 5 To recap.Range("B65000").End(xlUp).Row
With Worksheets(recap.Cells(i, 12).Value)
.Range("D2") = recap.Cells(i, 2).Value
.Range("B65000").End(xlUp).Offset(1) = recap.Cells(i, 7).Value
.Range("C65000").End(xlUp).Offset(1) = recap.Cells(i, 3).Value
.Range("D65000").End(xlUp).Offset(1) = recap.Cells(i, 14).Value

Call numerote_ligne

End With
Next i
' Mettre la date et l'heure de création
      'Range(" B1") = Now
    
recap.Activate

Application.ScreenUpdating = True
End Sub

Sub numerote_ligne()
'Numérote les lignes non vides en colonne A

'on commence l'incrémentation au numéro 1
num = 1

'a partir de la ligne n°7 jusque la dernière non vide
   For N = 7 To Range("B" & Rows.Count).End(xlUp).Row
     'si la cellule de la colonne B est vide
     If Range("B" & N) <> "" Then 'alors
        Range("A" & N) = num   'on numérote la colonne A
        num = num + 1 'on ajoute 1 à chaque n°
     End If
  If Range("B" & N) = "" Then Range("A" & N) = "" 'si c'est vide, alors vide
Next
End Sub

 

Vote positif 0 Vote négatif

Chris401

XLDnaute Accro

• 18 Décembre 2016

• #8

Voir nouveau fichier

 

Pièces jointes

• EXPORT-CATEGORIE-1.xlsm

  33.3 KB · Affichages: 28

Vote positif 0 Vote négatif

D

deps

XLDnaute Junior

• 18 Décembre 2016

• #9

Chris401 à dit:

Voir nouveau fichier

Cliquez pour agrandir...

Merci à toi
Deps

 

Vote positif 0 Vote négatif

Chris401

XLDnaute Accro

• 18 Décembre 2016

• #10

Par rapport à ta dernière demande, j'ai préparé une MFC dans la feuille Modèle
Sur la colonne A (jusqu'à la ligne 50) les chiffres sont en place en police blanche. Ils seront affichés dans les feuilles crées s'il y a une valeur en Bx

 

Pièces jointes

• EXPORT-CATEGORIE-1.xlsm

  36.8 KB · Affichages: 30

Vote positif 0 Vote négatif

D

deps

XLDnaute Junior

• 18 Décembre 2016

• #11

Bonsoir Chris

MFC= mise en forme conditionnelle 🙂
il faudra que je vois si j'ai plus de 50 lignes selon les fichiers ce qui est possible

merci
Deps

 

Vote positif 0 Vote négatif

Chris401

XLDnaute Accro

• 18 Décembre 2016

• #12

Re

Alors sans passer par une MFC

 

Pièces jointes

• EXPORT-CATEGORIE-1.xlsm

  38 KB · Affichages: 30

Vote positif 0 Vote négatif

D

deps

XLDnaute Junior

• 18 Décembre 2016

• #13

Salut

Si j'ai bien compris tu as utilisé ce code

Code:

.Range("A65000").End(xlUp).Offset(1) = .Range("A65000").End(xlUp).Offset(1).Row - 6

c'est à dire que tu cherches le n° de la ligne et comme la 1e ligne commence en 7e ligne, 7-1=6
tu enlèves 6 au n° de ligne

ai-je bien compris ?

mais que veut dire offset?

merci
Deps

 

Vote positif 0 Vote négatif

Chris401

XLDnaute Accro

• 18 Décembre 2016

• #14

Re

Offset = décaler
Offset(ligne,colonne)
Offset(1) équivaut à écrire Offset(1,0) ==> décaler la cellule d'1 ligne et de 0 colonne

.Range("A65000").End(xlUp).Row donne le numéro de la dernière ligne non vide.
.Range("A65000").End(xlUp).Offset(1).Row décale d'1 ligne afin d'avoir la 1ère cellule vide

Pour la 1ère cellule vide il s'agira de la ligne 7 ; comme on veut obtenir le chiffre 1, on enlève 6
Quand la cellule 7 sera remplie, la 1ère cellule vide sera la 8; comme on veut obtenir le chiffre 2, on enlève 6

 

Vote positif 0 Vote négatif

D

deps

XLDnaute Junior

• 19 Décembre 2016

• #15

Bonjour

merci pour toutes ces explications

Deps

 

Vote positif 0 Vote négatif