Copier tableau depuis x feuilles +calcul valeur finale

Bonjour à tous,

Je débute en VB et je bloque sérieusement sur ce problème qui semble si simple pourtant.

Je dispose donc de 3 régions dans 3 onglets, et dans chaque onglet, les tableaux sont de tailles identiques.

Je souhaite obtenir :

• dans un nouvelle onglet
• la consolidation des tableaux des onglets 1, 2, 3
• en ne prenant pas la valeur du tableaux mais la valeur /-1000 ( c'est à dire que si en région 1 j'ai la valeur

-le tableau de consolidation doit aussi être trié par ordre croissant de voiture et de couleur.

Un grand merci d'avance à celui ou celle qui pourra m'aider la dessus, je coince vraiment.

Bonne soirée.

Fabrice

Bonjour

A vérifier

Bonjour Banzai64

Je suis impressionné, d'un par la rapidité de la réponse, mais aussi sur l'efficacité.

Je te tire mon chapeau.

Un grand merci à toi, et je te souhaite une bonne journée

Fabrice

Bonsoir,

Le résultat est parfait mais ne parvenant pas à décrire ligne par ligne le code, je ne sais pas la transposer à ce tableau ci svp.

Je souhaite toujours obtenir :

• dans un nouvelle onglet
• la consolidation des tableaux des onglets
• en ne prenant pas la valeur du tableaux mais la valeur /-1000 ( c'est à dire que si en j'ai la valeur

Merci d'avance

Fabrice

Bonjour

A vérifier

Bonsoir

Merci encore une fois pour ce nouveau code.

Il fonctionne à merveille.

Si je souhaite controler que la cellule soit numérique avant de faire la division par -1000, est ce que je peux utiliser :

If IsNumeric(Cel) Then Cel = Cel / -1000 ??

Merci d'avance et encore bravo

Bonsoir

fabricemoka a écrit :

est ce que je peux utiliser :

If IsNumeric(Cel) Then Cel = Cel / -1000 ??

L'essayer c'est l'adopter

Fais le test

Bonjour oui en effet,

If IsNumeric(Cel) Then

Cel = Cel / -1000 ??

End If

ainsi que

If IsNumeric(Cel) = True Then

Cel = Cel / -1000

End If

les 2 tests me donnent ( erreur d'exécution 13 incompatibilité de type...)

Bonjour

Je viens de tester et pas de soucis

      If Cel <> "" And IsNumeric(Cel) Then Cel = Cel / -1000

J'ai aussi rajouté le test de la cellule vide

J'ai fait le test avec le dernier fichier

Bonsoir

En effet, tout fonctionne à merveille

J'avais inséré une valeur erroné dans mes données, mais j'ai trouvé l'erreur.

Je vous remercie infiniment pour votre précieuse aide.

Bonne soirée.