XL 2010 Résolu par DoubleZéro et Cathodique : exécution code uniquement si feuille active = Feuil2

[Usine à gaz]

Bonjour à toutes et à tous,

Toujours et encore dans mon fichier de travail, un nouveau problème voit le jour.
Malgré mes recherches je n'ai pas trouvé comment écrire le bon code pourtant si petit (je suis toujours presque nul LOL).

Mon besoin
Je suis dans la feuil2 et je fais une recherche. (code dans le fichier test)
- Quand le code trouve ma cible dans la Feuil2, je lui demande de formater la ligne de ma cible à hauteur 130.
- Je voudrais que le code ne s'exécute pas (pas de hauteur à 130) quand il trouve dans une autre feuille.

Le fichier que je joins est une excellente recherche faite par Roland et modifiée pour mes besoins.
Cette recherche est vraiment super pour moi.
Encore un grand merci à Roland pour cette super recherche.

Voici la partie du code qui plante :

If ActiveSheet = "Feuil2" Then
            Selection.RowHeight = 130
            End If

Je joins le fichier test.

Un grand merci pour votre aide.
Bonne fin de journée à toutes et à tous,
Amicalement,
Lionel,

 

[DoubleZero]

Bonjour, arthour973 , le Forum,

Peut-être ainsi...

Dans le module de l'onglet "Feuil2" :

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Rows.AutoFit
End Sub

Pour la hauteur de ligne :

          If ActiveSheet.Name = "Feuil2" Then
            Selection.RowHeight = 130

A bientôt

P. S. : Bonjour, cathodique

 

[cathodique]

Salut Arthour978
comme ceci

If ActiveSheet.Name = "Feuil2" Then

Pas encore fini ton fichier? j'attends pour en profiter.

edit: Pas vu, Bonjour Double00

 

[Usine à gaz]

Bonjour DoubleZéro,
Bonjour Cathodique,

Merci pour m'avoir répondu et aussi vite
Malheureusement ça na fonctionne pas
Je continue mes recherches,
Amicalement,
Lionel,

 

[DoubleZero]

Re-bonjour,

...Malheureusement ça na fonctionne pas...

Mais encore ?

A bientôt

 

[Usine à gaz]

LOL il ne se passe rien, la ligne trouvée en feuil2 n'est pas formatée à hauteur 130

 

[Usine à gaz]

Re-DoubleZéro,

C'est bon, ça fonctionne sans mettre de code dans le module de l'onglet "Feuil2".
Un grand merci encore à vous et à Cathodique

Cathodique : encore bcp de choses à faire dans le fichier mais ça finira par être terminé LOL
Amicalement,
Lionel,