Sujet Précédent Sujet Suivant

Code VBA : Données de plusieurs cellules dans une cellule

Résolu
cs_thomasdu40 Messages postés 22 Date d'inscription vendredi 20 août 2010 Statut Membre Dernière intervention 22 août 2012 - 3 juin 2011 à 21:39
cs_thomasdu40 Messages postés 22 Date d'inscription vendredi 20 août 2010 Statut Membre Dernière intervention 22 août 2012 - 3 juin 2011 à 23:49
Bonsoir,

Deuxième et dernière question ensuite j'essayerai de terminer mon petit programme demain.

Ma question est :

J'ai la cellule L6 qui devra contenir les informations des cellules :

I20 et A20 (si I20 de vide on 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.

2 réponses

Réponse 1 / 2
cs_thomasdu40 Messages postés 22 Date d'inscription vendredi 20 août 2010 Statut Membre Dernière intervention 22 août 2012
3 juin 2011 à 23:49
BOnjour,

Ca y est voici le code VBA : 

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
3
Réponse 2 / 2
cs_thomasdu40 Messages postés 22 Date d'inscription vendredi 20 août 2010 Statut Membre Dernière intervention 22 août 2012
3 juin 2011 à 21:48
J'ai la formule suivante :

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

Comment la traduire en VBA ?

Merci.
0

Discussions similaires

afficher pdf dans userform (vba excel)
37224Scan -
mortalino -

2 réponses
Recuperer le code ASCII d'une lettre
cs_lucio57 -
Gobillot -

5 réponses
Comment fonctionne la fonction FormulaR1C1
cs_razmokets -
wape -

2 réponses
fonction modulo en VBA
krisprolss -
Benouille -

2 réponses
Dernière cellule non vide d'une colonne
cs_falafala -
Luigi13013 -

5 réponses
Rejoignez-nous