Sub report()
[COLOR="Blue"]'nom de la variable[/COLOR]
Sheets("Feuil3").Range("A2:F65536").ClearContents
[COLOR="Blue"]'effacement des données de la feuilles 3 en laissant l'entête[/COLOR]
ligne = 2
[COLOR="Blue"]'ma variable 'ligne' pour servir la 2eme ligne de la feuille 3[/COLOR]
num = 1
[COLOR="Blue"]'1er numéro à noter pour réaliser mon autoincrémentation dans la colonne A => si on souhaite commencer à 1[/COLOR]
For n = 2 To Range("A65536").End(xlUp).Row
[COLOR="Blue"]'pour la ligne 2 dans la colonne A, dans la dernière cellule vide[/COLOR]
For m = 2 To 13 Step 3
[COLOR="Blue"]'pour les colonne 2 à 13 les parcourir 3 par 3[/COLOR]
If Cells(n, m) <> "" Then
[COLOR="Blue"]'regarder dans chaque cellule et si une cellule n'est pas vide alors[/COLOR]
Sheets("Feuil3").Cells(ligne, 1) = num
[COLOR="Blue"]'remplir dans la feuille 3 à la cellule (2,1) la variable 'num' soit "1"[/COLOR]
Sheets("Feuil3").Cells(ligne, 2) = Cells(1, m)
[COLOR="Blue"]'remplir la feuille 3 à la cellule (2,2) la valeur de la cellule (1,2) [de la feuille 1][/COLOR]
Sheets("Feuil3").Cells(ligne, 3) = Cells(n, m)
[COLOR="Blue"]'remplir dans la feuille 3 à la cellule(2,3) mettre la valeur de la cellule(2,2)[de la feuille 1][/COLOR]
Sheets("Feuil3").Cells(ligne, 4) = Cells(n, m + 1)
[COLOR="Blue"]'dans la feuille 3 à la cellule(2,4) remplir avec les données de la cellule (2,3+1) [de la feuille 1][/COLOR]
Sheets("Feuil3").Cells(ligne, 5) = Cells(n, m + 2)
[COLOR="Blue"]'dans la feuille 3 à la cellule(2,5) mettre les données de la cellule (2,3+2)[de la feuille 1][/COLOR]
Sheets("Feuil3").Cells(ligne, 6) = Cells(n, 1)
[COLOR="Blue"]'dans la feuille 3 à la cellule (2,6) mettre les valeurs de la cellue (2,1) préalablement remplie par l'autoincrémentation (soit "1") pour cette ligne.s'il y a plusieurs colonne de remplies, il fait la boucle de la colonne 2 à 13 en sautant les colonnes de 3 en 3[/COLOR]
ligne = ligne + 1
[COLOR="Blue"]'une fois que c'est fait pour la première ligne, il passe à la seconde en ajoutant 1 aux valeurs de la variable ligne. [/COLOR]
num = num + 1
[COLOR="Blue"]'Idem pour incrémentation.[/COLOR]
End If
[COLOR="Blue"]'fermeture de la boucle IF[/COLOR]
Next m
[COLOR="Blue"]'Fermeture de la boucle FOR1[/COLOR]
Next n
[COLOR="Blue"]Fermeture de la boucle FOR2[/COLOR]
Sheets("Feuil3").Select
[COLOR="Blue"]'Sélectionne la feuille 3[/COLOR]
End Sub