XL 2010 Remplacer formule petite valeur en VBA

[Marypen]

Bonsoir, je n'y connais absolument rien en VBA..... Ça plante le décors.
J'aurais besoin de remplacer les formule matricielles de mon fichier par un Code VBA afin de le rendre plus rapide.
Ci joint un petit fichier représentatif de mon problème avec les explications et demandes.
J'importe un fichier de 4 colonnes et environ 25000 lignes et je dois extraire 2 types de données, les n° d'articles à 6 caractères et les n° d'articles à 6 caractères suivi d'un "." dans 2 colonnes séparées. Ensuite, je voudrais extraire les noms correspondant aux n° trouvés précédemment dans 2 colonnes séparées à la suite

Pouvez-vous m'aider à réaliser ceci. Je serais ravi de pouvoir également comprendre les procédés VBA, je n'ai jamais approfondi mais je suis conscient que cela solutionne beaucoup de problèmes.

Grand merci

 

[Dranreb]

Oui, il suffit de corriger les deux dernières instructions de la Private Sub CBnTransfert_Click() du module WshCbl (Cible) comme suit :

   Me.[B2:E10000].ClearContents
   Me.[B2:E2].Resize(LR).Value = T

 

[mapomme]

Bonjour à tous ,

J'avions commencé, donc j'avions terminé donc je publie (après la bataille).

 

[job75]

Je ferai juste une remarque sur les formules (bizarres) en colonne I du fichier post#1.

Avec la formule en I2 =PETITE.VALEUR(SI(H:H="Rien";LIGNE($1:$25000);25001)-1;LIGNE(1:1))

le recalcul des 15 formules de la colonne s'effectue chez moi en 42 centièmes de secondes.

Avec la formule =PETITE.VALEUR(SI(H$1:H$25000="Rien";LIGNE($1:$25000);25001)-1;LIGNE(1:1))

le recalcul des 15 formules s'effectue en 2 centièmes de secondes, c'est donc 21 fois plus rapide.

En calcul matriciel ne jamais travailler avec des plages illimitées.