Sinon hein, de manière générale, écrire une formule dans une cellule par programmation se fait de la même façon que directement dans le tableur avec Range("la cellule") = "=A9*A11*A10" admettant que A9, A11 et A10 représentent respectivement l'aire, la longueur (ou largeur) et la densité...

Et comme tu débutes en VB(A) je te conseille de commencer tous tes scripts par l'instruction

Option Explicit

Merci bcp Posotaz
tu m'aide beaucoup sur le point du : .text que je n'avais pas vu

Maintenant dans le meme principe je voudrais:

If Range("A1").Text = "Client A" Or "Client Z" Or "Client DE" ... Then
Range("D4") = "paiement sous 10 jours"
End If

Helas cela ne fonctionne pas

Me revoila en pleine recherche :)

If Range("A1").Text = "Client A" Then
Range("D4") = "paiement sous 10 jours"
End If
If Range("A1").Text = "Client Z" Then
Range("D4") = "paiement sous 10 jours"
End If

Jusque la sa marche mais j'ai une liste de 500 Client y aurait il quelque chose de plus simple?

Merci d'avance

Bonjour,

Tu peux essayer d'automatiser ta recherche de condition en passant par une fonction :

ex :

dans ton code générale tu aurais ceci :

Range("D4") = fReturnCondition (Range("D1").Text)

et la fonction aurait cette tete :

Function fReturnCondition (sClient As String) As String

Dim sCondition As String

Evaluate sClient

When "Client A"
sCondition = "paiement sous 10 jours"

When "Client B"
sCondition = "paiement sous 20 jours"

When "Client C"
sCondition = "paiement sous 10 jours"

.
.
.
.

When "Client Z"
sCondition = "paiement sous 10 jours"

Else
sCondition = "Client inexistant"

EndEvaluate

Return sCondition

EndFunction

Sa m'eleve deja beaucoup de ligne je te remercie.
Helas il me reste tou de meme 500 clientS a taper
Existe il une limite de taille (je m'explique):

If Range("A1").Text = "Client A" Or Range("A1").Text= "Client Z" Or Range("A1").Text ="Client DE" ... Then
Range("D4") = "paiement sous 10 jours"
End If

j'ai vu que cela marchait pour 10 x Or mais puis je mettre les 500 ?

Ou peu etre me mettre en relation avec les données de la combobox non ?
Existe il un code pour:

Combobox ---> Rowsource Feuil1!A1:A500
et mettre en relation avec Feuil1!B1:B500
Avec A1 correspond a B1

J'espere que je me suis fais comprendre :s

Sûr que tu peux le faire, mais je ne t'explique pas la lisibilté et le maintient de ton code par la suite.

Si je comprend bien tu as plusieurs Clients auquels tu veux accorder une et une seule condition.

Tu as une liste de Client dans une combobox. A partir de Quoi construis cette combo (fichier Excel, Table Clients d'une Base de donnée, ...) ?

J'ai une liste de client sous exel en feuil3!A1:A500

En Feuil3!B1:B500 jai leurs conditions de paiement

En Feuil3!C1:C500 j'ai encore une donnee

j'ai construit la combobox sous exel afin que le choix defini par l'operateur remplisse un tableau sous la feuille 2

Pas trouver de solution :'(
Je me tape les 500 a ecrire :s
Et je vous avoue... C'est long et emm....

Merci pour votre aide en tout cas

Je viens de relire ton pb de depart et je l'associe à ton dernier post. Voilà ce que j'en ai compris :

- Dans la meme feuille excel tu as une liste de client en colonne A associé à des conditions en colonne B. La colonne A permet de construire ta ComboBox.

- Le Choix d'un client effectué dans la ComboBox doit te retourner la condition associé de la colonne B qui doit etre affiché dans une cellule spécifique.

Ai je compris ton pb ?

Tout a fait

Eh bien voilà ... tt les éléments sont rassemblés ...

Le choix dans la ComboBox te retourne le Client. Avec le Client retourné tu recherches la ligne correspondante dans la colonne A. Lorsque tu as la ligne correspondante tu te deplace de +1 pour etre sur la colonne B et d'avoir la condition associée pour ce Client. Il te suffit de recupérer cette valeur pour l'afficher dans la cellule spécifique ... CQFD

CQFD Tu as trouver la reponse mais ... tu le traduit comment en language vb :s
Merci Merci Merci pour ton aide

Aïe ...

Je ne suis pas très expert en VBA ...

Mais grosso modo cela devrait donner ceci :

- Choix dans la ComboBox du Client te retourne la valeur texte.

- Avec cette valeur texte, rechercher en colonne A de la feuille contenant la liste des Clients la ligne correspondante.

- Lorsque la ligne est trouvé, incrémenté de +1 sur la colonne pour se positionné en colonne B => correspondance avec la condition associé à ce Client.

- retourné la valeur texte de la colonne B dans la celulle spécifique.

CQFD ?

Sa ma lair correct mais je ne sais pas le faire en vb

J'espere que quelqu'un pourra me le traduire en tout cas merci bcp ShaBoo.

Lool je ne me connecterai plus jamais avec ce pseudo quand je taurai montrer ou j'en suis ^^ :

Private Sub Recherche()

Dim sClient As String

Range("R1").Text = sClient

sClient.Find ("feuil3!J1:J500")

If sClient = Range("Feuil3!J(i)").Text Then
With 0 < i < 500
End If

End sub


laisser moi au moin une excuse:
Je me suis mis au vb depuis moin de 10 jours mais je vais y arriver ...

'Sub Recherche()
'Dim Plage As Range
'Dim sClient As String
'Range("R1")=sClient
'Set Plage = sClient.Find("Feuil3!J1:J500")
'Plage.Select
'Do Until Plage Is Nothing
'If Is Nothing Then
'Exit Do
'Loop
'End Sub


Bon j'espere que je progresse :s