[VBA-E]une boucle qui ne s'arrète pas

Version imprimable

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:

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

15/02/2006, 16h00
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 :wink:
15/02/2006, 17h02
random

Cells(i, 1)

ou Cells(i, j)

désolé
Code:

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:

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

15/02/2006, 17h32
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:

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 ! :wink:
15/02/2006, 17h42
vivelesgnous

mon code fonctionne merci pour tout c'est juste un souci au niveau des données excel
merci pour les conseils
15/02/2006, 17h44
vivelesgnous

par contre comment faire pour connaitre le nombre de lignes avec des données afin d'inclure ça dans une boucle for next
15/02/2006, 18h02
ouskel'n'or

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

Code:

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

For i = 1 to DernièreLigne

A+
15/02/2006, 18h05
vivelesgnous

merci beaucoup