Comment dire? macro trop longue et

on avance a tâtons car chez moi par exemple je n'ai pas les liaisons réseaux aux quelles est lié ton classeur

a l'ouverture il me répare déjà une bonne 500 aine de cellules

et ensuite il se bloque

donc pour moi tester est impossible a moins de récupérer toutes les données et les mettre dans un xls tout neuf

donc je réitère ma question
ce fichier est il la résultante d'une requête et autre query ou fait par une personne

d'autant plus que tes filtres a chaque colonne paralyse vba

d'autant plus que j'ai des liste de validations vides impossible a enlever

enfin bref c'est un gros B....L ton fichier

mais normalement a moins d'avoir des noms composés mon exemple devrait fonctionner chez toi

après difficile d'aller plus loin vu l'ampleur des dégâts :mouarf:

Bon visiblement je travaille plus vite que toi

j'ai donc fait ce que j'ai dis
copier tout dans un classeur tout neuf afin de pouvoir faire mes essais

j'ai vu que tu a opté pour la liste dans un sheets
tres bien

mais attention dans les cellule en colonne 3 les nom sont précèdés par un apostrophe qu'il faut gérer
attention aussi au format de ta liste de noms dans le sheets ("liste") aucun format juste texte ca suffira

alors maintenant on en fait encore moins
j'ai tester ca fonctionne

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub CommandButton21_Click() With Sheets("BASE") For L = 5 To .Cells(Rows.Count, 13).End(xlUp).Row tablo = .Range(.Cells(L, 1), .Cells(L, 13)).Value If Cells(L, 3) <> "" Then nom = Sheets("Liste").Cells.Find(Replace(.Cells(L, 3).Value, "'", "")).Offset(0, 1) Sheets(nom).Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Resize(1, 13) = tablo End If Next L End With End Sub

---

et on en parle plus

Je n'ai pas testé, mais ça semble excellent. +1

Bonjour Parmi

moi j'ai tester ca fonctionne

mais c'est pas son plus gros soucis

son plus gros soucis c'est que le fichier de part ca provenance est affublé de liaison et autre contrôles qui n'ont rien a voir avec Excel qui font sonner toutes les alarme que mon Excel peut avoir :mouarf::mouarf:

ensuite le format xlsm dans le quel il est sauvé ne correspond pas au format réel du fichier

je sent bien un querytable bien mal foutu


des l'ouverture au moins 500 cellules sont réparées ou vidées
enfin bref je m'arrête la sinon il va déprimer :mouarf:

si ca fonctionne chez lui on demandera rien de plus :ptdr:

pour répondre à ta question "ce fichier est il la résultante d'une requête et autre query ou fait par une personne".
La base est un copié/collé d'un autre classeur Excel.
J'ai donc créé une feuille appelée "Liste" dans laquelle j'ai mis en colonne A le noms des chirurgiens et en colonne B le noms de leur feuille.
Et j'ai l'erreur suivante??
Pièce jointe 174836
Merci

Bonjour
c'est normal to erreur ca me l'a fait a moi aussi a cause des format dans ta liste de médecin

il faut pas de souligné pas de gras pas de couleur rien ,rien ,rein c'est pas compliqué

ou alors tu nome tes sheets comme tu a les noms dans la colonne B du sheets liste
c'est pas compliqué

et attention au variante
vérifie bien qu'il y a "DR machin chose " a chaque ligne en colonne C dans le sheets base
ou alors met le test

on peut pas tout faire a ta place quand même