Discussion :

[d0n32]

Bonjour à tous !

Je souhaiterais développer un programme permettant de comparer deux valeurs sur différents feuillets. Je m'explique.

Sur un feuillet, je dispose du nom d'un site à visiter, avec une durée de transport pour le rejoindre, communiquée par un tiers.
Sur un second feuillet, je dispose des durées usuelles pour effectuer le trajet propre à un site.

Je souhaiterais vérifier que les durées mentionnées sur le feuillet 1 correspondent aux durées usuelles renseignées sur le feuillet 2 (+/- 10%).
J'ai codé le programme ci-dessous pour essayer de répondre à ce besoin (en sélectionnant initialement la colonne des durées du feuillet 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
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
Sub Test()
 
Dim cel1 As Range
Dim cel2 As Range
Dim site As String
Dim site2 As String
Dim duree1 As Double
Dim duree2 As Double
Dim i As Double
 
 
For Each cel1 In Selection
 
site = cel1.Offset(0, -3).Value
site2 = Worksheets("Feuil2").Cells(1, cel1.Row).Value
 
    If site2 = site Then
 
        duree2 = Worksheets("Feuil2").Cells(2, cel1.Row).Value
 
    End If
 
 
    If duree2 > 1.1 * cel1.Value Then
 
        cel1.Interior.ColorIndex = 3
 
     ElseIf duree2 < 0.9 * cel1.Value Then
 
        cel1.Interior.ColorIndex = 2
 
    Else
 
        cel1.Interior.ColorIndex = 1
 
    End If
 
Next
 
 
End Sub

Qu'en pensez-vous ? (mis à part que ça ne semble pas fonctionner tel quel, à l'heure actuelle )
Merci d'avance de votre aide !

[d0n32]

Re,

Quelques questions basiques, je pense pouvoir m'en tirer pour le reste

J'ai une erreur quand je compile à la ligne suivante :

Code :

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

1
2
3
4
5
 
...
For Each cel3 In Worksheets("Feuil2").Columns(1)
site2 = cel3.Value
...

L'erreur est "Incompatibilité de type". site2 est un String, cel3 une cellule contenant un string.

J'ai déjà codé le même genre d'affectation dans mon programme, sans que cela génère une erreur. Quid ?

Deuxième (et dernière ) p'tite question, je souhaiterais indiquer une plage de cellule à parcourir pour ma boucle For. J'ai essayé un truc du genre :

Code :

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

For Each cel3 In Worksheets("Feuil2").Cells(1 , 2:Range("A2").End(xlDown))

sans grand succès. Je n'ai pas réussi à trouver de syntaxe appropriée pour le moment..

Merci d'avance !

[CODYCO]

Bonjour

As tu bien déclarer cel3?

Code :

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

Dim cel3 As Range

Idem pour ta 2eme Question

Code :

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

1
2
3
4
Dim Zone1 As Range
Set Zone1 = Range("A1:A100)
 
For Each cell In Zone1...

[d0n32]

Bonjour, et merci de ta réponse ! J'ai bien réussi à résoudre mon problème..

J'ai un petit souci de syntaxe.
Via le code ci-dessous, je récupère le numéro de la dernière ligne non vide.
Je cherche ensuite à sélectionner la colonne D, de la ligne 2 à la dernière ligne non vide. J'ai écrit le code suivant :

Code :

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

1
2
3
4
5
 
il = Worksheets("Feuil1").Cells(65535, 4).End(xlUp).Row
cel3 = "D" & il
cel4 = Range(cel3)
Range("D2:cel4").Select

Le résultat retourné est surprenant : il me sélectionne la plage D2:XFD4 !
Où est l'erreur ?

Merci encore.. !

[mercatog]

Bonsoir
Il y a au moins 2 erreurs, l'une de syntaxe et l'autre de fonctionnement
J'écrirais comme ceci (je ne sélectionne pas les plages, c'est déconseillé du moment qu'on peut travailler directement avec). Exemple

Code :

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

1
2
3
4
5
6
Dim iL As Long
 
With Worksheets("Feuil1")
    iL = .Cells(.Rows.Count, 4).End(xlUp).Row
    .Range("D2:D" & iL).Interior.ColorIndex = 6
End With

[d0n32]

Merci, ça fonctionne déjà beaucoup moins sans faute

Beaucoup mieux pardon, vous aurez compris