Discussion :

[vivelesgnous]

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

[méphistopheles]

1: quelle boucle ne s'arrète pas?

2: si c'est la 1, on ne peut te répondre sans avoir le code interne.
3: ton message est illisible, retire le jaune et met des balises [code][code][/code]
4: essaye d'avoir une présentation claire avec des espaces.
5:c'est urgent pour tout le monde, inutile de nous raconter ta vie, donne nous plutot des précisions sur ton projet.


salut

[random]

Cells(i, 1)

ou Cells(i, j)

[vivelesgnous]

désolé

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
28
29
dim i,b,j as integer
 
 
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

la boucle qui foire c'est :

Code :

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

1
2
3
    Do
        j = j + 1
    Loop Until Sheets("généalogie").Cells(i, 3) = Sheets("Père_13").Cells(j, 1)

j'ai deux feuilles généalogie et père_13
je veux qu'il prenne la troisième cellule de chaque ligne de la feuille généalogie et qu'il l'a compare avec la première cellule de la feuille Père_13
une fois q'il l'a trouvé la correspondance il copie le reste des données de la ligne Père_13 et la colle dans la feuille incompat_chèvres_boucIA

Pour le caractère urgent c'est juste que je ne vois pas pourquoi ça déconne et ton histoire de balise je ne comprends pas non plus

Balises ajoutées par ouskel'n'or
Pense à mettre les balise code et /code

[ouskel'n'or]

Ce ne serait pas un pb de casse ?
Si l'une de tes données a une majuscule que l'autre n'a pas, ton test foire
j'essaierais :

Code :

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

1
2
3
    Do 
        j = j + 1 
    Loop Until Ucase(Sheets("généalogie").Cells(i, 3)) = Ucase(Sheets("Père_13").Cells(j, 1))

A+

Les balises ? Tu as un bouton code au-dessus de la fenêtre d'édition de ton message : Tu sélectionnes le code et tu fais un clic sur le bouton. Tu verras, c'est magique !

[vivelesgnous]

mon code fonctionne merci pour tout c'est juste un souci au niveau des données excel
merci pour les conseils

[vivelesgnous]

par contre comment faire pour connaitre le nombre de lignes avec des données afin d'inclure ça dans une boucle for next

[ouskel'n'or]

Pour connaître la dernière ligne renseignée de ta colonne :

Code :

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

DernièreLigne = Cells(65535, NoColonne).End(xlUp).Row

For i = 1 to DernièreLigne

A+

[vivelesgnous]

merci beaucoup