Problème avec plusieur a la suite

Messages postés
38
Date d'inscription
vendredi 29 octobre 2010
Statut
Membre
Dernière intervention
9 janvier 2013
- - Dernière réponse : 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
Afficher la suite 

1 réponse

Messages postés
95
Date d'inscription
vendredi 7 février 2003
Statut
Membre
Dernière intervention
28 novembre 2017
0
Merci
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
Commenter la réponse de AlKatou