Bien le bonsoir ! Pour commencer, sachez que je ne connaissais absolument pas l'existence du vba avant ce vendredi et j'ai découvert ce week-end quelques notions à travers pas mal de tuto et de cours. J'ai alors fait ce code :
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
 
 
Dim l As Integer
 l = 3
Dim i As Integer
  For i = 1 To 5:
    If IsEmpty(Cells(l, 4)) = False Then
      Sheets("Données").Activate
      Range("Cells(l,4):Cells(l,6)").Select
      Selection.Copy
          If IsEmpty(Cells(l, 14)) = False Then
            Dim d As String
                d = Cells(l, 14).Value
            Sheets("Tabl").Activate
            Dim c As Integer
              c = Application.Match(d, Sheets("Tabl").Range(Cells(l, l)), 0)
            Dim cs As Integer
              cs = 3
            While IsEmpty(Cells(c - 1, cs)) = False
              cs = cs + 1
            Wend
            Cells(c - 1, cs).PasteSpecial Paste:=xlPasteValues
            l = l + 1
           End If
    End If
Next
Il est censé récupérer une information sur la ligne l dans un tableau spécifié et ensuite les coller à un endroit spécifique qu'il aurait trouvé, à la base le code devrait faire ceci (en phrase) :


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
 
l = Première ligne étudiée # Ici 3
 
Boucle qui se répète x fois: # x sera choisis lors de l'écriture
* Revenir sur la feuille " Données "
* Si le contenu des colonnes D E F à la ligne l n'est pas vide :
     - Sélectionne et copie le contenu des cellules dans les colonnes D E F à la ligne l
     - Si le contenu à la ligne l et colonne N n'est pas vide :   
           . Aller en ligne l et colonne N et enregistrer le contenu comme d
           . Venir sur la feuille " Tabl "
           . Si d est sur la ligne 1 
               ° Chercher en ligne 1 une correspondance avec la date d et noter la colonne c
               ° Aller en c-1
               ° Descendre jusqu'une case vide
               ° Coller le contenu des cellules copier
               ° Ajouter 1 à l
               ° Revenir à la boucle
           Sinon :
           . Ajouter 1 à l
           . Revenir à la boucle
     Sinon :
     - Ajouter 1 à l
     - Revenir à la boucle
Sinon :
* Ajouter 1 à l
* Revenir à la boucle
mais lorsque je lance la macro, rien ne se passe...Si quelqu'un pourrais fournir de l'aide ça serais avec plaisir !