Discussion :

[marie33000]

Bonjour tout le monde, j'ai un petit soucis pour écrire un code .

Je souhaite pouvoir vérifier une opération de soustraction. Je m'explique:
- je dispose de donnée dans une colonne excel (colonne A)
- cette colonne est rempli chiffres (type double)
- je souhaite vérifier la soustraction (b-a= 1.5 par exemple)
- mettre dans la colonne E par exemple les valeurs correspondantes de b et a.

Voici un exemple pour que cela soit plus clair :

Colonne A
1
2
3.5
5
8.5
10

Dans la colonne E il y aura
2
3.5
8.5
10

Car:
3.5-2= 1.5
b-a = 1.5
donc on les met dans la colonne E

De même : 10-8.5= 1.5
On met 10 et 8.5 dans la colonne E


Voilà voilà, si quelqu'un à une idée qui pourrait m'aider je suis preneuse.

Merci par avance

[Krovax]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim i As Integer
Dim j As Integer
 
For i = 1 To Range("A65536").End(xlUp).Row
    For j = i+1 To Range("A65536").End(xlUp).Row
        If Abs(Cells(i, 1) - Cells(j, 1)) = 1.5 Then
            Cells(i, 5) = Cells(i, 1)
            Cells(j, 5) = Cells(i, 1)
        End If
    Next j
Next i

données initiales en colonne 1
résultats en colonne 5

Une chtite erreur de ma part quand tu m'avais posé la question, cette version devrais marcher

[marie33000]

Bonjour vous

Je viens d'essayer ton code mais ca me met une erreur à la ligne :

Code :

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

If Abs(Cells(i, 1) - Cells(j, 1)) = 1.5 Then

--> "incompatibilité de type"

Je ne comprend pourquoi ça me met ça

[Krovax]

Parce qu'il ne reconnait pas le contenue des cellules (pas des nombre)
Regarde le i qui corespond a ton erreur et regare la valeur de la ligne qui correspond

Regarde si ce code te fait un message

Code :

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

1
2
3
4
5
6
Dim i As Integer
For i = 1 To Range("A65536").End(xlUp).Row
        If Not (IsNumeric(Cells(i, 1))) Then
              MsgBox ("Lav aleur de la ligne " & i & " n'est pas numérique")
        End If
Next i

Si oui sur une ligne avec des nombre remplace les . par des , ou inversement

(ou modifie dans les option ton identificateur de décimale, je ne sais pas ou sur 2007)

[marie33000]

Oui en effet, c'était parce qu'il fallait commencer le i à '2' et non pas à '1'...

Par contre il n'y a plus d'erreur à présent mais ça ne m'affiche pas les résultats dans une autre colonne.
Lorsque je clique sur le bouton il a l'air de rechercher les valeurs car le bouton reste appuyé puis dès qu'il a fini il n'y a rien...

J'ai testé avec une autre valeur et ça a l'air de marcher un peu quand même.
Voici mon test (avec b-a=1)

Colonne A

2
3
8
9
11
15
23
24


Réponse colonne E

2
2
8
8


23
23


Il ne récupère en fait que la valeur du 'a' et non du 'b'

[Krovax]

le deuxième code ne fait quelque chose que si il y a une valeur non numérique.

sinon essaye celui la (que l'on sache si ca marche)

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
 
Dim i As Integer
Dim j As Integer
Dim test As Boolean
 
test = True
For i = 1 To Range("A65536").End(xlUp).Row
    For j = i+1 To Range("A65536").End(xlUp).Row
        If Abs(Cells(i, 1) - Cells(j, 1)) = 1.5 Then
            Cells(i, 5) = Cells(i, 1)
            Cells(j, 5) = Cells(j, 1)  'je m'étais planté ici désolé
            test = False
        End If
    Next j
Next i
If test Then
    MsgBox "Aucune valeur ne corespondant au critère n'a étét trouvé"
else 
    MsgBox "Des valeurs ont bien été trouvée"  'facultatif celui là
End If

edit je viens de voir ton messag le code est corigé