Discussion :

[Eccle]

Bonjour à tous,

J'aurai besoin d'un macro VBA pour réaliser mes tâches quotidiennes plus raipdement. Malheuresement je suis très mauvais et avec mes bases VBA qui datent impossible d'y arriver.

J'ai joint un fichier excel pour illustrer mes sources et mon besoin, je pense que ça sera plus simple que d'essayez d'expliquer sur ce post.

Si vous avez des questions, n'hésitez pas !

Et merci d'avance pour tous ce qui ont la gentilesse de m'aider.

Cdt,

Eccle

[Nako_lito]

Je ne suis pas administrateur, mais je ne pense pas qu'on fasse le travail pour les autres.
On apporte notre aide lorsque des problèmes se présentent pour aider a les résoudre mais en aucun cas on ne fait les devoirs des autres.
Après, cette idée n'engage que moi.

[Eccle]

Salut,

J'ai bien conscience d'en demander beaucoup. Mais je n'y arrive pas. Et sachez tout de même qu'il ya déjà une partie du code que j'ai fait pour arriver à ma feuille 1 et ma feuille 2, c'est juste qu'après il faut faire du sumif etc. dans la feuille objectif et là je ne sais pas le faire, et même si à force d'acharnement j'y arriverai peut être dans un mois, le code serait surment "dégeulasse".

Eccle

[Nako_lito]

est ce que toutes les lignes de la feuilles 1 ont une correspondance avec la feuille 2 ?
Tous les code présent dans sheet 1 sont présent dans sheet 2 et inversement ?
il n'y a pas de code orphelins dans l'une ou l'autre feuille ?

Et si j'ai compris, tu as également une référence de ces code dans la feuille 3 ou tu veux mettre de la couleur en fonction du montant obtenu par la somme des valeur dans feuille 1 et 2 ?

si c'est bien ce que j'ai décris
tu as plusieur solutions qui se propose a toi,

soit les lignes sont dans le meme ordre sur toute les feuilles au quel cas tu créé un boucle sur toute les lignes avec un test qui vérifie la somme de la cellule 1 feuille 1 et la cellule 1 feuille 2 et qui colore la ligne de cellule 1 feuille 3.

soit les codes sont dans le désordre d'une feuille a l'autre, dans ce cas, il faut que tu procede ligne par ligne de ta feuille 1, et qu'a chaque fois tu vérifie que dans la colonne code de la feuille 2 et 3 ce code existe bien, et si c'est le cas tu recommence ton test pour colorer la ligne dans la feuille 3

j'opterai plus pour la solution numéro 2 car elle sécurie un peu plus le traitement, si tu te retrouve un jour ac des code orphelin, tu auras des decallage avec la méthode 1.

ensuite, pour mettre ca en code, il faut que tu pense au étapes du process et comment tu le ferai a la main sous excel, quand c'est fait, tu fais un petit algorithme et tu code apres, ce sont des methodes tres simples dans ton cas, tu trouveras toute l'aide dans les tutos de prog du site.

si t'as d'autres question, hésite pas.

[Eccle]

Est ce que toutes les lignes de la feuilles 1 ont une correspondance avec la feuille 2 ?
Tous les code présent dans sheet 1 sont présent dans sheet 2 et inversement ?
il n'y a pas de code orphelins dans l'une ou l'autre feuille ?

--> Si justement, il peut y avoir des lignes dans la feuille 1 non présente dans feuille 2 et vis versa. L'objectif est donc d'isoler ces lignes oprhelines (dans mon cas j'aurai bien mis les lignes en rouge lorqu'une ligne est orpheline et provenant de la feuille 1, et orange lorsqu'elle vient de la 2).

Et si j'ai compris, tu as également une référence de ces code dans la feuille 3 ou tu veux mettre de la couleur en fonction du montant obtenu par la somme des valeur dans feuille 1 et 2 ?

--> Oui l'objectif est d'extraire les codes de la feuille 1 et 2 pour la transposer sur la feuille 3.

si c'est bien ce que j'ai décris
tu as plusieur solutions qui se propose a toi,

soit les lignes sont dans le meme ordre sur toute les feuilles au quel cas tu créé un boucle sur toute les lignes avec un test qui vérifie la somme de la cellule 1 feuille 1 et la cellule 1 feuille 2 et qui colore la ligne de cellule 1 feuille 3.

--> Pas dans le même ordre, et ridque de ligne orhpeline donc.

soit les codes sont dans le désordre d'une feuille a l'autre, dans ce cas, il faut que tu procede ligne par ligne de ta feuille 1, et qu'a chaque fois tu vérifie que dans la colonne code de la feuille 2 et 3 ce code existe bien, et si c'est le cas tu recommence ton test pour colorer la ligne dans la feuille 3

--> La feuille 3 c'est l'objectif final que je cherche, le résultat espéré. C'est donc une sorte de comparaison entre feuille 1 et feuille 2, avec la somme des valeurs pour chaque code.

j'opterai plus pour la solution numéro 2 car elle sécurie un peu plus le traitement, si tu te retrouve un jour ac des code orphelin, tu auras des decallage avec la méthode 1.

ensuite, pour mettre ca en code, il faut que tu pense au étapes du process et comment tu le ferai a la main sous excel, quand c'est fait, tu fais un petit algorithme et tu code apres, ce sont des methodes tres simples dans ton cas, tu trouveras toute l'aide dans les tutos de prog du site.

--> Voici jusqu'ici ce que j'ai fait :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
Sub Test()
'
' Test Macro
 
' désactive le rafraîchissement de l'écran pour accélérer le traitement
    Application.ScreenUpdating = False
    ' désactive les alertes pour empêcher l'affichage
    Application.DisplayAlerts = False
    ' se placer sur la dernière ligne contenant des données
    Range("A65536").End(xlUp).Select
 
    ' Suppression des lignes vides
    Do
        If IsEmpty(ActiveCell) Then
            ActiveCell.EntireRow.Delete
        End If
        ActiveCell.Offset(-1, 0).Select
    Loop Until ActiveCell.Row = 1
 
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
 
Sheets("Sheet1").Select
Columns("E:E").Select
Selection.Copy
 
Sheets("Sheet3").Select
ActiveSheet.Range("A:A").Select
ActiveSheet.Paste
 
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
[A1].Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess
For i = [A65000].End(xlUp).Row To 2 Step -1
If Cells(i, 1) = Cells(i - 1, 1) Then Rows(i).Delete
Next i
Application.Calculation = xlCalculationAutomat
Application.Calculation = xlCalculationManual
Sheets("Sheet2").Select
[A1].Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess

[Nako_lito]

maintenant il faut que traite code par code de la colonne "CODE" de ta feuille 1, que tu vérifie la correspondance dans la feuille 2, et si il y en a une, tu créé une nouvelle ligne dans la feuille 3 ac les infos de la feuille 1 et 2 et tu la mets dans une couleur au choix.

[Eccle]

Yes et vis versa, checker les codes de la feuille 2 vérifier correspondance feuille 1 et créer la ligne en feuille 3.

Mais je sais pas faire tout ça ... Je peux trouver ça sur ce site ? j'ai cherché pourtant faut pa croire que je glande ^^ Peut être pas les bons mots clés.

Par contre la couleur c'est bien plus tard, en fonction des valeurs associés à chaque code.

[Nako_lito]

fais ton algo, les fonctions et methodes apparaitrons au fur et a mesure

[Eccle]

hum ... ? Je crois que je vais être plus précis quand à mon niveau en VBA ... Sur une échelle de 0 à 20, je suis à -1, vous savez le mec qui cherche sur internet pour trouver les solutions quoi ...

Tout ce que j'ai écrit en VBA au dessus, ça vient d'internet. Donc faire mon "algo" et les fonctions et méthodes apparaitront --> no comprendo.

Eccle

[Nako_lito]

je comprend bien, mais il faut savoir qu'une programmation sans algo, c'est une programmation zéro et qui a 80% de risque de mal fonctionner et faire plus de caca qu'autre chose.
Donc avant de vouloir commencer a coder sans trop savoir ce les méthodes et fonctions font, tu es OBLIGE de passer l'algorithme et un minimum d'analyse.

Je vais pas devenir mathematicien sans apprendre mes tables de multiplication.

Acquier des notions de prog. Etudie un peu en lisant sur developpez.com et ensuite tu reviendras sur ton projet. Mais honnetement, ici, on va te donner des infos et des conseils que tu risque d'etre incapable d'assimiler, donc tu perdras ton temps et fera perdre le notre également.

Tu n'as pas le choix malheureusement.