Empiler des celules

[popy]

Bonjour,

J'essaye d'empilé des cellules mais je n'y arrive pas.....
Je vous pouvoir empiler une cellule sur 2:

Exemple la F2 puis en dessous le G2 puis la F3 puis la G3 ect....

J'ai mis mon fichier en piéce jointe...

Help me please..... 😉

 

[Softmama]

Re : Empiler des celules

Bonjour,
tu le veux par formule ou par macro, et tu veux le résultat où ?

 

[popy]

Re : Empiler des celules

Si je pouvais avoir une solution par formule et une par macro ce serait cool...
Pour mon résultat je le voudrai en E9...

 

[Softmama]

Re : Empiler des celules

Re,

Je te l'ai fait par formule, ça me parait plus simple, cf. resultat en colonne E donc.

 

[Softmama]

Re : Empiler des celules

Re,

Sinon, par macro, ça donne ça:

Sub test()
Dim c As Range, d As Range
Range("E:E").ClearContents
Set c = Range("E2")
Set d = Range("F2")
Do While d <> ""
    c = d
    c(2, 1) = d(1, 2)
    Set d = d(2, 1)
    Set c = c(3, 1)
Loop
End Sub

 

[popy]

Re : Empiler des celules

Merci!!!!!!

Softmama tu es mon Dieu!!!!! 🙂

 

[popy]

Re : Empiler des celules

RE,

Comment je dois faire si je veux que la macro commence ligne 10?

 

[Softmama]

Re : Empiler des celules

re,

dans la macro,
remplace

Set c = Range("E2")

par

Set c = Range("E10")

 

[popy]

Re : Empiler des celules

Désoler de faire la chiasse mais si maintenant je veux empiler mes colonnes D et F en G je dois modifier quoi dans le code?

 

[Softmama]

Re : Empiler des celules

Bonjour,

Ceci à tester :

Sub test()
Dim c As Range, d As Range
Range("G:G").ClearContents
Set c = Range("G1")
Set d = Range("D2")
Do While d <> ""
    c = d
    c(2, 1) = d(1, 3)
    Set d = d(2, 1)
    Set c = c(3, 1)
Loop
End Sub

 

[popy]

Re : Empiler des celules

Merci ca fonctionne, et je l'ai aussi modifié pour d'autre cellules! 😛