Bonsoir à tous
Me revoici avec mes problèmes de lignes et de feuilles
Sub LigneFeuille()
Dim Lg As Long
Lg = ActiveCell.Row
MsgBox (" VOUS AVEZ CONSULTER LA LIGNE " & Lg)
Sheets("sheets2").Activate
Range("a" & Lg).Select
End Sub
Ce petit programme fonctionne très bien.
J'ai maintenant un autre problème.
Voici mon message d'origine
MsgBox ActiveCell.Value & " DEPEND DE L'ARRONDISSEMENT " & ActiveCell.Offset(0, 1)
& " TELEPHONE " & ActiveCell.Offset(0, 2)
Est-il possible d'afficher ce message à cheval sur 2 feuilles : du genre.
« Attention ! ! ! !, J'INVENTE UNE SYNTAXE pour mieux me faire comprendre »
MsgBox ActiveCell.Value & " DEPEND DE L'ARRONDISSEMENT " & sheets(feuil2).select.ActiveCell.Offset(0, 1) & " TELEPHONE " & ActiveCell.Offset(0, 2)
Merci d'avance pour votre aide.
Novicevba45