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.