bonjour
il faut à tout prix que je finisse ce projet d'ici ce soir (et je pense que je sature dur) mais je bloque sur une boucle qui ne fonctionne pas si quelqu'un peut me dire pourquoi ça serait super sympa
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 i = 2 Do b = 2 j = 2 ' 'mise en place des incompatiblité par le père ' Do j = j + 1 Loop Until Sheets("généalogie").Cells(i, 3) = Sheets("Père_13").Cells(j, 1) Do b = b + 1 Loop While Sheets("Père_13").Cells(j, b) <> 0 Sheets("Père_13").Select Range(Cells(j, 2), Cells(j, b - 1)).Select Selection.Copy Sheets("incompat_chèvres_boucIA").Select Range(Cells(i, 2), Cells(i, b - 1)).Select ActiveSheet.Paste i = i + 1 Loop Until Sheets("généalogie").Cells(i, 1) = 0
Partager