Microsoft 365 Correction d'un code vba

AD95 · 9 Janvier 2024

Bonjour la team,

Tout d'abord, merci d'avance pour votre aide.
Voilà j'ai un problème avec mon code il ne fait pas exactement ce que je veux

Voici mon besoin :

1 ==> A partir de la 12 -ème feuille si colonne A contient le chiffre "0" alors copier toute la ligne
2 ==>Coller les lignes dans la feuille All_Name (Coller à la dernière ligne)
3 ==> Supprimer toutes les colonnes sauf :
Colonne C ==> Classe
Colonne F ==> 1C
Colonne G ==> 2C
Colonne I ==> 4C
Colonne J ==> 5C
Colonne R ==> 3C

4. Si colonne A contient doublon alors supprimer la ligne en doublon (doit rester qu'une valeur unique)

5. Ajouter 2 colonnes et nommer
Entity
Product Line

6. Agencer/Renommer les colonnes
Colonne A ==> ID
Colonne B ==> Nom
Colonne C ==> Prenom
Colonne D ==> Entity
Colonne E ==> Contract
Colonne F ==> Product Line
Colonne G ==> Manager
Colonne R ==> Start Date

Le problème c'est qu'il me copie pas que la ligne qui contient "0" et supprime pas que la ligne en doublon je vois pas où se trouve l'erreur dans le code

patricktoulon · 9 Janvier 2024

ho puré de puré de puré de puré de puré
je viens de m'en rendre compte moi aussi
l'erreur est simple

Set RnG = SH.Range("A 2/1 :AA" & SH.Cells(Rows.Count, 2).End(xlUp).Row - 1) 'on prend toute la

VB:

Option Explicit
Sub testX()
    Dim colonne, SH, A&, MsG$, LiG&, RnG, TotaL&, TabLresulT, I&
    colonne = Array( 2, 3, 6, 7, 1, 10, 1, 9)   'matrice de colonne
    Sheets("All_Name").Cells.Clear                                                                                      ' vide la feuille All_Name
    DoEvents
    Application.ScreenUpdating = False
    For I = 13 To Sheets.Count...

patricktoulon · 15 Janvier 2024

re
Bonjour @AD95
bon ben on a un truc qui booste maintenant c'est bien

TooFatBoy · 15 Janvier 2024

AD95 à dit:
je trouvais pas l'erreur chez moi alors que chez toi ça fonctionné il me fallait un œil nouveau pour m'éclairer .

Comme quoi tu as bien fait, puisque l'œil nouveau a tout de suite vu le problème de décalage. 👁

patricktoulon · 15 Janvier 2024

re
Bonjour @TooFatBoy
ben en fait j'ai compris quand il m'a demandé d'ajouter 2 lignes vides au debut dans les feuilles
je boucle sur les vrais index de lignes donc il faut que je commence à 1 forcement
avant dans mes premières versions on bouclait sur les index de la variable tableau donc index tableau
et comme les variable tableau commence par les lignes 2 maintenant 4 ca m'avait tout décalé

@AD95
combien de feuille as tu dans ton vrai fichier et combien de lignes elles contiennent?

TooFatBoy · 15 Janvier 2024

patricktoulon à dit:
ben en fait j'ai compris quand il m'a demandé d'ajouter 2 lignes vides au debut dans les feuilles
je boucle sur les vrais index de lignes donc il faut que je commence à 1 forcement
avant dans mes premières versions on bouclait sur les index de la variable tableau donc index tableau
et comme les variable tableau commence par les lignes 2 maintenant 4 ca m'avait tout décalé

OK. Moi j'étais persuadé que tu avais "compris" après que je te l'ai dit par deux fois...

AD95 · 15 Janvier 2024

patricktoulon à dit:
re
Bonjour @TooFatBoy
ben en fait j'ai compris quand il m'a demandé d'ajouter 2 lignes vides au debut dans les feuilles
je boucle sur les vrais index de lignes donc il faut que je commence à 1 forcement
avant dans mes premières versions on bouclait sur les index de la variable tableau donc index tableau
et comme les variable tableau commence par les lignes 2 maintenant 4 ca m'avait tout décalé

@AD95
combien de feuille as tu dans ton vrai fichier et combien de lignes elles contiennent?

C'est aléatoire en fonction des données reçu mais environ 80 feuilles sur plus de 15 000 lignes

patricktoulon · 15 Janvier 2024

re
@TooFatBoy
ben en fait tu a posté avant moi pendant que la page etait ouverte
j'ai vu ta réponse après (réponse qui est juste quand même) sauf que tu décale tout et moi je change juste le départ de la boucle
les deux solutions sont bonnes dans tout les cas

TooFatBoy · 15 Janvier 2024

patricktoulon à dit:
ben en fait tu a posté avant moi pendant que la page etait ouverte
j'ai vu ta réponse après (réponse qui est juste quand même) sauf que tu décale tout et moi je change juste le départ de la boucle

Pas du tout puisque ma réponse te disant que tu t'étais trompé et que tu décalais d'une ligne est en #9 et qu'en #10 tu me réponds :

patricktoulon à dit:
je teste la ligne 1 je pourrais m'en passer mais je ne decale rien

Ce n'est qu'après que j'ai redis (en #12) que tu t'étais trompé, que tu corriges correctement ton code (en #13).

Quoi qu'il en soit, une seule chose compte : notre camarade AD95 a sa solution.

AD95 · 16 Janvier 2024

kt@TooFatBoy @patricktoulon Merci à vous 2 je peux enfin dormir plus de nuit blanche maintenant
Merci pour l'aide apportée à tous ces novices du vba.

Microsoft 365 Correction d'un code vba

AD95

XLDnaute Junior

Pièces jointes

patricktoulon

patricktoulon

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

AD95

XLDnaute Junior

patricktoulon

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

AD95

XLDnaute Junior

Discussions similaires