Discussion :

[phal2ip]

Bonjour,
j'ai un petit souci dont voici les tenants et aboutissants
j'ai un listing de poste dans une feuille Excel, tous les postes ont un même début de nom
exemple:
STGABCRG123
STGABCRE123
STGABCRT123
MSEABCRG123
MSEABCRE123
MSEABCRT123....
ceci sur plus de 400 lignes.
j'ai créé des onglets en fonction de mes recherches mais si un onglet n'existe pas (avec les 3 premiers caractère) il faudra le créer, je souhaite faire une recherche sur les 6 premiers caractères de ces mots (STGABC.... ou MSEABC...) et copier les lignes dans l'onglet correspondant (STG ou MSE....) ou créer l'onglet si non existant et copier les lignes dedans
je m'explique :
la première cellule de la colonne B contient STGABC donc je cherche sur toute la colonne que j'ai bien évidemment classé par ordre alphabétique
et copier toutes les lignes dont la valeur a été trouvée dans l'onglet correspondant à la suite des lignes existantes.
Puis je passe à la dernière ligne de STGABC + 1 afin de récupérer les 6 premiers caractères (par exemple MSEABC) et continuer la recherche avec ces 6 caractères et copier les lignes trouvées dans un autre onglet existant (MSE)... jusquà la dernière ligne de la colonne
j'espère avoir été un peu clair dans ma demande afin qu'une âme charitable puisse me venir en aide
Merci

[patricktoulon]

bonjour
a consulter dans l'aide (F1)

1. sheet add
2. autofilter (argument("contient") code optensible avec l'enregistreur de macro tout maché
3. recuperation de la plage filtrée visible
4. et enfin copy destination:=.......

bonne lecture

[Menhir]

En supposant que tes codes sont en A1:A400.
En supposant que l'onglet où se trouve cette liste se nomme "Source"

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim WSRes As Worksheet
Dim Lig As Range
Dim Test As String
 
For Each Lig In Worksheets("Source").Range("A1:A400")
   Test = Left(Lig.Value, 6)
   For Each WSRes in Worksheets
      If WSRes.Name = Test Then Exit For
   Next WSRes
   If WSRes.Name <> Test Then
      Set WSRes = Worksheets.Add
      WSRes.Name = Test
   End If

A la fin de ce code, la variable WSRes contient une référence à l'onglet portant un nom correspondant aux 6 premiers caractères de la cellule, onglet qui a été créé s'il n'existait pas encore d'onglet de ce nom.

[phal2ip]

Bonjour et merci pour vos différentes réponses
Je vais essayer de répondre à vous 2.
Alors pour Patricktoulon, merci pour l'info je connais tout ce qui sheet add et autres dont tu me parles. Par contre merci pour l'info sur l'autofilter que je ne connaissais pas.
Je vais étudier le cas.
Pour Menhir
idem merci du temps que vous passez.
J'ai fait un copier coller de votre code et il me met un message d'erreur For sans Next... ne comprenant pas aux premiers abords votre code, j'ai rajouter un Next Lig à la fin et cela passe...
Par contre Maintenant il me met une autre erreur : erreur d'exécution 91, dans la ligne

Code :

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

If WSRes.Name <> Test Then

il met variable objet ou variable de bloc non définie... je ne comprends pas...
Pourriez-vous m'éclairer ?
Merci

[Menhir]

J'ai fait un copier coller de votre code et il me met un message d'erreur For sans Next... ne comprenant pas aux premiers abords votre code, j'ai rajouter un Next Lig à la fin et cela passe...

Je t'ai mis le début du code. Il faut que tu le complètes.
Ta demandes n'est pas assez précise sur ce que tu comptes faire dans l'onglet destination. Donc à toi de faire le code.

Il faudrait quand même que tu fasses toi aussi un petit effort, que tu comprennes les éléments de ce code pour pouvoir les utiliser et les adapter à ton besoin spécifique.
Ce forum n'a pas pour vocation de faire ton travail à ta place quand même.

[phal2ip]

Bonjour Menhir,
vous avez tout à fait raison, j'ai déjà pas mal d'expérience en VBA avec plusieurs programme fait mais là où je bloque c'est comment faire pour faire une recherche avec les 6 premiers caractères d'une cellule de la colonne B et rechercher dans cette même colonne si d'autre cellule commence par les mêmes et si oui copier toutes les cellules dans un onglet distinct (nom sans importance)
Voilà mon réel souci