Discussion :

[Hadi2015]

Bonjour,

Je suis débutant sur VBA, plusieurs jours que je cherche sur le net une solution pour mon problème.
J’ai un certain nombre de variables que je souhaite insérer leurs valeurs dans la plage [C4 :N15].

Les valeurs de la première variable doivent commencer de C4 jusqu’à C15 et je veux que mon programme parcours [C4 :C15], pour détecter la première cellule vide sur cette plage et affecter la valeur de cette variable à cette cellule vide et ainsi de suite jusqu’à C15 .

Merçi Merçi d’avance !

[Thautheme]

Bonjour Hadi, bonjour le forum,

Tu n'es pas très explicite... Voilà comment je verrais les choses :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Sub Macro2()
Dim v1 As Byte 'déclare la variable v1 (type à adapter à ton cas)
Dim v2 As Byte 'déclare la variable v2 (type à adapter à ton cas)
Dim v3 As Byte 'déclare la variable v3 (type à adapter à ton cas)
Dim v4 As Byte 'déclare la variable v4 (type à adapter à ton cas)
Dim v5 As Byte 'déclare la variable v5 (type à adapter à ton cas)
Dim v6 As Byte 'déclare la variable v6 (type à adapter à ton cas)
Dim v7 As Byte 'déclare la variable v7 (type à adapter à ton cas)
Dim v8 As Byte 'déclare la variable v8 (type à adapter à ton cas)
Dim v9 As Byte 'déclare la variable v9 (type à adapter à ton cas)
Dim v10 As Byte 'déclare la variable v10 (type à adapter à ton cas)
Dim v11 As Byte 'déclare la variable v11 (type à adapter à ton cas)
Dim v12 As Byte 'déclare la variable v12 (type à adapter à ton cas)
Dim TV As Variant 'déclare la variable TV (Tableau de Variables)
Dim COL As Byte 'déclare la variable COL (COLonne)
Dim I As Byte 'déclare la variable I (Incrément)
 
'définit les variables v1 à v12 (à adapter à ton cas)
v1 = 1: v2 = 2: v3 = 3: v4 = 4: v5 = 5: v6 = 6: v7 = 7: v8 = 8: v9 = 9: v10 = 10: v11 = 11: v12 = 12
TV = Array(v1, v2, v3, v4, v5, v6, v7, v8, v9, v10, v11, v12) 'définit le tableau de variables TV
COL = 3 'initialise la colonne COL
For I = LBound(TV) To UBound(TV) 'boucle 1 : sur toutes les variables TV(I) du tableau TV
    For J = 4 To 15 'boucle 2 : sur toutes les lignes J de 4 à 15
        If Cells(J, COL) = "" Then 'condition : si la cellule ligne J colonne COL est vide
            Cells(J, COL) = TV(I) 'renvoie la variable TV(I) dans la cellule ligne J colonne COL
            COL = COL + 1 'inrémente la colonne COL
            Exit For 'sort de la boucle 2
        End If 'fin de la condition
    Next J 'prochaine ligne de la boucle 2
Next I 'prochaine variable de la boucle 1
End Sub

[Hadi2015]

Bonjour,
Ça marche très très bien Thauthème je vous remercie infiniment c’est très gentil !
Cordialement !

Désolé j'ai pas fais attention
Je suis Charlie