Discussion :

[nicdodo]

Bonjour,
Dans un tableau j'aimerais qu'une macro analyse les cellules et si elles correpondent a la cellule de reference que cela entraine l'action de copier coller des cellules dans la 1er ligne vide d'une autre feuille. J'ai fait un code (1) ci dessous qui fonctionne des lors que je n'ai qu'une cellule mais lorsque je repete l'étape cela ne prend en compte que ma derniere cellule analysé code(2)
Dans le code 2 par exemple j'aimerais que si (5,2)=(5,1) les informations liées soit copiées collées a la premiere ligne vide et que si (6,2)=6,1) alors les informations liées soient copiées collées a la premiere ligne vide, du coup à la deuxieme ligne dans mon exemple.
Mon probleme c'est que la seule ligne qui se copie coller a la premiere ligne vide et la derniere que j'écris, dans mon exemple meme si (5,2)=(5,1), si (6,2)=(6,1) alors celle ci prendra la place de la premiere ligne dans mon tableau.

code (1)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub comparateur()
Dim numlignevide As Integer
numlignevide = ActiveSheet.Columns(1).Find("").Row
Sheets("comparateur site").Activate
If Cells(5, 2) = Cells(5, 1) Then 
Sheets("aCCUEIL").Cells(numlignevide, 14).Value = Sheets("COMPARATEUR SITE").Cells(10, 2).Value
Sheets("aCCUEIL").Cells(numlignevide, 16).Value = Sheets("COMPARATEUR SITE").Cells(5, 2).Value
Sheets("aCCUEIL").Cells(numlignevide, 13).Value = Sheets("COMPARATEUR SITE").Cells(4, 2).Value
Sheets("aCCUEIL").Cells(numlignevide, 12).Value = Sheets("COMPARATEUR SITE").Cells(3, 2).Value
Sheets("aCCUEIL").Cells(numlignevide, 10).Value = Sheets("DOMICILE").Cells(1, 1).Value
Sheets("aCCUEIL").Cells(numlignevide, 11).Value = Sheets("EXTERIEUR").Cells(1, 1).Value
end if
sheets("accueil").activate
end sub

Code (2)

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
Sub comparateur()
Dim numlignevide As Integer
numlignevide = ActiveSheet.Columns(1).Find("").Row
Sheets("comparateur site").Activate
If Cells(5, 2) = Cells(5, 1) Then 
Sheets("aCCUEIL").Cells(numlignevide, 14).Value = Sheets("COMPARATEUR SITE").Cells(10, 2).Value
Sheets("aCCUEIL").Cells(numlignevide, 16).Value = Sheets("COMPARATEUR SITE").Cells(5, 2).Value
Sheets("aCCUEIL").Cells(numlignevide, 13).Value = Sheets("COMPARATEUR SITE").Cells(4, 2).Value
Sheets("aCCUEIL").Cells(numlignevide, 12).Value = Sheets("COMPARATEUR SITE").Cells(3, 2).Value
Sheets("aCCUEIL").Cells(numlignevide, 10).Value = Sheets("DOMICILE").Cells(1, 1).Value
Sheets("aCCUEIL").Cells(numlignevide, 11).Value = Sheets("EXTERIEUR").Cells(1, 1).Value
end if
 
If Cells(6, 2) = Cells(6, 1) Then 
Sheets("aCCUEIL").Cells(numlignevide, 14).Value = Sheets("COMPARATEUR SITE").Cells(10, 2).Value
Sheets("aCCUEIL").Cells(numlignevide, 16).Value = Sheets("COMPARATEUR SITE").Cells(6, 2).Value
Sheets("aCCUEIL").Cells(numlignevide, 13).Value = Sheets("COMPARATEUR SITE").Cells(4, 2).Value
Sheets("aCCUEIL").Cells(numlignevide, 12).Value = Sheets("COMPARATEUR SITE").Cells(3, 2).Value
Sheets("aCCUEIL").Cells(numlignevide, 10).Value = Sheets("DOMICILE").Cells(1, 1).Value
Sheets("aCCUEIL").Cells(numlignevide, 11).Value = Sheets("EXTERIEUR").Cells(1, 1).Value
end if
sheets("accueil").activate
end sub

[Aposto]

Bonjour,

c'est sur que ce code va écraser les anciennes valeurs.

il faut réactualiser la variable numlignevide

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
Sub comparateur()
Dim numlignevide As Integer
numlignevide = ActiveSheet.Columns(1).Find("").Row
Sheets("comparateur site").Activate
If Cells(5, 2) = Cells(5, 1) Then 
Sheets("aCCUEIL").Cells(numlignevide, 14).Value = Sheets("COMPARATEUR SITE").Cells(10, 2).Value
Sheets("aCCUEIL").Cells(numlignevide, 16).Value = Sheets("COMPARATEUR SITE").Cells(5, 2).Value
Sheets("aCCUEIL").Cells(numlignevide, 13).Value = Sheets("COMPARATEUR SITE").Cells(4, 2).Value
Sheets("aCCUEIL").Cells(numlignevide, 12).Value = Sheets("COMPARATEUR SITE").Cells(3, 2).Value
Sheets("aCCUEIL").Cells(numlignevide, 10).Value = Sheets("DOMICILE").Cells(1, 1).Value
Sheets("aCCUEIL").Cells(numlignevide, 11).Value = Sheets("EXTERIEUR").Cells(1, 1).Value
end if
 
numlignevide = ActiveSheet.Columns(1).Find("").Row
 
If Cells(6, 2) = Cells(6, 1) Then 
Sheets("aCCUEIL").Cells(numlignevide, 14).Value = Sheets("COMPARATEUR SITE").Cells(10, 2).Value
Sheets("aCCUEIL").Cells(numlignevide, 16).Value = Sheets("COMPARATEUR SITE").Cells(6, 2).Value
Sheets("aCCUEIL").Cells(numlignevide, 13).Value = Sheets("COMPARATEUR SITE").Cells(4, 2).Value
Sheets("aCCUEIL").Cells(numlignevide, 12).Value = Sheets("COMPARATEUR SITE").Cells(3, 2).Value
Sheets("aCCUEIL").Cells(numlignevide, 10).Value = Sheets("DOMICILE").Cells(1, 1).Value
Sheets("aCCUEIL").Cells(numlignevide, 11).Value = Sheets("EXTERIEUR").Cells(1, 1).Value
end if
sheets("accueil").activate
end sub

ensuite je suppose que tu n'as pas que deux lignes à analyser, il faut donc faire une boucle:

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
]Sub comparateur()
Dim numlignevide As Integer, i As Integer
numlignevide = ActiveSheet.Columns(1).Find("").Row
Sheets("comparateur site").Activate
For i = 5 To ActiveSheet.UsedRange.Rows.Count
    If Cells(i, 2) = Cells(i, 1) Then
        Sheets("aCCUEIL").Cells(numlignevide, 14).Value = Sheets("COMPARATEUR SITE").Cells(10, 2).Value
        Sheets("aCCUEIL").Cells(numlignevide, 16).Value = Sheets("COMPARATEUR SITE").Cells(i, 2).Value
        Sheets("aCCUEIL").Cells(numlignevide, 13).Value = Sheets("COMPARATEUR SITE").Cells(4, 2).Value
        Sheets("aCCUEIL").Cells(numlignevide, 12).Value = Sheets("COMPARATEUR SITE").Cells(3, 2).Value
        Sheets("aCCUEIL").Cells(numlignevide, 10).Value = Sheets("DOMICILE").Cells(1, 1).Value
        Sheets("aCCUEIL").Cells(numlignevide, 11).Value = Sheets("EXTERIEUR").Cells(1, 1).Value
        numlignevide = numlignevide + 1
    End If
Next
End Sub

n'hésites pas si tu as d'autres questions.

[eliniel]

il faut que tu incrémentes la cellule de destination.

[nicdodo]

Rebonjour,

votre aide m'a été précieuse pour que mon code fonctionne, il est parfois rageux de se rendre compte qu'il suffisait de rajouter un élément simple pour que cela fonctionne, dans mon cas c'était rajouter "numlignevide +1"
Donc mon code maintenant fonctionne et ressemble à ca

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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
Sub comparateur()
 
Dim numlignevide As Integer
numlignevide = ActiveSheet.Columns(1).Find("").Row
Sheets("comparateur").Activate
 
    If Cells(5, 2) = Cells(5, 1) And Sheets("calculateur").Cells(11, 3) < Sheets("comparateur").Cells(10, 2) Then
        Sheets("synthese").Cells(numlignevide, 5).Value = Sheets("COMPARATEUR").Cells(10, 2).Value
        Sheets("synthese").Cells(numlignevide, 7).Value = Sheets("COMPARATEUR").Cells(5, 2).Value
        Sheets("synthese").Cells(numlignevide, 4).Value = Sheets("COMPARATEUR").Cells(4, 2).Value
        Sheets("synthese").Cells(numlignevide, 3).Value = Sheets("COMPARATEUR").Cells(3, 2).Value
        Sheets("synthese").Cells(numlignevide, 1).Value = Sheets("DOMICILE").Cells(1, 1).Value
        Sheets("synthese").Cells(numlignevide, 2).Value = Sheets("EXTERIEUR").Cells(1, 1).Value
        numlignevide = numlignevide + 1
    End If
 
 
   If Cells(6, 2) = Cells(6, 1) And Sheets("calculateur").Cells(11, 3) < Sheets("comparateur").Cells(10, 2) Then
        Sheets("synthese").Cells(numlignevide, 5).Value = Sheets("COMPARATEUR").Cells(10, 2).Value
        Sheets("synthese").Cells(numlignevide, 7).Value = Sheets("COMPARATEUR").Cells(6, 2).Value
        Sheets("synthese").Cells(numlignevide, 4).Value = Sheets("COMPARATEUR").Cells(4, 2).Value
        Sheets("synthese").Cells(numlignevide, 3).Value = Sheets("COMPARATEUR").Cells(3, 2).Value
        Sheets("synthese").Cells(numlignevide, 1).Value = Sheets("DOMICILE").Cells(1, 1).Value
        Sheets("synthese").Cells(numlignevide, 2).Value = Sheets("EXTERIEUR").Cells(1, 1).Value
        numlignevide = numlignevide + 1
    End If
 
 
   If Cells(7, 2) = Cells(7, 1) And Sheets("calculateur").Cells(11, 3) < Sheets("comparateur").Cells(10, 2) Then
        Sheets("synthese").Cells(numlignevide, 5).Value = Sheets("COMPARATEUR").Cells(10, 2).Value
        Sheets("synthese").Cells(numlignevide, 7).Value = Sheets("COMPARATEUR").Cells(7, 2).Value
        Sheets("synthese").Cells(numlignevide, 4).Value = Sheets("COMPARATEUR").Cells(4, 2).Value
        Sheets("synthese").Cells(numlignevide, 3).Value = Sheets("COMPARATEUR").Cells(3, 2).Value
        Sheets("synthese").Cells(numlignevide, 1).Value = Sheets("DOMICILE").Cells(1, 1).Value
        Sheets("synthese").Cells(numlignevide, 2).Value = Sheets("EXTERIEUR").Cells(1, 1).Value
        numlignevide = numlignevide + 1
    End If
 
 
    If Cells(8, 2) = Cells(8, 1) And Sheets("calculateur").Cells(11, 3) < Sheets("comparateur").Cells(10, 2) Then
        Sheets("synthese").Cells(numlignevide, 5).Value = Sheets("COMPARATEUR").Cells(10, 2).Value
        Sheets("synthese").Cells(numlignevide, 7).Value = Sheets("COMPARATEUR").Cells(8, 2).Value
        Sheets("synthese").Cells(numlignevide, 4).Value = Sheets("COMPARATEUR").Cells(4, 2).Value
        Sheets("synthese").Cells(numlignevide, 3).Value = Sheets("COMPARATEUR").Cells(3, 2).Value
        Sheets("synthese").Cells(numlignevide, 1).Value = Sheets("DOMICILE").Cells(1, 1).Value
        Sheets("synthese").Cells(numlignevide, 2).Value = Sheets("EXTERIEUR").Cells(1, 1).Value
        numlignevide = numlignevide + 1
    End If
 
 
    If Cells(9, 2) = Cells(9, 1) And Sheets("calculateur").Cells(11, 3) < Sheets("comparateur").Cells(10, 2) Then
        Sheets("synthese").Cells(numlignevide, 5).Value = Sheets("COMPARATEUR").Cells(10, 2).Value
        Sheets("synthese").Cells(numlignevide, 7).Value = Sheets("COMPARATEUR").Cells(9, 2).Value
        Sheets("synthese").Cells(numlignevide, 4).Value = Sheets("COMPARATEUR").Cells(4, 2).Value
        Sheets("synthese").Cells(numlignevide, 3).Value = Sheets("COMPARATEUR").Cells(3, 2).Value
        Sheets("synthese").Cells(numlignevide, 1).Value = Sheets("DOMICILE").Cells(1, 1).Value
        Sheets("synthese").Cells(numlignevide, 2).Value = Sheets("EXTERIEUR").Cells(1, 1).Value
        numlignevide = numlignevide + 1
    End If
 
 Sheets("accueil").Activate
 
 End Sub

Donc comme vous pouvez le voir il s'agit d'un tableau à 5 lignes (chaque cellules de chaques lignes correspondant à une condition if, le nombre de colonnes n'a pas forcement d'importance pour le moment (ça viendra après ) car j'aimerais apprendre à faire une boucle. Vous m'avez suggérez "for i=5 next" ceci étant je vous avoue n'avoir pas réussi à faire marcher le code avec ceci ne sachant pas comment cela fonctionne.
Effectivement je remarque que dans mon code seul 3 éléments changes à chaque fois, le numéro des lignes dans la condition if et le numéro de ligne dans le 3eme ligne de code, ces 3 numéros de lignes correspondant toujours. Dans ce cas je pense pouvoir simplifiez mon code par un stratagème en l'occurrence une boucle mais je ne sais ni comment la placer, ni comment l’arrêter.
Pourriez vous me donner une petite aide ou me conseiller un petit didacticiel compréhensible pour un amateur?
Je souhaiterai faire par moi pour comprendre et apprendre donc s'il et possible de ne pas me faire le code mais de m'orienter simplement je vous en serai très reconnaissant

Cordialement

[nicdodo]

Bon ben j'ai reussi ma boucle come un grand c'est bon j'ai compris comment ça marché encore merci

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
Sub comparateur()
 
Dim numlignevide As Integer
numlignevide = ActiveSheet.Columns(6).Find("").Row
Sheets("comparateur").Activate
   For i = 5 To 9
   Cells(i, 2).Select
   If Cells(i, 2) = Cells(i, 1) And Sheets("calculateur").Cells(10, 3) < Sheets("comparateur").Cells(10, 2) Then
        Sheets("synthese").Cells(numlignevide, 10).Value = Sheets("COMPARATEUR").Cells(10, 2).Value
        Sheets("synthese").Cells(numlignevide, 12).Value = Sheets("COMPARATEUR").Cells(i, 2).Value
        Sheets("synthese").Cells(numlignevide, 11).Value = Sheets("calculateur").Cells(11, 3).Value
        Sheets("synthese").Cells(numlignevide, 9).Value = Sheets("COMPARATEUR").Cells(4, 2).Value
        Sheets("synthese").Cells(numlignevide, 8).Value = Sheets("COMPARATEUR").Cells(3, 2).Value
        Sheets("synthese").Cells(numlignevide, 6).Value = Sheets("DOMICILE").Cells(1, 1).Value
        Sheets("synthese").Cells(numlignevide, 7).Value = Sheets("EXTERIEUR").Cells(1, 1).Value
        numlignevide = numlignevide + 1
    End If
next
 
sheets("accueil").activate 
end sub

[clementmarcotte]

Bonjour,

Tu peux même zigouiller cette ligne-là sans crainte:

Code :

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

 Cells(i, 2).Select

Tu peux presque toujours agir sur une cellule sans obligatoirement la sélectionner. Surtout que quand tu boucles sur des cellules, ou des feuilles, la sélection, ou l'activation à répétition fait perdre du temps.

La sélection et l'activation sont avantageuses quand tu dois faire plusieurs actions (à la suite) sur le même objet. Mais là, puisque tu fais une seule action sur chaque cellule, l'adressage suffit amplement.