RANGE une adresse

**fanmanga** · 10/02/2016, 16h02

Bonjour,

j'ai un souci avec la fonction range.

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
Sub test1()
'déclaration des variables :
Dim Trouve As Range, PlageDeRecherche As Range
Dim Valeur_Cherchee As String, AdresseTrouvee As String
 
'********* à adapter ***********
'affectation de valeurs aux variables :
    'on cherche le mot "Trouve"
Valeur_Cherchee = "LABOR"
    'dans la première colonne de la feuille active
Set PlageDeRecherche = Feuil1.Columns(1)
'*******************************
 
'méthode find, ici on cherche la valeur exacte (LookAt:=xlWhole)
Set Trouve = PlageDeRecherche.Cells.Find(what:=Valeur_Cherchee, LookAt:=xlWhole)
 
'traitement de l'erreur possible : Si on ne trouve rien :
If Trouve Is Nothing Then
  MsgBox "C'est pas un rapport valide"
Else
    'ici, traitement pour le cas où la valeur est trouvée
    AdresseTrouvee = Trouve.Address
    Range(AdresseTrouvee).Select
    Range("A4":AdresseTrouvee).Select
End If
 
Set PlageDeRecherche = Nothing
Set Trouve = Nothing
 
End Sub

La commande Range("A4":AdresseTrouvee).Select marche pas.
En plus je veux faire la sélection depuis A4 jusqu'à AdresseTrouvee-1(si AdresseTrouvee=A28 je vais pointé sur A27 sa reviens a faire Range("A4":A27).Select ).
Merci pour votre réponse.

**Kimy_Ire** · 10/02/2016, 16h07

Bonjour fanmanga,

Essaye comme ceci :

Code :

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

Range(Range("A4"), AdresseTrouvee.Offset(-1, 0)).Select

ou comme cela (je suis moins sûr) :

Code :

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

Range("A4:" & AdresseTrouvee.Offset(-1, 0).Address).Select

Cordialement,
Kimy

**jeanmidudu** · 10/02/2016, 16h12

Si je comprend bien, tu veux faire une recherche dans une colonne, et si tu trouves un mot dans cette colonne, alors tu sélectionne la cellule qui contient la valeur en question.

**fanmanga** · 10/02/2016, 16h24

Envoyé par Kimy_Ire

Bonjour fanmanga,

Essaye comme ceci :

Code :

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

Range(Range("A4"), AdresseTrouvee.Offset(-1, 0)).Select

ou comme cela (je suis moins sûr) :

Code :

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

Range("A4:" & AdresseTrouvee.Offset(-1, 0).Address).Select

Cordialement,
Kimy

ca marche pas erreur qualificateur incorrect.

Envoyé par jeanmidudu

Si je comprend bien, tu veux faire une recherche dans une colonne, et si tu trouves un mot dans cette colonne, alors tu sélectionne la cellule qui contient la valeur en question.

je veux cherche ou se trouve Labor dans colonne A, une fois trouvé je sélectionne de A4 jusqu'à LABOR-1(exemple de A4 jusque A27 ou A28=LABOR)
j'ai fait Range(AdresseTrouvee).Select juste pour tester si je suis sur la bonne case.

**Kimy_Ire** · 10/02/2016, 16h24

Ah oui, je n'avais pas vu que AdresseTrouvee était une chaine de caractères.
Remplace cette variable dans mes exemples par ta variable Trouve qui est une range.

Cordialement,
Kimy