VBA - Excel, Macros et Conditions...

Salut,

Oui, bien sûr. Je suppose que ta MacroA s'appelle en fait Worksheet_Change(). C'est dans cette macro qu'il te faudra faire le tri. J'entends par là détecter la colonne courante (aide-toi du paramètre Target), pour exécuter le code correspondant.

Bonjour Zeb!

En effet c'est du Worksheet_Change(). Cependant, je suis pas encore un as du VBA. 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

Ah non pas de copie de fichier. Imagine qu'un salaud se déguise en pauv' programmeur malheureux, et qu'il mette ici un lien vers un fichier plein de macro-virus !!! Pour décourager ces gens-là, pas de lien, pas de filage de copie  

Ben il est vraiment pas mal ton code. Maintenant, il faut que tu découvres la méthode Offset() et tu auras ta solution. Je te laisse regarder, puis nous proposer ta soluce. Si tu as un peu de mal, je te montre.

EDIT: Sauf que ton code est mal indenté. Et donc il manque un If, un End If, etc. A revoir.
EDIT2: Rholala... Par principe, évite les lettres accentuées dans tes noms de macro.

Ok j'accepte le défi, je tente de corriger mes erreurs, et te remercie des conseils  

A tout à l'heure!

Que ça marche ? Non. C'est à toi de vérifier  
Que c'est comme ça qu'il fallait faire ? Oui.

Regarde et étudie ce que je t'avais préparé :

Dim zone_de_donnees As Range

 
Set zone_de_donnees = Range(Rows(6), Rows(Rows.Count))

If Intersect(Target, zone_de_donnees) Is Nothing Then Exit Sub

 
Select Case Target.Column

    Case 2 ' // Colonne B

        NomEntreprises

    Case 3 ' // Colonne C

        If Target.Offset(, -1).Text = "CP" Then

            ObtenirInfosRéférence

        Else

            NuméroContrat

        End If

End Select

Meilleure réponse sélectionnée par zeb.