Discussion :

[Lavip]

Bonjour,

Voici mon programme qui doit renvoyer la position de la cellule contenant la valeur de la variable frac :

Code :

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

1
2
3
4
5
6
7
8
9
With Worksheets(2).Range("a5:a44")
    Set c = .Find(frac, LookIn:=xlValues)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
End With

Or ca ne marche pas alors que si je remplace frac par 2 par exemple ca merche pouvez-vous m'aider merci.

[patbou]

rebonjour
y a eu comme un petit pb
je disais
comment a tu declaré ta variable frac

Code :

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

1
2
3
 
dim frac as variant
frac = " lemotachercher"

[Lavip]

frac est un nombre Single

[patbou]

j ai essayé ton code
chez moi il marche
peut tu montrer ton code en entier

[Lavip]

Voilà

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
Sub Nbsujet()
 
Dim n As Long
Dim alpha As Single
Dim frac As Single
Dim frac1 As Single
Dim npas As Single
Dim Address As String
 
alpha = Worksheets(1).Range("I19").Value
frac = (Int(Round(alpha, 2) * 10)) / 10
frac1 = Round(alpha, 2) - frac
 
npas = Worksheets(1).Range("F11").Value
If npas <> 0.1 And npas <> 0.05 Then
  Call MsgBox("Le pas doit être de 0,1 ou 0,05", vbCritical Or vbOKOnly)
  Exit Sub
End If
 
If npas = 0.1 Then pas = 6 Else pas = 14
 
With Worksheets(2).Range("a5:a44")
    Set c = .Find(frac, LookIn:=xlValues)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
End With
 
Worksheets(4).Range("A5").Value = Address

[illight]

Juste par curiosité, tu as essayé de mettre des flag dans ton code pour voir la valeur que prend ta variable frac ?

Tu met des msgbox juste avant de prendsre la valeur pour voir combien il vaut, car si avec une valeur ça marche, c'est que tu as un soucis avec cette variable

Pourquoi tu m'as mise en Single d'ailleurs ? pourquoi pas en integer ou en long ?

[Lavip]

C'est une variable avec 2 chiffre après la virgule et quand je fais debugg pas pas je vois qu'elle a bien une valeur.

[illight]

si c'est un chiffre a virgule, met la en double déja pour voir ce que ça donne

[patbou]

j ai essayé ton code en mettant un msgbox apres la 1ere recherche

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Set c = .Find(frac, LookIn:=xlValues)
    If Not c Is Nothing Then
        firstaddress = c.Address
        MsgBox firstaddress  'l address de la 1ere cellule trouvée fonctionne
        Do
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstaddress
    End If
End With

par contre je ne vois pas l affectation de la variable address

Code :

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

1
2
 
Worksheets(1).Range("A5").Value = Address

[Lavip]

C'est normale je dois reformuler cette ligne

Je vais essayer de voir pour le reste mais là mon bosse m'a donnée un autre taff!
Arf
Merci qd meme, j'essai de revenir.