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?

 

[Pierrot93]

Re : Range avec variable

Ok, pas de problème...

 

[Misange]

Re : Range avec variable

Re

l'espace ne pose pas de problème. Ce qui en posait c'était le nom de la feuille...

 

[TempusFugit]

Re : Range avec variable

@Misange
Mais il n'est pas utile qu'il soit là, non ?
Normalement il devrait pas y en avoir.

 

[Misange]

Re : Range avec variable

@TempusFugit
peu importe ! excel sait tout à fait interpréter les espaces. Perso j'en ajoute par exemple très souvent dans des formules pour m'en simplifier la lecture et la correction. Idem dans VBA. Je voulais juste dire que la source de l'erreur ne venait pas du tout de cet espace mais bien de l'erreur sur le nom de la feuille.

 

[Toug]

Re : Range avec variable

Re,
En fait ça marche bien sauf si une seule cellule "En Cours" est trouvée dans chaque chapitre.
Si y'a qu'une cellule, j'ai une erreur "Variable objet ou variable de bloc With non définie" sur la ligne

Loop While Not c Is Nothing And c.Address <> firstAddress

snif

 

[Pierrot93]

Re : Range avec variable

Re,

modifie comme suit :

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)
            If c Is Nothing Then Exit Do
          Loop While c.Address <> firstAddress
    End If
End With
End Sub

 

[Toug]

Re : Range avec variable

Re,

modifie comme suit :

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)
            If c Is Nothing Then Exit Do
          Loop While c.Address <> firstAddress
    End If
End With
End Sub

Bravo! Franchement tu maitrises. Tu pourrais m'expliquer vite fait ce que font tes modifications?
le lookat:=xlpart, et la modif de la condition de sortie du Do Loop.
Encore merci.

 

[Pierrot93]

Re : Range avec variable

Re,

"xlpart", la valeur recherchée peut être une partie de la cellule... si le contenu doit corespondre exéctement mettre "xlWhole ".. Pour la sorie, si la recherche suivante (FindNext) n'a rien donnée, la variable "c" se trouve initialisée à "nothing", si c'est le cas sortie de la boucle "do loop"...