Discussion :

[frunch]

Bonjour à tous,
C'est encore moi
J'ai fait un agenda qui doit pouvoir m'afficher 3 noms de rdv dans une cellule sous celle d'une date.
J'essaye avec un array mais pas moyen (message "incomptabilité de type" sale type)

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
Sub moisSuiv()
    Dim list As Variant, c%, drn3%, i%, j%, k%, ws1 As Worksheet, ws2 As Worksheet, ws3 As Worksheet
    Application.ScreenUpdating = False
    Set ws3 = Sheets("RDV")
    Set ws2 = Sheets("listes")
    Set ws1 = Sheets("Planning")
    drn3 = ws3.Range("A2").End(xlDown).Row
 
'Indiquer les noms des RDV
        c = 0
    For j = 2 To 8
        For i = 5 To 15 Step 2
            For k = 2 To drn3
                If ws3.Range("C" & k).Value = ws1.Cells(i, j).Value Then
                        list(c) = Mid(ws3.Range("B" & k).Value, 1, 10)
                        MsgBox list(c)
                        c = c + 1
                End If
            Next k
            list = Array(list(0), list(1), list(2))
            ws1.Cells(i + 1, j).Value = list
        Next i
    Next j
    Application.ScreenUpdating = True
End Sub

Merci de votre aide
forum.xlsm

[Philippe Tulliez]

Bonjour,
Voici un exemple pour écrire dans une même cellule les valeurs contenues dans une variable tableau

Code :

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

1
2
3
4
5
6
7
Sub t()
  Dim t As Variant
  Dim r As Range
  Set r = ThisWorkbook.Worksheets("Planning").Range("B3")
  t = Array("Toto", "Titi", "Tata")
  r.Value = Join(t, vbLf)
End Sub

[EDIT]
Autre exemple avec une table à deux dimensions

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
Sub t2()
  Dim r As Range
  Dim t(2, 2)
  Dim l(2)
  Dim s As String
  Dim e1 As Byte, e2 As Byte
  Set r = ThisWorkbook.Worksheets("Planning").Range("B3")
  t(0, 0) = "Toto": t(0, 1) = "Local 1": t(0, 2) = "lundi"
  t(1, 0) = "Titi": t(1, 1) = "Local 2": t(1, 2) = "lundi"
  t(2, 0) = "Tata": t(2, 1) = "Local 3": t(2, 2) = "lundi"
  For e1 = LBound(t) To UBound(t)
    For e2 = LBound(t, 2) To UBound(t, 2)
      l(e1) = l(e1) & IIf(e2 > LBound(t, 2), ", ", "") & t(e1, e2)
    Next
  Next
  r.Value = Join(l, vbLf)
  Set r = Nothing
End Sub

A lire éventuellement Utiliser les variables tableaux en VBA Excel

[frunch]

Bonjour Philippe,
Merci de ta réponse rapide.
Ton exemple et les tutos que j'ai trouvé partent tous d'un array remplit.
Et aprés la correction du code selon la 1ére dimension, j'ai toujours l'incompatibilité de type comme message.
J'arrive à remplir 2 rangs sur le mois précédent sans array, mais il faudrait que je remplisse l'array pour 3.
Merci

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
    Dim r As Range, list As Variant, c%, drn3%, i%, j%, k%, ws1 As Worksheet, ws2 As Worksheet, ws3 As Worksheet
'autoriser les evenements
    Application.ScreenUpdating = False
    Set ws3 = Sheets("RDV")
    Set ws2 = Sheets("listes")
    Set ws1 = Sheets("Planning")
    drn3 = ws3.Range("A2").End(xlDown).Row
'Indiquer les noms des RDV
        c = 0
    For j = 2 To 8
        For i = 5 To 15 Step 2
            For k = 2 To drn3
                If ws3.Range("C" & k).Value = ws1.Cells(i, j).Value Then
                        list(c) = Mid(ws3.Range("B" & k).Value, 1, 10)
                        MsgBox list(c)
                        c = c + 1
                End If
            Next k
            list = Array(list(0), list(1), list(2))
             r.Value = Join(list, vbLf)
            ws1.Cells(i + 1, j).Value = r.Value
        Next i
    Next j

forum.xlsm

[Philippe Tulliez]

Bonjour,
J'ai publié deux exemples dont un avec deux dimensions et j'ai testé les codes avant publication.

[EDIT]
A quoi sert cette ligne de code list = Array(list(0), list(1), list(2)) ?
A quelle ligne d'instruction avez-vous le message d'erreur "incompatibilité de type" ?
Avez-vous utilisé les outils de débogage ?

[frunch]

Bonjour à tous,
Bon j'ai trouvé une solution maison avec des variables pour remplir l'array.

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
    Dim r As Range, list As Variant, a$, b$, c$, drn3%, i%, j%, k%, ws1 As Worksheet, ws2 As Worksheet, ws3 As Worksheet
'autoriser les evenements
    Application.ScreenUpdating = False
    Set ws3 = Sheets("RDV")
    Set ws2 = Sheets("listes")
    Set ws1 = Sheets("Planning")
    drn3 = ws3.Range("A2").End(xlDown).Row
'Indiquer les noms des RDV
    For j = 2 To 8
        For i = 5 To 15 Step 2
            For k = 2 To drn3
                If ws3.Range("C" & k).Value = CDate(ws1.Cells(i, j).Value) And a = "" Then
                        a = Mid(ws3.Range("B" & k).Value, 1, 10)
                ElseIf ws3.Range("C" & k).Value = CDate(ws1.Cells(i, j).Value) And b = "" Then
                        b = Mid(ws3.Range("B" & k).Value, 1, 10)
                ElseIf ws3.Range("C" & k).Value = CDate(ws1.Cells(i, j).Value) And c = "" Then
                        c = Mid(ws3.Range("B" & k).Value, 1, 10)
                End If
            Next k
            Set r = ws1.Cells(i + 1, j)
            list = Array(a, b, c)
            r.Value = Join(list, vbLf)
            a = ""
            b = ""
            c = ""
        Next i
    Next j

Cà peut intéresser qqu'un.
forum.xlsm