Traduire en VBA une condition

Bonsoir,

Je vous expose ce problème qui me permettra de terminer un petit programme.

Comme rédiger le code VBA avec les conditions suivantes :

J'ai la cellule L6 d'une feuille excel qui devra contenir les informations des cellules :

I20 et A20 (si I20 de vide on ne tient pas compte de A20) + I21 et A21 (si I21 de vide on tient pas compte de A21)+ I22 et A22 (si I22 de vide on tient pas compte de A22).

Merci.

Bonsoir
Essaies de reformuler ton explication.

En fait cela ressemblerai à la formule suivante (présente en L6) :

Code:

---

=CONCATENER("1" & I20; "2" & I21; "3" & I22)

---

Cette formule fonctionne SAUF que si en I20 il n'y a rien de saisi je voudrai que le 1 ne s'affiche pas.

Merci.

Code:

---

=CONCATENER(SI(I20="";"";A20 & I20); SI(I21="";"";A21 & I21); SI(I22="";"";A22 & I22))

---

Merci pour ta réponse mais moi j'ai trouvé cette formule et qui fonctionne.

=CONCATENER(SI(I20<>"";"1" & I20;"");SI(I21<>"";"2" & I21;"");SI(I22<>"";"3" & I22;""))

Cette formule je voudrai la traduire en code VBA et la pour moi en tant qu'amateur je sais pas faire.

Merci.

Pour commencer, un petit code pédagogique est simpliste

Code:

---

1 2 3 4 5 6 7 8

Sub Essai() Dim Res As String   If Range("I20") <> "" Then Res = 1 & Range("I20") If Range("I21") <> "" Then Res = Res & 2 & Range("I21") If Range("I22") <> "" Then Res = Res & 3 & Range("I22") Range("L6") = Res End Sub

---

Merci beaucoup.

Juste pour mes connaissance : que veut dire Res ?

Merci.

Code:

---

1 2 3 4 5 6 7 8

Sub Essai2() Dim NimporteQuelNomDeVariable As String   If Range("I20") <> "" Then NimporteQuelNomDeVariable = 1 & Range("I20") If Range("I21") <> "" Then NimporteQuelNomDeVariable = NimporteQuelNomDeVariable & 2 & Range("I21") If Range("I22") <> "" Then NimporteQuelNomDeVariable = NimporteQuelNomDeVariable & 3 & Range("I22") Range("L6") = NimporteQuelNomDeVariable End Sub

---

Regarde d'abord les tutoriels pour commencer.

Edit:
Ici dans cette discussion et dans la réponse #6 de Kiki, tu as 3 liens intéressants.

En tout cas merci pour tes explications et ta patience.

Demain je concevrai mon petit programme avec ces informations.

Bonne nuit.:ccool: