Démarrer macro sur condition SI

Bonjour j'aurais souhaiter démarrer une macro sur une condition SI.

Le but est que SI sur "page1" cellule "B6" est différente de 0, "alors" la "ligne 6" sur "page1" prend une hauteur de "30". Mais la cellule "B6" se rempli lorsque je suis sur "page2". Je ne veux pas un retour sur page 1 pour que cela s'opère.

J'ai trouvé ça su internet

Fonction

Function unit1()

Rows("6:6").Select

Selection.RowHeight = 22.5

End Function

et sur A6 en page 1 j'ai mit ma condition:

=SI(b6>0;unit1();"")

Actuellement quand la cellule B6 se rempli, il ne se passe rien, lorsque j'exécute la fonction depuis vba la ligne prends bien la bonne hauteur. Ma fonction fonctionne, mais la condition ne sait pas l’exécuter.

Si y'a des pros dans le coin.....

Merci

AlainB

Bonjour AlainB,

Une version à tester avec un double-clic sur n'importe quelle colonne B de n'importe quelle feuille

Si la cellule B6 est différente de zéro, alors le double-clic enclenche la macro unit1.

Code sur Workbook pour être exécuter de n'importe quelle feuille

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
  If Target.Column = 2 Then      ' Si le double-clic s'effectue sur la 2ème colonne, Alors,exécute unit1
    Cancel = True
    unit1
  End If  'Fin de la condition SI
End Sub

La macro unit1 modifiée

Sub unit1()
'ActiveSheets.Select

 Sheets("Feuil1").Select
 ActiveCell.Range("B6").Select
 If ActiveCell.Value >= 0 Then
Rows("6:6").Select
Selection.RowHeight = 50
 ActiveCell.Range("A6").Select
 Sheets("Feuil2").Select
    ActiveCell.Range("A1").Select

End If
End Sub

Amicalement

Pierrot

Le fichier oublié