écriture en VBA

Résolu
jack2125 Messages postés 457 Date d'inscription jeudi 5 septembre 2019 Statut Membre Dernière intervention 21 mars 2025 - 17 févr. 2025 à 18:24
jack2125 Messages postés 457 Date d'inscription jeudi 5 septembre 2019 Statut Membre Dernière intervention 21 mars 2025 - 18 févr. 2025 à 08:32

Bonjour, a tous 

j'utilise cet algorithme ou je force les valeurs rang1...rang 2...etc

plutot que de les écrire je souhaiterais aller les prendre en K1 L1 M1 N1 pour rang 1

En K2 L2 M2 N2 pour rang 2

K3 L3 M3 N3 pour rang 3

K4 L4 M4 N4 pour rang 4

K5 L5 M5 N5 POUR RANG 5

 DevelopperCombinaisons()
    Dim rang1 As Variant
    Dim rang2 As Variant
    Dim rang3 As Variant
    Dim rang4 As Variant
    Dim rang5 As Variant
    
    ' Définir le s valeurs pour chaque rang
    rang1 = Array(1, 17, 28, 35)
    rang2 = Array(7, 8, 16, 39)
    rang3 = Array(4, 22, 32, 36)
    rang4 = Array(8, 15, 27, 30)
    rang5 = Array(3, 11, 13, 19)

quel serait la formule a écrire

merci a tous


Windows / Edge 133.0.0.0


2 réponses

M-12 Messages postés 1332 Date d'inscription lundi 22 septembre 2008 Statut Membre Dernière intervention 18 février 2025 285
18 févr. 2025 à 07:57

Bonjour

Teste ceci

    rang1 = Array(Range("K1"), Range("L1"), Range("M1"), Range("N1"))
    rang2 = Array(Range("K2"), Range("L2"), Range("M2"), Range("N2"))
    rang3 = Array(Range("K3"), Range("L3"), Range("M3"), Range("N3"))
    rang4 = Array(Range("K4"), Range("L4"), Range("M4"), Range("N4"))
    rang5 = Array(Range("K5"), Range("L5"), Range("M5"), Range("N5"))
1
jack2125 Messages postés 457 Date d'inscription jeudi 5 septembre 2019 Statut Membre Dernière intervention 21 mars 2025
18 févr. 2025 à 08:32

merci super


0