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.