msgBOX

[akramenergie]

bonjour mes amis qlq un pourais me dire ou est la baitise dans le code suivant
je veut que a chaque fois que je seléctine la feuil matrice des livrable dans mon fichier excel un messagbox s'affiche. voila le code que j'ai tapez Merci

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Sheets("11_Matrice livrables").Select Then

MsgBox "bonjour"
End If

End Sub

 

[sousou]

Re : msgBOX

Bonjour
essaie
If Sheets("11_Matrice livrables").activateThen

MsgBox "bonjour"
End If

 

[Manu62]

Re : msgBOX

MsgBox "bonjour"
End If

Moi je dirais

MsgBox ("bonjour")

A++

Manu

 

[Excel-lent]

Re : msgBOX

Bonjour Akramenergie, le fil,

Sinon, il y a le code ci-dessous qui fonctionne bien :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If ActiveSheet.Name = "11_Matrice livrables" Then
    MsgBox "bonjour"
End If

End Sub

Macro à placer sur la feuille "11_Matrice livrables" (si tu place la macro ailleur, elle ne fonctionnera pas).

Mettre le "bonjour" entre parenthèse n'est pas une obligation. Les deux fonctionne.

Bonne journée à tous

 

[sousou]

Re : msgBOX

Heu....
Plutôt
dans ta feuille ..matricelivrable (vb) tu ajoute cette macro.

Private Sub Worksheet_Activate()
MsgBox "bonjour"
End Sub

 

[Robert]

Re : msgBOX

Bonjour Akramenergie, Sousou, bonjour le forum

Peut-être avec cette macro à mettre dans le composant ThisWorkbook :

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Name = "11_Matrice livrables" Then MsgBox "bonjour"
End Sub

Édition :

Bonjour Manu, Excel-lent, on s'est croisé...

 

[akramenergie]

Re : msgBOX

Merci les amis de votre aide c'est genti

 

[Efgé]

Re : msgBOX

Bonjour akramenergie,Robert, sousou, Excel-lent, Manu62, tous le monde...
Une proposition à mettre dans le code de la feuille "11_Matrice livrables":

Private Sub Worksheet_Activate()
MsgBox "Bonjour"
End Sub

Tout bête, quoi....😉
Cordialement

 

[Manu62]

Re : msgBOX

Bjr,

Celui fonctionne très bien chez moi aussi juste a changer par "activate"

Private Sub Worksheet_Activate()
If Sheets("11_Matrice livrables").Activate Then

MsgBox "bonjour"
End If

End Sub

ou

Private Sub Worksheet_Activate()

MsgBox "bonjour"

End Sub



A++

Manu