Microsoft 365 utiliser des listes en VBA

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 14 Mars 2024

• #2

Bonjour Simon,
On peut faire :

VB:

Sub Macro1()
Source = Array("a6", "c2", "e7")            ' Déclaration tableau source
Destination = Array("n10", "b12", "a33")    ' et destination
For i = 0 To UBound(Source)                 ' Les tableaux commencent en 0, Ubound donne la fin
    Range(Destination(i)) = Range(Source(i)).Value
Next
End Sub

 

Vote positif 1 Vote négatif

S

Simon 1234

XLDnaute Junior

• 14 Mars 2024

• #3

C'est parfait, j'étais pas très loin. Merci ca fonctionne parfaitement, ça va faire du ménage dans mon code ^^

Bon et si je veux faire ça dans l'autre sens:

Sub Macro2()

copcol1 = Array("a1", "b1")
copcol2 = Array("a2", "c1")
copcol3 = Array("a3", "d1")

For i = 1 To 3
Range("copcol&i"(2) = Range("copcol&i"(1)).Value
Next

End Sub

 

Vote positif 0 Vote négatif

S

Simon 1234

XLDnaute Junior

• 14 Mars 2024

• #4

sylvanu à dit:

Bonjour Simon,
On peut faire :

VB:

Sub Macro1()
Source = Array("a6", "c2", "e7")            ' Déclaration tableau source
Destination = Array("n10", "b12", "a33")    ' et destination
For i = 0 To UBound(Source)                 ' Les tableaux commencent en 0, Ubound donne la fin
    Range(Destination(i)) = Range(Source(i)).Value
Next
End Sub

Cliquez pour agrandir...

encore un grand merci à toi, ça fait tourner le code teeeelllleeeement plus vite

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 14 Mars 2024

• #5

Simon 1234 à dit:

Bon et si je veux faire ça dans l'autre sens:

Cliquez pour agrandir...

Peut être avec :

VB:

Sub Macro2()
Colpol = Array("a1", "b1", "a2", "c1", "a3", "d1")
For i = 0 To 5 Step 2
    Range(Colpol(i)) = Range(Colpol(i + 1))
Next
End Sub

ou encore avec Cells(Ligne,Colonne) :

Code:

Sub Macro3()
    For Colonne = 2 To 4
        Cells(Colonne - 1, 1) = Cells(1, Colonne)
    Next Colonne
End Sub

 

Vote positif 0 Vote négatif

Solution

S

Simon 1234

XLDnaute Junior

• 14 Mars 2024

• #6

Merci pour le coup de pouce

 

Vote positif 0 Vote négatif