Discussion :

[galia0609]

Bonjour,

Je débute en VBA et j'ai effectué plusieurs recherche pour effectuer ce dont j'ai besoin. J'ai pu créer des morceaux de macro qui ont pu me dépanner mais je voudrais faire quelque chose de propre.
Voila mon sujet:
- depuis un logiciel, j'exporte un tableau csv. Pour l'instant je fais un copier/coller à la main dans un fichier excel avec la bonne mise en page
- ce tableau a une colonne "fournisseur"
- je dois créer un onglet par fournisseur (en gardant la même mise en page) et copier dans cet onglet l'ensemble des lignes correspondantes


Est-ce que quelqu'un pourrait m'aider ?

Pour l'instant j'ai réussi à :
- créer un onglet par fournisseur (sans tenir compte de la mise en page)
- copier les lignes dans chaque onglet. Cette étape ne se fait pas en suivant de la 1ère, je dois reappliquer la macro
Cependant, cela fonctionne que si j'ai une feuille vide en plus de ma feuille avec mes données.


Merci d'avance pour votre être.

[MarcelG]

Salut,

Une - modeste - contribution que tu peux appliquer feuilles depuis synthèse

[galia0609]

Merci pour ce lien.

Je vais essayer de reprendre tout ca.

[MarcelG]

Salut,

Mais surtout, ne reprends que ce qui t'intéresse car j'y ai proposé plusieurs méthodes (dictionnaires, collections...)
Quant à la colonne des occurrences, si tu la connais, alors il n'est pas besoin de la demander
Etc...

J'oubliais : Bienvenu sur le Fo rhum (de la Martinique!)

[galia0609]

Merci pour ce code.
Le 1er problème est résolu.

Je retourne à mes recherches pour les 2 autres points que j'ai maintenant à savoir:
- reproduire une image sur l'ensemble des onglets
- j'ai tout créer à partir du 1er onglet, cependant les données changent. Elles proviennent d'un fichier csv. Comment importer les données ? ou vider le tableau pour le reremplir ?

Si tu as une piste je suis preneuse.

Mais encore merci.

[MarcelG]

Bonjour,

Bonjour à toi, et Bonjour au Forum,

1 chose à la fois

Le plus rigoureux serait de nommer l'image.
Pour cela:
- Sélectionner l'image
- Entrer le nom de celle-ci dans la zone noms de ta feuille de travail (au-dessus du "A" de la 1ère colonne
- Valider

Pour la copie.
L'image est un élément de la collection "Shapes"

A appliquer

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
Option Explicit
Sub copie_image()
Dim i As Byte
Worksheets("Courrier").Shapes("monimage").Copy
For i = 1 To 2
      With Worksheets("lafeuille" & i)
            .Paste
            With .Shapes("monimage")
                  .Top = Worksheets("lafeuille" & i).Range("C5").Top
                  .Left = Worksheets("lafeuille" & i).Range("C5").Left
            End With
      End With
Next i
'vider le presse papier
Application.CutCopyMode = False
 
End Sub

Reviens si nécessaire