Range avec variable

[Toug]

Je souhaite choisir un range en utilisant deux variable.
En gros je voudrais l'utiliser pour faire une recherche dans la colonne A entre les lignes pointés par les variables D3 et D4.

Voici ce que j'utilise:
Range("A" & D3 & ":A" & D4)

Mais lorsque j'effectue la recherche, il me fait également la recherche aprés la ligne D4.

Y'aurait-il une erreur dans le Range?

 

[Toug]

Re : Range avec variable

Voici un extrait de mon fichier avec les données utiles

 

[Pierrot93]

Re : Range avec variable

Bonjour,

essaye comme ceci :

Sub test2()
Dim D3 As Integer
Dim D4 As Integer
D3 = 7
D4 = 27
entité = "En Cours"
With Sheets("Feuil1").Range("A" & D3 & ":A" & D4)
    Set c = .Find(entité, LookIn:=xlValues, lookat:=xlPart)
    If Not c Is Nothing Then
      firstAddress = c.Address
          Do
            MsgBox (c.Address)
            Set c = .FindNext(c)
          Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
End With
End Sub

bon après midi
@+

 

[Misange]

Re : Range avec variable

Bonjour

Plusieurs choses :
1) évite absolument de fusionner des cellules dans excel, il n'y a pas plus sur moyen de mettre le foutoir dans un classeur. Centre sur plusieurs colonnes, arrange visuellement tes données si tu tiens à cette présentation mais c'est une source de problèmes qu'on voit à maintes reprises sur les forums
2) évite aussi +++ de donner comme nom de variable ce qui ressemble à une adresse de cellule, là encore c'est une grande source de confusion

Sub test2()
Dim deb As Integer
Dim fin As Integer
deb = 7
fin = 27
entité = "En Cours"
With Worksheets("feuil1").Range("A" & deb & ": A" & fin)
Set c = .Find(entité, LookIn:=xlValues)
If Not c Is Nothing Then
  firstAddress = c.Address
      Do
        MsgBox (c.Address)
        Set c = .FindNext(c)
      Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With

End Sub

edit : oups ! trop tard ! salut Pierrot

 

[Toug]

Re : Range avec variable

J'ai une erreur "Impossible de lire la propriété FindNext de la classe Range" sur la ligne

Set c = .FindNext(c)

 

[TempusFugit]

Re : Range avec variable

Bonjour

Il y un espace en trop dans le :

With Worksheets("feuil1").Range("A" & deb & ":A" & fin)

 

[Toug]

Re : Range avec variable

J'avais juste oublié de changer le nom de la feuille,
J'ai modifié le poste avec la nouvelle erreur que j'ai :-(

 

[TempusFugit]

Re : Range avec variable

Bonjour de nouveau



Tu as vu mon précédent message ?
Tu as supprimé l'espace ?

 

[Toug]

Re : Range avec variable

Oui je l'ai supprimé.
et j'ai eu l'erreur juste aprés
Mais la je ne comprend pas, je l'ai plus...

 

[Pierrot93]

Re : Range avec variable

Re,

le code que je t'ais donné fonctionne chez moi sur le fichier que tu as joins....

 

[TempusFugit]

Re : Range avec variable

Tu as essayé avec le code de Pierrot93 ?

(Car dans son code il n'y avait d'espace en trop)

 

[Pierrot93]

Re : Range avec variable

Tu as essayé avec le code de Pierrot93 ?

(Car dans son code il n'y avait d'espace en trop)

c'est ce que je viens de dire....

 

[TempusFugit]

Re : Range avec variable

Désolé d'avoir posté dans la même minute que la tienne Pierrot93 (14h03)

 

[Pierrot93]

Re : Range avec variable

Re

pas top de parler à la place des autres...;

 

[TempusFugit]

Re : Range avec variable

@pierrot93
On est sur un forum non ?

On peut signaler une erreur de syntaxe ou une coquille si on en voit une.

Je n'ai fais que cela.