Problème de cellule

Version imprimable

Problème de cellule

Bonjour,

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

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.

25/06/2007, 13h37
patbou
rebonjour
y a eu comme un petit pb
je disais
comment a tu declaré ta variable frac
Code:

1 2 3 dim frac as variant frac = " lemotachercher"
25/06/2007, 13h39
Lavip

frac est un nombre Single
25/06/2007, 13h49
patbou

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

Voilà

Code:

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

25/06/2007, 14h15
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 ?
25/06/2007, 14h21
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.
25/06/2007, 14h31
illight

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

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

Code:

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:

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

25/06/2007, 14h36
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:aie:
Merci qd meme, j'essai de revenir.