Sujet Précédent Sujet Suivant

Problème avec plusieur a la suite

micku2b Messages postés 38 Date d'inscription vendredi 29 octobre 2010 Statut Membre Dernière intervention 9 janvier 2013 - 2 févr. 2011 à 17:47
AlKatou Messages postés 95 Date d'inscription vendredi 7 février 2003 Statut Membre Dernière intervention 28 novembre 2017 - 3 févr. 2011 à 20:47
bonjour,

Voila j'ai le code suivant: 

Sub Macro8()

Dim Z_Ligne
Dim Z_Colonne
Dim Z_essence
Dim Z_sec1
Dim Z_sec2

'blocage de l'écran
Application.ScreenUpdating = False

'chargement des variables sur feuil1
Z_essence = Range("A10")
Z_sec1 = Range("B10")
Z_sec2 = Range("C10")

'classeur d'arrivé
Sheets("base de données").Select

'selection de la première celulle du classeur
ActiveCell(1, 1).Select

'recherche de l'essence
Do
Z_Ligne = Z_Ligne + 1
Loop While Cells(Z_Ligne, 1) <> Z_essence And Cells(Z_Ligne, 1) <> ""
Cells(Z_Ligne, 1).Select


'chargement de la ligne dans une deuxième variable
' et sélection de 2éme case correspondant à la ligne
Z_Ligne2 = Z_Ligne
ActiveCell(Z_Ligne2, 2).Select

'recherche de la premier section
If Cells(Z_Ligne2, 1) <> Z_sec1 Then
Do
Z_Ligne2 = Z_Ligne2 + 1
Loop While Cells(Z_Ligne2, 2) <> Z_sec1 And Cells(Z_Ligne2, 2) <> ""
Cells(Z_Ligne2, 2).Select
Z_Ligne3 = Z_Ligne2
ActiveCell(Z_Ligne3, 3).Select
End If

'recherche de la deuxième section
If Cells(Z_Ligne3, 3) <> Z_sec2 Then
Do
Z_Ligne3 = Z_Ligne3 + 1
Loop While Cells(Z_Ligne3, 3) <> Z_sec2 And Cells(Z_Ligne3, 3) <> ""
Cells(Z_Ligne3, 3).Select
End If

'selection de la premier case de la ligne recherché
Cells(Z_Ligne3, 1).Select

'revient sur la celulle qui nous intéresse.
ActiveCell(Z_Ligne3, 1).Select

'enlève le blocage de l'écran
Application.ScreenUpdating = True

End Sub



Lors de la première boucle tout va bien je récupère bien l'info que je cherche.

Mais pour la deuxième et la troisième boucle sa ne marche pas.

J'ai l'impression que dans les deux dernières boucles le programme ne regarde pas se que contient les valeurs et boucle jusqu'à rencontrer un blanc.


merci

1 réponse

Réponse 1 / 1
AlKatou Messages postés 95 Date d'inscription vendredi 7 février 2003 Statut Membre Dernière intervention 28 novembre 2017
3 févr. 2011 à 20:47
salut,

il aurait été plus utile de nous mettre quelques lignes de ta feuille de base de données. car là, difficile de se rendre compte de ton problème.


Alka
0
Rejoignez-nous