Bonjour à tous!
Je débute en VBA et je me retrouve pour la première fois bloqué sans trouver la réponse que je me pose sur ce très bon forum!
Le problème est le suivant:
Je souhaite rechercher et enregistrer les coordonnées d'une cellule contenant une chaîne de caractère (ici "Nom du projet"). Je voudrais ensuite que lors de l'utilisation de la macro, la cellule se place d'elle même en haut à gauche de ma fenetre excel.
Voila ce que j'ai bidouillé:
Sub test ()
Dim nomprojet As Variant
nomprojet = Worksheets("Fiches d'opération").Range("F1:F300").Cells.Find(What:="Nom du projet").Address
Onglet = ActiveSheet.Name
MakeTopLeft ThisWorkbook.Sheets(Onglet).Cells("nomprojet")
End Sub
Sub MakeTopLeft(R As Range) 'Code pour placer une cellule en haut à gauche de la page
R.Parent.Activate
ActiveWindow.ScrollRow = R.Row
ActiveWindow.ScrollColumn = R.Column
End Sub
Le problème qui apparemment se pose est que la variable nomprojet me renvoi une coordonnée du type $A$1, alors que les coordonnées dans Cells sont à renseigner de manière numérique (type Cells(1,3)).
Merci d'avance!
Je débute en VBA et je me retrouve pour la première fois bloqué sans trouver la réponse que je me pose sur ce très bon forum!
Le problème est le suivant:
Je souhaite rechercher et enregistrer les coordonnées d'une cellule contenant une chaîne de caractère (ici "Nom du projet"). Je voudrais ensuite que lors de l'utilisation de la macro, la cellule se place d'elle même en haut à gauche de ma fenetre excel.
Voila ce que j'ai bidouillé:
Sub test ()
Dim nomprojet As Variant
nomprojet = Worksheets("Fiches d'opération").Range("F1:F300").Cells.Find(What:="Nom du projet").Address
Onglet = ActiveSheet.Name
MakeTopLeft ThisWorkbook.Sheets(Onglet).Cells("nomprojet")
End Sub
Sub MakeTopLeft(R As Range) 'Code pour placer une cellule en haut à gauche de la page
R.Parent.Activate
ActiveWindow.ScrollRow = R.Row
ActiveWindow.ScrollColumn = R.Column
End Sub
Le problème qui apparemment se pose est que la variable nomprojet me renvoi une coordonnée du type $A$1, alors que les coordonnées dans Cells sont à renseigner de manière numérique (type Cells(1,3)).
Merci d'avance!