VBA, Excel, Macro et Conditions

Bonjour,

Voici mon problème, et j'espère que vous pourrez m'aider.

Sur Excel, j'ai un tableau de B5 à C15. La ligne 5 correspond à mes en-têtes.

En B:B, j'ai une macro que lorsqu'on clique sur une cellule, une MacroA InputBox apparaît demandant de remplir soit par "CP" soit par du texte libre.

En C:c, j'aimerais que si la cellule de gauche, en B:B, affiche CP, déclencher la MacroB, sinon la MacroC.

Est-ce que vous pourriez m'éclairer sur ce point?

Cordialement,

Guillaume

Bonjour

Ton explication n'est pas claire, tu remplis où, en Col B ou en Col C?

Si tu rentres ton texte en colonne B Code de Feuille

Private Sub Worksheet_Change(ByVal Target As Range) 
If Not Application.Intersect(Target, Range("B6:B15")) Is Nothing Then 
If Target.Value="CP" Then 
Call MacroB
elseiF Target.Value<>"CP" Then 
Call MacroC
End If 
End Sub 

Maintenant, si pas ça, soit un peu plus précis

Cordialement

Merci beaucoup, je vais tester ça, et reviens vers toi d'ici demain... Je file à la maison!

Bonne soirée!

-- 09 Mai 2011, 18:46 --

Merci beaucoup, je vais tester ça, et reviens vers toi d'ici demain... Je file à la maison!

Bonne soirée!

Bonjour!

Merci pour ta réponse, cependant, je suis pas encore un as du VBA et ton code n'avait pas l'air de fonctionner, ou je suppose que c'est moi qui n'ai pas réussi à le faire fonctionner. Je te propose ici le code sur lequel je travaille...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("B6:B20000")) Is Nothing Then
Call NomEntreprises
End If

If Not Application.Intersect(Target, Range("C6:C20000")) Is Nothing Then
If Target.Value = "CP" Then
Call ObtenirInfosRéférence
Else Target.Value <> "CP" Then
Call NuméroContrat
End If
End Sub

Si nécessaire, je peux te filer une copie du fichier en question.

Cordialement,

Guillaume

-- 10 Mai 2011, 10:52 --

Ok, ben en fait en me creusant la cervelle, j'ai trouvé:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("B6:B20000")) Is Nothing Then
Call NomEntreprises
End If

If Not Application.Intersect(Target, Range("C6:C20000")) Is Nothing Then
    If ActiveCell.Offset(0, -1).Value = "CP" Then
        Call ObtenirInfosRéférence
        Else: Call NuméroContrat
    End If
End If
End Sub