Transformer une adresse .address en range

Résolu/Fermé
phileas25
Messages postés
6
Date d'inscription
vendredi 11 mars 2016
Statut
Membre
Dernière intervention
11 octobre 2016
- 29 mars 2016 à 16:07
phileas25
Messages postés
6
Date d'inscription
vendredi 11 mars 2016
Statut
Membre
Dernière intervention
11 octobre 2016
- 30 mars 2016 à 16:13
Bonjour,

J'ai encore besoin d'un coup de main j'ai obtenu l'adresse d'une cellule avec la fonction find, le systeme me renvoit "$b$4"j'aimerai faire un offset depuis cette cellule, mais il semble que je ne puisse pas utiliser la reconse comme tel. Peux t on remplacer l'info "$b$4" par un range?

merci d'avance

2 réponses

cs_Le Pivert
Messages postés
7743
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
9 mai 2022
709
29 mars 2016 à 17:12
Bonjour,

Comme ceci:

Dim position As String
position = Replace("$b$4", "$", "")
Range(position).Interior.Color = 65535

0
phileas25
Messages postés
6
Date d'inscription
vendredi 11 mars 2016
Statut
Membre
Dernière intervention
11 octobre 2016

30 mars 2016 à 16:12
Merci beaucoup d'avoir pris un peu de temps, j'ai reussi a faire ce que je voulai
0
pijaku
Messages postés
12257
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
3 septembre 2021
2 694
30 mars 2016 à 08:37
Bonjour,

j'ai obtenu l'adresse d'une cellule avec la fonction find

Dans ce cas, pourquoi chercher l'adresse de la cellule plutôt que la cellule elle même?
Find renvoie un objet Range, ça tombe plutôt bien...

Regarde ceci :

Sub test()
Dim maVal As String, monRange As Range
maVal = "toto"
Set monRange = Sheets("Feuil1").Columns(2).Cells.Find(maVal)
If Not monRange Is Nothing Then
    'ici tu fais ton offset, par exemple :
    monRange.Offset(0, 2) = "titi"
Else
    MsgBox "Pas trouvé " & maVal & " en colonne B Feuil1"
End If
End Sub
0
phileas25
Messages postés
6
Date d'inscription
vendredi 11 mars 2016
Statut
Membre
Dernière intervention
11 octobre 2016

30 mars 2016 à 16:13
Merci beaucoup pijaku, c'est exactement ce que je cherchais
0