Discussion :

[henrylandes]

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.

[mercatog]

Bonsoir
Essaies de reformuler ton explication.

[henrylandes]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=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.

[mercatog]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[henrylandes]

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.

[mercatog]

Pour commencer, un petit code pédagogique est simpliste

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[henrylandes]

Merci beaucoup.

Juste pour mes connaissance : que veut dire Res ?

Merci.

[mercatog]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[henrylandes]

En tout cas merci pour tes explications et ta patience.

Demain je concevrai mon petit programme avec ces informations.

Bonne nuit.