Transformer une adresse .address en range
Résolu
phileas25
Messages postés
7
Statut
Membre
-
phileas25 Messages postés 7 Statut Membre -
phileas25 Messages postés 7 Statut Membre -
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
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
-
Bonjour,
Comme ceci:
Dim position As String position = Replace("$b$4", "$", "") Range(position).Interior.Color = 65535
-
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
