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
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
A voir également:
- Transformer une adresse .address en range
- Darkino nouvelle adresse - Guide
- Rechercher ou entrer l'adresse - Guide
- Adresse mac - Guide
- Créer une adresse hotmail - Guide
- Adresse IP locale : comment la trouver facilement - Guide
2 réponses
cs_Le Pivert
Messages postés
7903
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
11 mars 2024
728
29 mars 2016 à 17:12
29 mars 2016 à 17:12
Bonjour,
Comme ceci:
Comme ceci:
Dim position As String
position = Replace("$b$4", "$", "")
Range(position).Interior.Color = 65535
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 744
30 mars 2016 à 08:37
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 :
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
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
30 mars 2016 à 16:13
Merci beaucoup pijaku, c'est exactement ce que je cherchais
30 mars 2016 à 16:12