Discussion :

[BtjpsspgrW]

Bonjour,

Cellule Source : Dans la feuille 1, cellule B17, le mot CLASSEUR
Cellule Destination : Dans la feuille 2, cellule C1, je souhaiterais récupérer le mot CLASSEUR, et dans la zone de texte, y voir apparaître =Feuil!B17

Sachant que je veux utiliser

Code :

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

1
2
3
4
Sub macro()
 ActiveCell.Offset(0, 1).Select
ActiveCell = ???
End Sub

, car la cellule active de la Feuille 1 se déplace vers le bas et vers la droite.
Contrairement à la feuille 2, cette cellule est fixe.

Comment rédiger cette syntaxe sur la zone ??? ?

Vous en remerciant par avance.

Cordialement.

[casefayere]

Bonsoir,

Je ne comprends pas ta demande, cherches-tu le mot "Classeur" dans une colonne pour affecter son adresse à C1 de l'autre feuille ?, si oui, un exemple à adapter

Code :

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

1
2
3
4
5
6
7
8
9
Sub nnn()
Dim DerCel As Range, lemot As Range
With Sheets("Feuil1")
  Set DerCel = .Range("B" & .Rows.Count).End(xlUp)
  Set lemot = .Range("B1", DerCel).Find("classeur")
End With
  If Not lemot Is Nothing Then Sheets("Feuil2").Range("C1") = lemot.Address
 
End Sub

ou suivant ce que tu veux

Code :

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

1
2
3
4
5
6
7
8
Sub nnn()
Dim DerCel As Range, lemot As Range
With Sheets("Feuil1")
  Set DerCel = .Range("B" & .Rows.Count).End(xlUp)
  Set lemot = .Range("B1", DerCel).Find("classeur")
  If Not lemot Is Nothing Then Sheets("Feuil2").Range("C1").FormulaLocal = "=" & .Name & "!" & Replace(lemot.Address, "$", "")
End With
End Sub

Pas sur que ce soit ça que tu demandes !