Discussion :

[Tototarn1]

Bonjour,

Dans une macro, après l'utilisation d'une rechercheV, je souhaite modifier le contenu de la cellule trouvée.

....................Date S1
Ilot 1 .......16/02/2015
Ilot 2 .......17/02/2015
Ilot 3.......18/02/2015
Ilot 4 .......19/02/2015
Ilot 5 .......20/02/2015

Code :

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

1
2
3
4
5
6
7
Sheets("Variables").Select
 
Sheets(a).Name    ' est l'onglet d'où est lancé la macro  soit Ilot 1, Ilot 2 ,... ou Ilot 5
 
'détermine la valeur correspondant au nom de val :
 
 f = Application.VLookup(Sheets(a).Name, ActiveSheet.Range("A1:B6"), 2, False)

si Ilot 3 => f prend bien la valeur 18/02/2015

mais ensuite, je souhaite modifier cette valeur, et, je n'arrive pas à récupérer l'adresse...

Merci

[Thautheme]

Bonjour Toto, bonjour le forum,

Peut-être avec un variable de type Range et la fonction Find

Code :

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

1
2
3
4
5
6
Sub Macro1()
Dim R As Range
 
Set R = ActiveSheet.Columns(1).Find("Ilot 3", , xlValues, xlWhole)
If Not R Is Nothing Then R.Offset(0, 1).Value = "2015-02-18"
End Sub

[geogeo70]

bonjour,

Voilà une réponse qui correspond à ce que j'ai compris de votre demande... Il faudra bien sûr adapter aux feuilles du classeur :

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
Sub adresse_choix()
Dim feuille As String
Dim ws As Worksheet
Dim data As Range
Dim d As Date
Dim ligne As Integer
 
'A vous de redéfinir le choix de feuille
feuille = "Ilot 3"
 
Set ws = Worksheets("Feuil1")
Set data = ws.Range("A2:B6")
 
d = Application.WorksheetFunction.VLookup(feuille, data, 2, False)
 
'recherche de la ligne du résultat
ligne = Application.WorksheetFunction.Match(feuille, ws.Range("A2:A6")) + 1
 
End Sub

Tout ceci pouvait être sans VBA et Equiv!

Geogeo70