Discussion :

[lionel94]

Bonjour à tous
je suis nouveau ici, je vous explique mon problème:
j'ai un code que j'arrive pas à faire marcher:

Je souhaite incrémenter la valeur d'une cellule à chaque fois que le contenu de cette cellule est compris dans une plage.
(du genre: si E4=2 et que 2 est dans ma plage, faire E4=3 et si 3 est dans la plage, faire E4=4 jusu'à ce que la valeur de E4 est différente de toutes les valeurs de ma plage)

Voilà le code qui me met "erreur type":

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 recherche()
Dim a As Range, mad As Date, plage As Range, cell As Range
Set plage = Range("B3:B127")
mad = Range("E2") + Range("E3")
Cells(4, "E") = mad
For Each cell In plage
    Do
Set a = Range("B3:B127").Find(Range("E4"), Range("B3"))
        If Not Range("B3:B127") Is Nothing Then
        Cells(4, "E") = mad + 1
        End If
    Loop Until Cells(4, "E") <> plage.Value
Next cell
End Sub

[casefayere]

Bonjour,

sans refléchir plus loin, cette partie m'étonne

Code :

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

1
2
    Set a = Range("B3:B127").Find(Range("E4"), Range("B3"))
        If Not Range("B3:B127") Is Nothing Then

je remplacerais par

Code :

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

1
2
    Set a = Range("B3:B127").Find(Range("E4"), Range("B3"))
        If Not a Is Nothing Then

[Invité]

Bonjour,
tu compares une cellule a une plage de cellules?

Cellule <> de CelluleS

Code :

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

Cells(4, "E") <> plage.Value ' Range("B3:B127")

[casefayere]

Suite à ma 1ere remarque et à la remarque de rdurupt, j'aurais écrit comme ça

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 recherche()
Dim a As Range, mad As Date, plage As Range, cell As Range
Set plage = Range("B3:B127")
mad = Range("E2") + Range("E3")'ici c'est ton problème
Cells(4, "E") = mad
For Each cell In plage
  Set a = plage.Find(Range("E4"), Range("B3"))
  If Not a Is Nothing Then
    Cells(4, "E") = mad + 1
  Else
    Exit For
  End If
Next cell
End Sub

[lionel94]

c'est çà rdurupt, la comparaison doit être faite et le résultat incrémenter

Merci Casefayer,
mais le soucis c'est que çà me donne une valeur qui est déjà comprise dans ma plage.
il faut une boucle For afin que toute les fois que le résultat est compris dans la plage, ce résultat soit incrémenté

Le problème c'est que je dois également vérifier si mad+1 n'est pas dans la plage aussi, je dois utiliser un loop until mais je connais pas le code svp

[Invité]

utilise un dictionary!

[lionel94]

Ok rdurupt!
j'ai insérer une boucle Do et çà me met: Erreur de compilation "boucle sans Do"

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 recherche()
Dim a As Range, mad As Date, plage As Range, cell As Range
Set plage = Range("B3:B127")
mad = Range("E2") + Range("E3")
Cells(4, "E") = mad
For Each cell In plage
        Do
    Set a = Range("B3:B127").Find(Range("E4"), Range("B3"))
        If Not a Is Nothing Then
        Cells(4, "E") = mad + 1
        Loop Until Cells(4, "E").Value <> plage.Value
        Else
    Exit For
    End If
Next cell
End Sub

[Marc-L]

Bonjour, bonjour !

Tu as inséré ton bloc Do … Loop au milieu d'un bloc If … End If d'où l'erreur ‼




__________________________________________________________________________________________________
Tous unis, tous Charlie

[lionel94]

ok, mais du coup je dois faire comment?
je m'y connais pas vraiment en Vba et c'est la galère pour moi

Incompatibilité de type.....

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 recherche()
Dim a As Range, mad As Date, plage As Range, cell As Range
Set plage = Range("B3:B127")
mad = Range("E2") + Range("E3")
Cells(4, "E") = mad
    For Each cell In plage
        Do
        Set a = Range("B3:B127").Find(Range("E4"), Range("B3"))
            If Not a Is Nothing Then
            Cells(4, "E") = mad + 1
            Else
            End If
        Loop Until Cells(4, "E") <> plage.Value
    Exit For
    Next cell
End Sub

[Invité]

tu fais une boucle de ta plage et du fais next Cell!!! Next Plage, mais tu n'a pas besoin de précise le Next

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 recherche()
Dim a As Range, mad As Date, plage As Range, cell As Range
Set plage = Range("B3:B127")
mad = Range("E2") + Range("E3")'ici c'est ton problème
Cells(4, "E") = mad
For Each cell In plage
  Set a = plage.Find(Range("E4"), Range("B3"))
  If Not a Is Nothing Then
    Cells(4, "E") = mad + 1
  Else
    Exit For
  End If
Next 
End Sub

[Docmarti]

Bonjour

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
 
Sub rerecherche_001()
Dim a As Range, mad As Date, plage As Range
 
Set plage = Range("B3:B127")
mad = Range("E2") + Range("E3")
Cells(4, "E") = mad
 
ok = True
Do While ok = True
 
For Each cell In plage
 If cell = Range("E4") Then
  Range("E4") = Range("E4") + 1
  ok = True
  Exit For
 Else
  ok = False
 End If
Next
 
Loop
 
MsgBox Range("E4") & " non trouvé"
 
End Sub

[lionel94]

Merci beaucoup Docmarti pour votre intervention, votre code fait exactement ce que je veux.

Je suis très hereux, encore merci à tous