Eclatement des cellules excel

albertvbaexcel Messages postés 7 Date d'inscription lundi 20 septembre 2004 Statut Membre Dernière intervention 17 octobre 2005 - 24 juin 2005 à 22:00
K_SoZe Messages postés 39 Date d'inscription dimanche 8 mai 2005 Statut Membre Dernière intervention 8 juillet 2005 - 25 juin 2005 à 15:55
bonjour,

je dois éclater des données dans un document excel selon la logique:

donnees coll A coll b
1 - vbbrance 2 - acces aussi c
2 - excel 3 - c dur au debut
3 - probleme serieux

au final je dois avoir

1 - vbbrance dans une cellule
2 - excel 2 - acces aussi c dans une 2eme cellule
3 - probleme serieux 3 - c dur au debut dans une 3eme

merci

1 réponse

K_SoZe Messages postés 39 Date d'inscription dimanche 8 mai 2005 Statut Membre Dernière intervention 8 juillet 2005 20
25 juin 2005 à 15:55
Bonjour,



Remplace sheet1 par feuille1 dans le code si tu bosses sur la version française d'office



Dim var As String

Dim var2 As String

Dim var3 As String

Dim var4 As String





'Tu affectes la valeur de tes cellules à des variables string



var = Worksheets("Sheet1").Range("A2").Value

var2 = Worksheets("Sheet1").Range("A3").Value

var3 = Worksheets("Sheet1").Range("B2").Value

var4 = Worksheets("Sheet1").Range("B3").Value





'Tu réaffectes ces variables aux cellules de destination



Worksheets("Sheet1").Range("E1").Value = Worksheets("Sheet1").Range("A1").Value

Worksheets("Sheet1").Range("E2").Value = var & " " & var3 & ""

Worksheets("Sheet1").Range("E3").Value = var2 & " " & var4 & ""
0
Rejoignez-nous