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