Boucle For Next imbriquéeRésolu

Question

Bonjour à tous,

j'ai fait une macro qui compare d'abord une cellule d'une colonne à une autre et qui compare ensuite (si la 1ere condition est bonne) une autre cellule d'une autre colonne à 2 autres(la valeur dans la 1ere doit être encadré par les 2 valeurs dans les deux autres). Si toutes les conditions sont remplis on écrit dans une cellule, sinon on incrémentre la boucle. 

C'est assez compliqué à s'en faire une image je vous met en pièce jointe un exemple : http://cjoint.com/?0FBhtQ6Ssmj

La macro ressemble à ca :
Sub position()
For i = 2 To Sheets(2).Range("C" & Rows.Count).End(xlUp).Row
    For j = 2 To Sheets(3).Range("A" & Rows.Count).End(xlUp).Row
    
        If Sheets(2).Range("C" & i) = Sheets(3).Range("A" & j) Then
            If Sheets(2).Range("F" & i) >= Sheets(3).Range("B" & j) And Sheets(2).Range("F" & i) <= Sheets(3).Range("C" & j) Then
                Sheets(2).Range("G" & i) = "couche"
            Else: Sheets(2).Range("G" & i) = ""
            End If
    Next j
        
        End If
    Next j

Next i
        
    
End Sub


Le problème est que j'obtiens l'erreur : erreur de compilation Next sans For à la ligne du premier Next j.

Merci de votre aide !

cs_cheyenne · Accepted Answer

Re,

Erreur de ma part :
le deuxième fin_sh2 est à remplacer évidement par fin_sh3.

Utiliser également With
Sub position()
   Dim i       As Long
   Dim j       As Long
   Dim fin_sh2 As Long
   Dim fin_sh3 As Long

   fin_sh2 = Sheets(2).Range("C" & Rows.Count).end(xlUp).Row
   fin_sh3 = Sheets(3).Range("A" & Rows.Count).end(xlUp).Row
   
   With Sheets(2)
      For i = 2 To fin_sh2
         For j = 2 To fin_sh3
            
            If .Cells(i, 3).Value = Sheets(3).Cells(j, 1).Value Then
               
               If .Cells(i, 6).Value >= Sheets(3).Cells(j, 2).Value Then
                  If .Cells(i, 6).Value <= Sheets(3).Cells(j, 3).Value Then
                     .Cells(i, 7).Value = "couche"
                  Else
                     .Cells(i, 7).Value = "debout"
                  End If
               End If
   
            End If

         Next j
      Next i
   End With
End Sub
Cheyenne

ucfoutu · Answer

Bonjour,
Avant d'aller où que ce soit et de commencer à examiner plus en détail :
Tu as deux next j qui sautent aux yeux !!!!!



________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

robby98800 · Answer

Oui je pensais qu'on devait mettre un next à chaque sortie de If mais je viens de m'apercevoir qu'en enlevant le premier le raisonnement reste correct.
Il n'y a plus d'erreur généré cependant je n'ai pas l'impression que la macro fonctionne car aucun de mes cellules n'affiche "couche" alors que les conditions semblent être remplis.

Je vais faire des tests..

robby98800 · Answer

Je viens de faire une modification 
Sub position()
For i = 2 To Sheets(2).Range("C" & Rows.Count).End(xlUp).Row
    For j = 2 To Sheets(3).Range("A" & Rows.Count).End(xlUp).Row
    
        If Sheets(2).Range("C" & i) = Sheets(3).Range("A" & j) Then
            If Sheets(2).Range("F" & i) >= Sheets(3).Range("B" & j) Then
                If Sheets(2).Range("F" & i) <= Sheets(3).Range("C" & j) Then
            Sheets(2).Range("G" & i) = "couche"
                
            Else: Sheets(2).Range("G" & i) = "debout"
                
                End If
            End If

        
        End If
    Next j

Next i
        
    
End Sub

     

Comme ça, ça fonctionne apparemment c'était le And qui posait un problème (le fait que le couche ne s'affiche pas). Par contre l'exécution est très longue.

cs_cheyenne · Answer

Bonjour,

Optimisation :
Remplacer la borne supérieure des boucles par des variables.
fin_sh2 = Sheets(2).Range("C" & Rows.Count).End(xlUp).Row
fin_sh2 = Sheets(3).Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To fin_sh2
   For j = 2 To fin_sh3

Ce qui évite un calcul à chaque passage.

Puis indiquer ce que tu dois extraire de chaque Range, en l'occurrence Value, cela évitera à Excel d'interpréter ce que tu veux.
If Sheets(2).Range("C" & i).Value = Sheets(3).Range("A" & j).Value Then

Si tu as beaucoup de lignes à explorer utiliser plutôt Cells que Range afin d'éviter les concaténations.
If Sheets(2).Cells(i, 3).Value = Sheets(3).Cells(j ,1).Value Then

Cheyenne

cs_cheyenne · Answer

Re,

J'ai oublié de te recommander de mettre le
ScreenUpdating à False en début de procédure et de le rétablir avant de quitter celle-ci.

Cheyenne

robby98800 · Answer

Merci beaucoup Cheyenne pour ta réponse et tes explications ça marche beaucoup mieux et ça m'a permis d'y voir plus clair en vba !

Juste une question si dans une condition If on ne met pas de Else (car on ne veux rien faire sinon) le code fonctionne t-il toujours ?

Merci,

Robin

ucfoutu · Answer

Ta question trouve sa réponse dans ton aide VBA !
Et tu en as de surcroît un exemple dans le code de cheyenne, non ? (le premier bloc If ne comprend aucune clause Else. 


________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

cs_cheyenne · Answer

Bonjour robby98800,

La clause Else n'est en aucun cas indispensable.
(voir la réponse de ucfoutu)

Dans l'exemple de code j'ai oublié ce que je t'avais préconisé, HI

Sub position()
   Dim i       As Long
   Dim j       As Long
   Dim fin_sh2 As Long
   Dim fin_sh3 As Long

   fin_sh2 = Sheets(2).Range("C" & Rows.Count).end(xlUp).Row
   fin_sh3 = Sheets(3).Range("A" & Rows.Count).end(xlUp).Row

   Application.ScreenUpdating = False  ' <<<<<

   '  le code...

   Application.ScreenUpdating = True  ' <<<<<
End Sub

Tu devrais avoir ainsi une nette amélioration du temps d'exécution, surtout si tu as beaucoup de lignes à traiter.

Cheyenne

ucfoutu · Answer

Pas de secrets :
La seule manière vraiment efficace d'accélerer considérablement les choses est à mon sens :
- de créer un tableau dynamique
- de traiter les éléments de ce tableau
- de réinjecter le tableau, d'un seul coup.

Gain considérable (traitement des éléments d'un tableau bien plus rapide que celui des éléments d'une plage, puis réinsertion d'un seul coup, encore plus rapide).
Tout le reste ne sera à mes yeux que "diminuer la douleur", sans s'attaquer à "la lourdeur". 



________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

cs_cheyenne · Answer

Bonjour ucfoutu,

Certes oui !

1) Mais il faut bien auparavant renseigner ce tableau à partir des plages de données...

2) Le traiter en mémoire est effectivement beaucoup plus rapide !

3) Comment le réinjecter d'un seul coup sans passer par une boucle pour inscrire les données traitées ?

Un tout petit exemple serait le bienvenu. Merci.


Bonne journée à toi,

Cheyenne

ucfoutu · Answer

Bonjour, cheyenne,
La réinjection d'un tableau se fait de la manière la plus simple du monde.
Regarde donc :
 Dim tablo(1 To 10, 1 To 3)
' 1) _______ juste pour créer un tableau exemple _____________
For i = 1 To 10
  For j = 1 To 3
   tablo(i, j) = "a" & i & j
  Next
 Next
' 2) _______________ on l'injecte ainsi 
 Range("A1:C10") = tablo
aucun problème !

________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

cs_cheyenne · Answer

Re,

Range("A1:C10") = tablo

Ben oui, évidemment, arggghhhh !!!!
que n'y ai je pas pensé plus tôt ?

Il n'empêche qu'au départ il faut bien renseigner le tableau en parcourant les cellules de la plage.
Mais ce "temps perdu" sera largement compensé par le traitement en mémoire et au final par l'injection en bloc.

Merci pour l'exemple.

Cheyenne

ucfoutu · Answer

Il n'empêche qu'au départ il faut bien renseigner le tableau en parcourant les cellules de la plage.
Ben non ! 
regarde (en imaginant que tu aies des données dans la plage A1:D5
tablo = Range("A1:D5") ' le voilà, ton tableau
' on va le traiter (faire ici semblant en ajoutant "vu ?" à chaque élément
For i = 1 To UBound(tablo, 1)
   For j = 1 To UBound(tablo, 2)
     tablo(i, j) = tablo(i, j) & "vu ?"
   Next
Next
Range("A1:D5").Value = tablo
Je n'ai ici à aucun moment blouclé sur la plage (lent), mais sur le tableau (10 fois plus rapide).
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

cs_cheyenne · Answer

Re,

Ah ben oui, SUPER ! 
Je ne savais, je le reconnais, que l'on pouvait remplir un tableau de cette manière.

J'ai déclaré tablo en tant que Variant et effectué divers essais avec des cellules "numériques" et "textes". Impeccable.

Je vais de ce pas revoir les codes de certaines de mes applications.

Un grand merci pour l'astuce que je valide virtuellement 

Cheyenne

robby98800 · Answer

Merci aussi ucfoutu, je vais essayer d'adapter ta méthode.

robby98800 · Answer

Re,

Voici ce que j'ai fait. Je suis passé par deux tableaux, un dynamique et un fixe. 
Sub tabex()
derniere_ligne = Sheets(2).Range("C1").End(xlDown).Row
Dim tab_exa()
ReDim tab_exa(derniere_ligne - 2, 2)

Dim tab_exb(215, 2)
    
    For i = 2 To derniere_ligne - 2
        tab_exa(i, 0) = Sheets(2).Range("C" & i + 2)
        tab_exa(i, 1) = Sheets(2).Range("F" & i + 2)
        tab_exa(i, 2) = Sheets(2).Range("G" & i + 2)

    Next i
    
    For j = 2 To UBound(tab_exb, 1)
            tab_exb(j, 0) = Sheets(3).Range("A" & j)
            tab_exb(j, 1) = Sheets(3).Range("B" & j)
            tab_exb(j, 2) = Sheets(3).Range("C" & j)
    
    Next j
    
    For i = 2 To UBound(tab_exa, 1)
        For j = 2 To UBound(tab_exb, 1)
            If tab_exa(i, 0) = tab_exb(j, 0) Then
                If tab_exa(i, 1) >= tab_exb(j, 1) And tab_exa(i, 1) <= tab_exb(j, 2) Then
                    tab_exa(i, 2).Value = "couche"
               
                End If
            End If
    
        Next j
    Next i

Range("G2:G" & [G65536].End(xlUp).Row).Value = tab_exa(i, 2)

End Sub


J'imagine bien que la dernière ligne est fausse mais je ne sais pas comment dire la 3eme colonne du tab_exa est égale à la plage de cellule de la colonne G. En effet la colonne G a le meme nombre de ligne que la colonne A mais le nombre est variable. 
De plus je sais très bien que la dernière ligne ne peut pas fonctionner car j'écrit affecte le tab_exa(i, 2) aux cellules de G2 jusqu'à la dernière cellule de G non vide mais elles ne sont pas remplies avant l'affectation donc ça ne peut pas marcher.

C'est d'ailleurs pour cela que j'obtiens l'erreur 9 l'indice n'appartient pas à la sélection à la derniere ligne.

Je trouve cette méthode très puissante et j'aimerais vraiment avoir plus d'infos pour pouvoir bien la maitriser.

Merci,

Robin

ucfoutu · Answer

Bonjour, robby98800,


Lorsque tu fais une boucle For to next (ex : for x = 1 to 2), la variable d'avancement (ici x, donc) avance d'une unité à chaque tour de boucle. A la fin de la boucle, elle dépasse donc sa limité d'une unité.
Fais l'essai :
For x = 1 to 2
 ' on s'en moque
next
msgbox x ' ===>> x vaut alors 2 + 1 = 3 et non 2

et (dans ton exemple, donc) i a dépassé d'une unité la borne supérieure de ton tableau tab_exa ===>> et tu es hors limite.
Utilise donc i-1 et non i dans ta dernière ligne

________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

ucfoutu · Answer

Ceci étant dit, tu as compris une partie seulement de l'utilisation des tableaux, dont je vois que tu les dimensionnes, puis les alimentes en boucle, au lieu de les générer directement (sans aucune boucle ni besoin de les dimensionner)
Relis donc plus attentivement ce que j'en ai dit plus haut 


________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

robby98800 · Answer

Oui j'avais remarquer que je pouvais remplacer la boucle pour alimenter le tab_exb par :
tab_exb = Range(A2:C73)
Mais au cas où si la place serait modifié j'ai préféré le faire avec une boucle.
En revanche pour le tab_exa je ne voyais pas comment faire sans une boucle vu que le tableau est dynamique.

J'ai remplacé le i par i-1 à la dernière ligne je n'ai plus d'erreur mais je n'ai pas encore le résultat attendu. Je ne sais pas pourquoi mais mes conditions ne fonctionnent pas on dirait puisque quand les conditions sont remplies la cellule n'affiche pas "couche"

Est ce que la méthode était bien de créer deux tableaux et de les comparer ensuite avec une boucle ou alors j'ai mal interpreté la méthode et j'aurai eu juste besoin de créer un tableau qui regroupe toutes les données?

ucfoutu · Answer

Je vais d'abord laisser cheyenne faire avec deux tableaux. 
Je ne reviendrai que s'il ne s'en sort pas seul. Cela permettra de "former" deux membres à la fois. 


________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

ucfoutu · Answer

Je voudrais toutefois juste appeler l'attention (cheyenne comprendra) sur le fait que tu dois comparer les éléments de deux plages ====>> donc comparer deux tableaux.
Et chacun d'eux doit être créé directement (sans même dimensionner et sans boucle), chacun à partir de la plage (range) dont il est le "reflet" 

________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

cs_cheyenne · Answer

Bonjour ucfoutu,
Je vais d'abord laisser cheyenne faire avec deux tableaux.
Je ne reviendrai que s'il ne s'en sort pas seul. Cela permettra de "former" deux membres à la fois.
Heu, hein, quoi, qu'est-ce ?????
Mais je m'en sors très bien tout seul... Merci quand même.

J'ai modifié, comme dit précédemment, le code de certaines applis qui du coup se trouvent grandement boostées.

Puis "pour m'amuser" j'ai créé un premier tableau (à partir d'un range et sans boucles, HI) dont j'ai analysé les différentes cellules. En fonction des résultats, j'ai rempli un deuxième tableau que j'ai injecté d'un bloc à côté du premier.
Ensuite, toujours en mémoire, j'ai comparé les 2 premiers tableaux pour en créer un 3ème injecté de la même façon.
Le gain de temps est considérable !

Je vais aussi recoder mon application astro qui calcule pour l'année les levers et couchers de lune et de soleil ainsi que divers paramètres. Au lieu d'inscrire jour par jour les data je vais faire différents tableaux qui seront injectés d'un bloc dans chaque feuille mensuelle.

Comme tu le vois, je n'ai aucun problèmes, tu peux donc continuer avec robby98800.

Bonne journée,

Cheyenne

ucfoutu · Answer

Comme tu le vois, je n'ai aucun problèmes, tu peux donc continuer avec robby98800
Non non !
Tu vas le faire ! 



________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

cs_cheyenne · Answer

Il y a un smiley, serait-ce un trait d'humour ?

Sinon, faire quoi ? ce n'est pas moi le demandeur, tu dois te tromper d'interlocuteur !

Cheyenne

cs_cheyenne · Answer

Bonjour ucfoutu,

J'attends toujours une réponse de ta part !

Bon dimanche,

Cheyenne

ucfoutu · Answer

Bonjour, cheyenne,
Tu n'a pas compris. Ce n'est pas du tout un trait d'humour !
Je veux simplement te laisser l'honneur de transformer (par utilisation de deux tableaux dynamiques) ta solution, que robby98800 à approuvée.
Je ne veux pas de la voler, cette solution. C'est tout !


________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

cs_cheyenne · Answer

Bonsoir ucfoutu,

Tu sais, je n'aurai nullement pris ombrage que tu le fasses et n'aurai pas considéré non plus que ma solution soit "volée".
D'ailleurs, je te laisse le faire, non que je ne m'en sente pas capable (car c'est somme toute très facile, puisqu'il s'agit de de comparer les valeurs dans les tableaux au lieu de les comparer avec les valeurs des cellules) mais je suis actuellement absorbé avec mon appli astro qui est très lourde et je tiens à m'y tenir. Un peu longue la phrase, non ?, HI.

Donc vas-y, que robby98800 puisse avancer si il n'y est pas arrivé pas tout seul ou qu'il se manifeste pour solliciter de l'aide.

Bonne soirée à toi.

Cheyenne

robby98800 · Answer

Bonjour à vous deux,

J'ai bien l'impression que le programme s&#8217;exécute beaucoup plus vite mais je n'ai toujours pas le résultat attendu.
Peu importe qui peut m'aider mais j'ai vraiment besoin qu'on me débloque sur ce point étant donné qu'en plus cette méthode me servira encore beaucoup pour la suite de mon travail. 
Je vois comment rentrer le tableau fixe (tab_exb) avec Range bien que je ne le fasse pas puisque le nombre de lignes est amené a être modifier par la suite. En revanche pour un tableau dynamique je ne vois pas comment faire.
Ensuite pour la comparaison des deux tableaux j'ai l'impression que le code est bon mais je n'ai pas ce que j'attends !
Peut-être que le problème vient de la recopie à la dernière ligne car Range("G2:G" & [G65536].End(xlUp).Row).Value = tab_exa(i - 1, 2)
recopie le tableau dans la colonne G jusqu'à la dernière ligne de G mais à la base G est vide!

Bref, j'ai besoin d'aide pour pouvoir avancer,

Merci

PS : Je remets la macro avec en pièce jointe le fichier où j'ai recopié seulement les colonnes qui rendre en jeu dans le code. J'ai fait exprès de modifier les données du ficher Excel pour que les deux premières lignes de G affichent "couche". 	http://cjoint.com/?0GcayV8tcJw

Sub tabex()
derniere_ligne = Sheets(2).Range("C1").End(xlDown).Row

Dim tab_exa()
ReDim tab_exa(derniere_ligne - 2, 2)

Dim tab_exb(215, 2)
    
    For i = 2 To derniere_ligne - 2
        tab_exa(i, 0) = Sheets(2).Range("C" & i + 2)
        tab_exa(i, 1) = Sheets(2).Range("F" & i + 2)
        tab_exa(i, 2) = Sheets(2).Range("G" & i + 2)

    Next i
    
    For j = 2 To UBound(tab_exb, 1)
            tab_exb(j, 0) = Sheets(3).Range("A" & j)
            tab_exb(j, 1) = Sheets(3).Range("B" & j)
            tab_exb(j, 2) = Sheets(3).Range("C" & j)
    
    Next j
    
    For i = 2 To UBound(tab_exa, 1)
        For j = 2 To UBound(tab_exb, 1)
            If tab_exa(i, 0) = tab_exb(j, 0) Then
                If tab_exa(i, 1) >= tab_exb(j, 1) And tab_exa(i, 1) <= tab_exb(j, 2) Then
                    tab_exa(i, 2).Value = "couche"
               
                End If
            End If
    
        Next j
    Next i

Range("G2:G" & [G65536].End(xlUp).Row).Value = tab_exa(i - 1, 2)

End Sub

ucfoutu · Answer

Ecoute,
Je ne veux pas reprendre tout (analyse des tenants et aboutissants)

je vais me contenter de repartir du code que tu as montré le mercredi 27 juin 2012 à 09:08:18 en disant qu'il fonctionnait, mais auquel tu reprochais simplement d'être lent.  C'est le mécanisme de ton propre code, que je vais appliquer, mais en utilisant deux tableaux dynamiques ===>>
Voilà ce qu'il deviendrait :
derlig2 = Sheets("Feuil2").Range("C" & Rows.Count).End(xlUp).Row
derlig3 = Sheets("Feuil3").Range("A" & Rows.Count).End(xlUp).Row
tablo2 = Sheets("Feuil2").Range("A2:G" & derlig2)
tablo3 = Sheets("Feuil3").Range("A2:C" & derlig2)
For i = 1 To UBound(tablo2)
  For j = 1 To UBound(tablo3)
    If tablo2(i, 3) = tablo3(j, 1) Then
      If tablo2(i, 6) >= tablo3(j, 2) Then
        If tablo2(i, 6) <= tablo3(j, 3) Then
          tablo2(i, 7) = "couche"
        Else
          tablo2(i, 7) = "debout"
        End If
      End If
    End If
  Next
Next
Sheets("Feuil2").Range("A2:G" & derlig2) = tablo2


________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

cs_cheyenne · Answer

Bonjour ucfoutu,

Je passe juste en coup de vent...

Merci pour robby98800, mais
tablo3 = Sheets("Feuil3").Range("A2:C" & derlig2)
Ne serait-ce pas plutôt :
tablo3 = Sheets("Feuil3").Range("A2:C" & derlig3)

Cheyenne

ucfoutu · Answer

Bonjour, Cheyenne.
Oui. Merci de l'avoir vu. 


________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

robby98800 · Answer

Bonjour ucfoutu,

Merci ça fonctionne et rapidement! En plus de ça j'ai compris le fonctionnement 
Je voudrais juste avoir une petite précision :

derlig2 = Sheets("Feuil2").Range("C" & Rows.Count).End(xlUp).Row
Range("A2:G" & derlig2)

En faisant comme ça on prend en compte les colonnes de A à G avec pour ligne, le nombre de ligne de C non vide, est ce bien ça?
En fait je ne comprends pas le A2:G qu'est ce que cela signifie (On prend les colonnes de A à G à partir de la 2eme ligne??)

En tout cas merci, ca me servira beaucoup

robby98800 · Answer

Ah je crois que je viens de comprendre, derlig2 est l'indice de G.
Désolé si c'était bien cela, sinon je vois toujours pas.

ucfoutu · Answer

Les deux tableaux sont bâtis depuis la colonne A jusqu'à la colonne utile pour chacun d'eux (donc G pour tablo2 et C pour tablo3)
Les bâtir depuis la colonne A permet d'éviter des calculs relatifs (de colonnes) puisque, ainsi, la D, par exemple, sera toujours la 4ème, la B la 2ème, ... sans se "casser la tête".
Et il suffit ensuite (sens de la dernière ligne du code) de réinjecter lke tableau dans la plage qui en avait permis la création.
C'est tout bête .
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

robby98800 · Answer

Ok super je viens de m'en servir pour une autre application et ça marche très bien.
J'aurais vraiment appris quelquechose, merci

ucfoutu · Answer

Bravo.
Juste une prière, maintenant :
Fort de ce que tu as appris dans la présente discussion, te voilà maintenant apte à aider à ton tour d'autres forumeurs. 
Fais-le, s'il te plait.
Tu y gagneras toi-même au passage, tu verras 


________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

robby98800 · Answer

Oui je suis encore en stage pendant 2 mois donc je n'aurai pas vraiment le temps mais ensuite ça sera avec plaisir d'aider d'autres personnes.

robby98800 · Answer

J'aurais encore besoin d'un petit plus. Si il y a plusieurs cas qui satisfont aux mêmes conditions, comment faire pour tous les afficher?
Actuellement il m'affiche le dernier qui est passé dans la boucle.

For i = 1 To UBound(tablo1)
    For j = 1 To UBound(tablo2)
        If Sheets("Fiche_machine").Range("A1") = tablo2(j, 2) Then
            If tablo1(i, 2) = tablo2(j, 1) Then
                If tablo1(i, 1) = tablo2(j, 5) Then
                    If tablo2(j, 8) <= 14 Then
                        tablo1(i, 3) = tablo2(j, 3)
                    End If
                End If
            End If
        End If
    Next j
Next i

Sheets("Fiche_machine").Range("A22:C" & derlign1) = tablo1
End Sub
Ils se trouvent que j'ai plusieurs cas qui remplissent les mêmes conditions.
Faut-il faire une boucle sur les réponses qui satisfont aux mêmes conditions pour les classer dans des cellules différentes après?

ucfoutu · Answer

Voilà aut'chose 

Je veux bien essayer, mais tu vas devoir me dire avec précision où les afficher tous ! 


________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

Utilisateur anonyme · Answer

Bonjour,

Bin mon vieux, ça c'est de l'imbrication
On en apprend tous les jours (la réinjection des tableaux). Merci ucfoutu 
Je vais même garder ce fil de côté !

robby98800 · Answer

Le code est celui là:

derlign1 = Sheets("Fiche_machine").Range("B" & Rows.Count).End(xlUp).Row 'renvoie la dernière ligne de la colonne B du classeur Fiche_machine
derlign2 = Sheets("Maxituo").Range("A" & Rows.Count).End(xlUp).Row 'renvoie la dernière ligne de la colonne A du classeur Maxituo
Sheets("Fiche_machine").Range("C22:D" & derlign1).ClearContents 'effacer le contenu des action todolist ,retrofit...

tablo1 = Sheets("Fiche_machine").Range("A22:D" & derlign1)
tablo2 = Sheets("Maxituo").Range("A3:K" & derlign2)

For i = 1 To UBound(tablo1)
    For j = 1 To UBound(tablo2)
        If Sheets("Fiche_machine").Range("A1") = tablo2(j, 2) Then
            If tablo1(i, 2) = tablo2(j, 1) Then
                If tablo1(i, 1) = tablo2(j, 5) Then
                    If tablo2(j, 8) <= 14 Then
                        tablo1(i, 3) = tablo2(j, 3)
                    End If
                End If
            End If
        End If
    Next j
Next i

Sheets("Fiche_machine").Range("A22:C" & derlign1) = tablo1
End Sub

Je met en pièce jointe la feuille que je dois remplir. La zone à remplir est sur la premiere feuille en orange. J'ai mis des numéros dedans pour indiquer l'emplacement par rapport à l'ordre des résultats qui répondent au même conditions.
http://cjoint.com/?0GdoLz2JqKh

J'espère que ça suffira comme explication

ucfoutu · Answer

Pas de quoi s'ébaudir, banana32 ...
C'est de la "gnognotte", comparé à une seule injection de quinine par jour (j'y ai "goûté" dans mon  jeune âge ... et, crois-moi, ça, c'est dur ...) 


________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

ucfoutu · Answer

Glos ploblem , robby98800 :
je comprends bien que "montrer ton classeur" est pour toi plus facile que de t'expliquer, mais voilà : je n'ouvre jamais un classeur que je n'ai pas créé ! (je ne fais courir à ma machine aucun risque. Un classeur est un exécutable) 


________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

cs_cheyenne · Answer

Bonjour robby98800,

Attention, tu utilises ClearContent qui efface aussi les formules (par contre la mise en forme est gardée). Utilises plutôt :
Sheets("Fiche_machine").Range("C22:D" & derlign1).Value = vbNullString  

Cheyenne

robby98800 · Answer

Bonjour à tous,

Merci Cheyenne pour l'info j'avais eu quelques problème auparavant avec clearcontent sans comprendre d'où cela venait.

Je vais tenter l'explication :
Actuellement si toutes les conditions sont satisfaites, on remplie tablo1(i, 3).
Il faudrait que si cette cellule est déjà remplies et les conditions sont encore satisfaites on remplie alors tablo1(i+1, 3), et ainsi de suite tablo1(i+2, 3) jusquà tablo1(i+3, 3).
Si c'est pas assez clair, j'expliquerai mieux.

cs_cheyenne · Answer

Bonjour,

C'est très simple :
Tu peux faire un tableau que tu incrémentes (l'indice correspond à la ligne) à chaque fois que la condition est remplie et tu inscris dans la ligne correspondant à la valeur de l'indice.

Exemple avec un  tableau "numLigne" :
If ... Then
   numLigne(ligne) = numLigne(ligne) + 1
   if numLigne(ligne) < 4 then  
      tablo1(i + numLigne(ligne) -1, 3) = tablo2(j, 3)
   End If
End If

Cheyenne

robby98800 · Answer

Bonjour,

Je l'ai placé comme ceci dans la macro :
derlign1 = Sheets("Fiche_machine").Range("B" & Rows.Count).End(xlUp).Row
derlign2 = Sheets("Maxituo").Range("A" & Rows.Count).End(xlUp).Row
tablo1 = Sheets("Fiche_machine").Range("A22:D" & derlign1)
tablo2 = Sheets("Maxituo").Range("A3:K" & derlign2)

For i = 1 To UBound(tablo1)
    For j = 1 To UBound(tablo2)
        If Sheets("Fiche_machine").Range("A1") = tablo2(j, 2) Then
            If tablo1(i, 2) = tablo2(j, 1) Then
                If tablo1(i, 1) = tablo2(j, 5) Then
                    If tablo2(j, 8) <= 14 Then
                        numligne(ligne) = numligne(ligne) + 1
                            If numligne(ligne) < 4 Then
                                tablo1(i + numligne(ligne) - 1, 3) = tablo2(j, 3)
                            End If
                    End If
                End If
            End If
        End If
    Next j
Next i

Sheets("Fiche_machine").Range("A22:C" & derlign1) = tablo1

J'obtiens l'erreur "Sub ou fonction non définie" à cette ligne numligne(ligne) = numligne(ligne) + 1.
J'ai essayé de rentrer numligne comme un tableau fixe mais ça n'a rien donné.
Comment faut-il le rentrer? 
Merci

cs_cheyenne · Answer

Bonjour,

As-tu au moins déclaré les variables et tableaux utilisés et comment ?

"ligne" représente ici le n° de la ligne, autrement dit l'indice de la boucle i.
J'ai écrit "ligne" afin d'être plus explicite et toi tu as collé le code sans réfléchir ni même l'analyser.
Tu vois bien que la variable "ligne" ne reçoit aucune valeur, cela aurait dû te mettre la puce à l'oreille... Un peu d'effort, que diable !

As-tu au moins compris l'utilité du tableau numLIgne et la manière de le renseigner ?

Cheyenne

robby98800 · Answer

Bonjour,

Oui j'avoue je n'ai pas été très fin sur ce coup là.
J'ai finalement rempli le tableau comme ceci
Sub Fichemach()

Dim numligne(3) As Integer
Dim i As Long
Dim j As Long

derlign1 = Sheets("Fiche_machine").Range("B" & Rows.Count).End(xlUp).Row
derlign2 = Sheets("Maxituo").Range("A" & Rows.Count).End(xlUp).Row
tablo1 = Sheets("Fiche_machine").Range("A22:C" & derlign1)
tablo2 = Sheets("Maxituo").Range("A3:K" & derlign2)
Sheets("Fiche_machine").Range("C22:C" & derlign1).ClearContents

For i = 1 To UBound(tablo1)
    For j = 1 To UBound(tablo2)
       For k = 1 To UBound(numligne)
            If Sheets("Fiche_machine").Range("A1") = tablo2(j, 2) Then
                If tablo1(i, 1) = tablo2(j, 5) Then
                    If tablo1(i, 2) = tablo2(j, 1) Then
                        If tablo2(j, 8) <= 14 Then
                            numligne(k) = numligne(k) + 1
                                If numligne(k) < 5 Then
                                    tablo1(i + numligne(k) - 1, 3) = tablo2(j, 3)
                                End If
                        End If
                    End If
                End If
            End If
        Next k
    Next j
Next i

Sheets("Fiche_machine").Range("A22:C" & derlign1) = tablo1
End Sub

Ca fonctionne c'est à dire que quand le premier groupe de conditions est remplie, ils affichent les actions qui en résulte dans les lignes une après l'autre mais quand on change de groupe de conditions les actions ne sont plus affichées.
Bref je pense que c'est assez compliqué à comprendre sans avoir les fichiers. Il y a peut-être un problème dans l'organisation du tableau créé sur ma feuille.
Je vais essayer de voir ce que je peux faire bien que j'y ai dejà passé toute la matinée  
Merci,

Robin

cs_cheyenne · Answer

Bonjour,

Tu n'as pas bien compris la fonction du tableau numLigne et sa dimension ne doit pas être 3 mais derlign1.
La boucle k n'a pas lieu d'être car tu n'utilises pas le tableau numLigne dans les tests. Pourquoi avoir modifié ce que je t'avais indiqué ?
quand on change de groupe de conditions
Réfléchis bien à ce que tu as écrit...
en remplaçant les Then par des And, excepté "numligne(k) < 5", tu comprendras que tu n'as pas plusieurs "groupes de conditions".
Mais il faut mieux, comme tu l'as fait, scinder les conditions par des Then que d'avoir plusieurs test dans la même ligne car tous sont vérifiés en une fois.
Par contre avec Then si le premier test est faux les suivants ne sont pas testés, d'où gain de temps.

Cheyenne

robby98800 · Answer

Bonjour,

En fait la toute première tentative que j'avais faite était celle-ci :
Sub Fichemach()

Dim numligne(3) As Variant
Dim i As Long
Dim j As Long

derlign1 = Sheets("Fiche_machine").Range("B" & Rows.Count).End(xlUp).Row
derlign2 = Sheets("Maxituo").Range("A" & Rows.Count).End(xlUp).Row
tablo1 = Sheets("Fiche_machine").Range("A22:C" & derlign1)
tablo2 = Sheets("Maxituo").Range("A3:K" & derlign2)
Sheets("Fiche_machine").Range("C22:C" & derlign1).ClearContents

For i = 1 To UBound(tablo1)
    For j = 1 To UBound(tablo2)
            If Sheets("Fiche_machine").Range("A1") = tablo2(j, 2) Then
                If tablo1(i, 1) = tablo2(j, 5) Then
                    If tablo1(i, 2) = tablo2(j, 1) Then
                        If tablo2(j, 8) <= 14 Then
                            numligne(i) = numligne(i) + 1
                                If numligne(i) < 5 Then
                                    tablo1(i + numligne(i) - 1, 3) = tablo2(j, 3)
                                End If
                        End If
                    End If
                End If
            End If
    Next j
Next i

Sheets("Fiche_machine").Range("A22:C" & derlign1) = tablo1
End Sub

Mais cela me renvoit l'erreur d'éxécution 9, l'indice n'appartient pas à la sélection à la ligne [i]numligne(i) = numligne(i) + 1
/i
Je pense que cela pourrait venir du fait que i varie de 1 jusqu'à la fin du tablo1 et que là, i est utilisé pour le tableau numligne.. Je ne sais pas trop à vrai dire.

ucfoutu · Answer

Vous êtes là confrontés avant tout à un problème de conception.
C'était même la raison de mon interrogation (pour plus haut) au sujet de l'affichage lorsque plusieurs résultats.
J'ai bien un idée, mais vous laisse d'abord chercher, s'agissant de conception et non vraiment de code.


________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

ucfoutu · Answer

Je vais vous mettre sur la voie de la réflexion. 1) on revient à la demande de robby. Elle était faite sur ces "tenants" : For i = 1 To UBound(tablo1) For j = 1 To UBound(tablo2) If Sheets("Fiche_machine").Range("A1") = tablo2(j, 2) Then If tablo1(i, 2) = tablo2(j, 1) Then If tablo1(i, 1) = tablo2(j, 5) Then If tablo2(j, 8) <= 14 Then tablo1(i, 3) = tablo2(j, 3) '<=== réflexion/décision End If End If End If End If Next j Next i Arrêtons-nous au commentaire flêché. Quelle que soit la décision prise si plusieurs occurrences (affichage ligne plus bas ou affichage colonne plus à droite), on ne peut "toucher" au tableau tablo1 sans le redimensionner, etc ... ce qui est à éviter car ne correspondra plus à Sheets("Fiche_machine").Range("A22:C" & derlign1). De plus : si par addition de lignes : véritables acrobaties à n'en plus finir (comment insérer, par exemple, une ligne dans un tableau sans à la fois le redimensionner et décaler vers le bas tout le reste ?). Moins difficile si par addition de colonnes, mais cela impliquerait alors que la feuille Fiche_machine n'ait au départ aucune colonne remplie au delà de la 3ème ! Evitons alors tout cela (redimensionnements, décalages, etc ...). Pensons à un mécanisme qui récolterait le tout, chaque fois, en cellule (i,3), quitte à revenir ensuite sur la plage traitée. Et comme nous sommes astucieux, pensons à mémoriser (dans notre code) les lignes où multiples résultats. Cela nous permettre de ne revenir que sur ces lignes-là, plutôt que sur toutes les lignes de la plage. Voilà une jolie petite gymnastique dominicale. Je vous ai mis sur les starting-blocks . Je vais observer votre course. Prêts ? ===>> partez ! ________________________ Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches. Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

cs_cheyenne · Answer

Bonjour ucfoutu et roby98800, > ucfoutu, J'avais laissé robby98800 en plan exprès... car je souhaitais le faire réfléchir sur son "groupe de conditions". Sans doute voulait-il dire "au deuxième passage de la boucle". En effet, lorsqu'une condition est remplie, les lignes qui suivent sont écrasées. Mais il ne s'en ait pas rendu compte, j'ai attendu pour voir. J'ai bien lu ce que tu lui proposes, cela fait une sacré gymnastique, mais dans ce cas c'est là solution que je n'avais pas jugée bon de mettre en œuvre car, comme tu le dis, cela exige beaucoup trop d'acrobaties. Vu que notre ami ne doit pas être trop expérimenté, je m'en suis abstenu ne voulant pas lui fournir un code prêt à l'emploi qu'il n'aurait pas forcément intégré. Cela dit sans aucune méchanceté. Plus facile effectivement de mettre les valeurs en colonnes, si aucune colonne n'est remplie au delà de la 3ème ! >robby, représentation en colonnes A B C D E F G H 1 * * x 1 2 * * x x x x 4 3 * * x x x x x 8 4 * * 5 * * x x 2 Colonnes AB, les valeurs du tableau C...G, les nouvelles valeurs correspondant aux conditions du test. Colonne H, le compteur indiquant combien de fois pour telle ligne la condition a été remplie. Par exemple en ligne 3, tu as les 5 premières valeurs et la condition a été remplie 8 fois. Remplacer numLign par numCol et le code deviendrait lorsque la condition est remplie : Dim numCol() As Long derlign1 = ..... ReDim numCol(derlign1) ' lorsque la condition est remplie If tablo2(j, 8) <= 14 Then numCol(i) = numCol(i) + 1 tablo1(i, 8) = numCol(i) ' total en colonne H If numCol(i) < 6 Then tablo1(i, 2 + numCol(i)) = tablo2(j, 3) ' colonnes C...G Endif End If Je n'ai mis là que les lignes à changer et attention à modifier le Range pour l'injection de tablo1. Par ailleurs, je ne vois pas la déclaration des tableaux, cela laisse présumer que tu n'utilises pas Option Explicit, grave erreur !!! Cheyenne

cs_cheyenne · Answer

Re,

Argghh, trahi par les espaces, quid de l'alignement !!! il faut mettre des espaces insécables (code 0160)

Je recommence :

  A B C D E F G H
1 * * x         1
2 * * x x x x   4
3 * * x x x x x 8
4 * *
5 * * x x       2

Colonnes AB, les valeurs du tableau
C...G, les nouvelles valeurs correspondant aux conditions du test.
Colonne H, le compteur indiquant combien de fois pour telle ligne la condition a été remplie. Par exemple en ligne 3, tu as les 5 premières valeurs et la condition a été remplie 8 fois.

Dis-donc ucfoutu, vu l'heure de tes posts, je te trouve bien matinal, serais-tu un adepte de l'adage "l'avenir appartient à ceux qui se lèvent tôt" ?

Bon dimanche,

Cheyenne

ucfoutu · Answer

Bonjour, cheyenne
serais-tu un adepte de l'adage "l'avenir appartient à ceux qui se lèvent tôt" ? 

Pas le choix ! Les poissons aussi, se lèvent tôt. Et mon épouse adore voir ma pêche sur le gril de mon barbecue 
Pour le reste (le problème de notre ami robby98800 :
Les acrobaties ont été faites dès le retour de ma pêche. J'ai même choisi l'acrobatie par rajout de lignes (juste la moins simple, pour m'amuser un peu).
Mais je ne vais pas immédiatement lui servir du tout cuit à copier/coller.
Juste une piste supplémentaire :
Là où, dans mon dernier message, j'ai mis un commentaire flêché : si plusieurs valeurs :
- alimenter la cellule (i,3) par toutes ces valeurs, séparées par un retour chr(10)
- alimenter une collection par le numéro de la ligne (uniquement si plusieurs valeurs)
Puis :
1) injecter le tableau (tel qu'il est. Avec, donc, des cellules dont certaines contiennent plusieurs valeurs séparées par un retour charriot)
2) parcourir la collection (qui, je le rappelle, ne contient que les n°s de lignes des cellules à multiples valeurs). Le faire de bas en haut.
Il est alors simple et rapide de :
- "spliter" la cellule concernée (sur chr(10)
- injecter le nombre de lignes nécessaires (ubound du split)
- passer les valeurs multiples (sauf la 1ère) sur les lignes ainsi ajoutées.

C'est ultra-rapide et, pour tout dire, plus long à expliquer (comme je viens de le faire) qu'à coder (cela ne m'a occupé que le temps de frapper avec mes gros doigts la dizaine de très courtes lignes de code nécessaires) . 
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

cs_cheyenne · Answer

Re,

Ah ! les matins calmes au bord de l'eau...

Excellente idée que de mettre toutes les valeurs
sur la même ligne séparées par un CrLf, cela simplifie grandement les choses.

Si ce n'est déjà fait, bon appétit et attention aux arêtes !

Cheyenne

robby98800 · Answer

Bonjour à vous deux,

Je viens de lire vos deux posts et je vous avoue que pour l'instant ce n'est pas forcément évident pour moi. Je vais bien analyser la chose, me documenter et j'attaque demain matin. Il est le soir ici.
Bonne fin de journée, merci pour votre implication.

Robin

ucfoutu · Answer

et j'attaque demain matin
Et comme j'aime le sport et les sportifs (j'espère que tu en es un vrai) : je vais te laisser "attaquer". Je n'interviendrai à nouveau qu'en fonction des qualités sportives que montrera ton code d'essai. 


________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

ucfoutu · Answer

Ouais... Tu as de la chance : il me faut libérer ma machine.
Le voilà donc, le code que je "vois" :
  Dim I As Long, J As Long, macol As New Collection, quoi
  Application.ScreenUpdating = False
  For I = 1 To UBound(tablo1)
    For J = 1 To UBound(tablo2)
       If Sheets("Fiche_machine").Range("A1") = tablo2(J, 2) Then
         If tablo1(I, 2) = tablo2(J, 1) Then
           If tablo1(I, 1) = tablo2(J, 5) Then
             If tablo2(J, 8) <= 14 Then
               If InStr(tablo1(I, 3), vbCrLf) = 0 Then
                 tablo1(I, 3) = tablo2(J, 3)
               Else
                 tablo1(I, 3) = tablo1(I, 3) & Chr(10) & tablo2(J, 3)
                 On Error Resume Next
                 macol.Add I, Str(I)
               End If
             End If
           End If
         End If
      End If
    Next J
Next I
Sheets("Fiche_machine").Range("A22:C" & derlign1) = tablo1
For I = macol.Count To 1 Step -1
  quoi = Split(Range("C" & macol.Item(I)), Chr(10))
  For J = UBound(quoi) To 1 Step -1
    Rows(macol.Item(I) + 1).Insert , xlShiftDown
    Range("C" & macol.Item(I) + 1).Value = quoi(J)
  Next J
  Range("C" & macol.Item(I)).Value = quoi(0)
Next
Application.ScreenUpdating = true
Je n'ai ajouté, comme tu peux le constater, que très peu de code (une dizaine de lignes très courtes).
Essaye-le et dis-nous (je n'ai pas de données et travaille "en aveugle", sans pouvoir vérifier) 

________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

ucfoutu · Answer

Oui, mais attends un peu, là :
On ne voit pas du tout ta déclaration de tablo1 et de tablo2.
Du coup : et si on suppose que tablo1 correspond à la plage commençant en ligne 22, il faut transformer la ligne disant :
macol.Add I, Str(I)
en
macol.Add I + 21, Str(I + 21)


________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

robby98800 · Answer

Bonjour,

Alors voici comment j'ai déclarer les deux tableaux avec la macro :
Sub fichemachine2()
Dim I As Long, J As Long, macol As New Collection, derlign1 As Byte, derlign2 As Integer
Dim tablo1() As Variant, tablo2() As Variant, quoi

derlign1 = Sheets("Fiche_machine").Range("B" & Rows.Count).End(xlUp).Row
derlign2 = Sheets("Maxituo").Range("A" & Rows.Count).End(xlUp).Row

tablo1 = Sheets("Fiche_machine").Range("A22:C" & derlign1)
tablo2 = Sheets("Maxituo").Range("A3:K" & derlign2)
   
  Application.ScreenUpdating = False
  For I = 1 To UBound(tablo1)
    For J = 1 To UBound(tablo2)
       If Sheets("Fiche_machine").Range("A1") = tablo2(J, 2) Then
         If tablo1(I, 2) = tablo2(J, 1) Then
           If tablo1(I, 1) = tablo2(J, 5) Then
             If tablo2(J, 8) <= 14 Then
               If InStr(tablo1(I, 3), vbCrLf) = 0 Then
                 tablo1(I, 3) = tablo2(J, 3)
               Else
                 tablo1(I, 3) = tablo1(I, 3) & Chr(10) & tablo2(J, 3)
                 On Error Resume Next
                 macol.add I + 21, Str(I + 21)
               End If
             End If
           End If
         End If
      End If
    Next J
Next I
Sheets("Fiche_machine").Range("A22:C" & derlign1) = tablo1
For I = macol.Count To 1 Step -1
  quoi = Split(Range("C" & macol.Item(I)), Chr(10))
  For J = UBound(quoi) To 1 Step -1
    Rows(macol.Item(I) + 1).Insert , xlShiftDown
    Range("C" & macol.Item(I) + 1).Value = quoi(J)
  Next J
  Range("C" & macol.Item(I)).Value = quoi(0)
Next
Application.ScreenUpdating = True
End Sub


Je vois bien la gymnastique du code et c'est cela dont j'ai besoin. Pour l'instant ça ne fait pas encore ce que je voulais. Seul la dernière erreur qui répond aux même conditions que d'autres erreurs est marquée.
Je pense que c'est la forme du tableau que j'ai construit sur ma feuille qui fait que je n'obtiens pas ce que je souhaite.
Je vous explique plus précisemment ce qu'il en est.
Je compare deux tableaux, le deuxième contient des erreurs que je souhaite classer dans le premier.
Du coup si le n° de machine est le même, si la machine est en fonctionnement, si l'erreur vient d'une Todolistchef, alors on remplie la cellule du tableau 2 qui remplie ces conditions, avec l'erreur du tableau 1 (ici elle serait en [C22]). Si les mêmes conditions sont satisfaites pour une autre erreur alors on remplie la cellule en dessus de la première erreur en colonne C ([C23])etc.. Je m'étais fixé 4 erreurs qui satisfont au mêmes conditions. 
A ce que je comprends du code de ucfoutu, c'est encore mieux puisque le nombre d'erreurs qui peuvent être rentrées dans la colonne C est variable, ce qui m'évite, si il y a moins de 4 erreurs de laisser des cellules vides.

Voici une représentation du tableau que j'ai sur ma feuille. Les "" sont des cellules vides.

n° de machine

[A22]gev en fonctionnement  [B22]Todolistchef  [C22]erreur 1          
""                              ""                  erreur 2
""                              ""                  erreur 3
""                              ""                  erreur 4

gev en fonctionnement       TodolistResp            erreur 1          
""                              ""                  erreur 2
""                              ""                  erreur 3
""                              ""                  erreur 4

gev en fonctionnement       Retrofit                erreur 1          
""                              ""                  erreur 2
""                              ""                  erreur 3
""                              ""                  erreur 4

gev en fonctionnement         Suivi                 erreur 1          
""                              ""                  erreur 2
""                              ""                  erreur 3
""                              ""                  erreur 4

gev debout arrêtée       Todolistchef               erreur 1          
""                              ""                  erreur 2
""                              ""                  erreur 3
""                              ""                  erreur 4
                            
                             .
                             .
                             .
Comme j'ai bien dit, il se pourrait que j'ai des modifications sur ma feuille pour que le code fasse que je veux.

Je vous tiens au courant,

Robin

ucfoutu · Answer

Ce qu'il y a de certain, robby :
- on ne peut constamment changer les tenants d'un problème. Tu an avais définis deux types et en voilà maintenant un troisième ! (A toi de t'y mettre, dans ce cas).
- Il me parait en effet probable que tu n'as pas passé suffisamment de temps en matière de conception de ton appli et qu'au lieu de chercher des "rustines" tu ferais mieux de la remettre complètement à plat. Il est impératif que la conception soit pensée, en amont donc, en fonction de l'exploitation que l'on envisage de foire des données. Le contraire est une aberration.


________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

robby98800 · Answer

Bonjour ucfoutu,

J'imagine que tu vas être décu mais après avoir revu la conception de mon tableau je n'y ai rien trouvé d'anormal (je veux dire par là que quand on parcours les boucles et le programme,il devrait se remplir comme prévu). Vraiment là je ne sais plus quoi faire, je ne vois rien qui n'aille pas dans ton code et le tableau semble être adapté..

Je sais que tu n'ouvres pas les classeur d'autres personne mais je te laisse quand même l'exemple pour ne pas que tu "travailles en aveugle". J'ai seulement laisser les informations nécessaire pour le code à savoir les deux feuilles et les plages qui nous importe.
Si tu veux bien regarder ça serait vraiment m'aider.

http://cjoint.com/?0GkhTaeV3DS

Merci,

Robin

ucfoutu · Answer

C'est un classeur, que contient ton lien !
Ce n'est pas le code d'un classeur, qui me fait fuir (il est toujours possible de l'inhiber) ! C'est le classeur en soi. Il peut contenir à ton insu et véhiculer des choses. Or, tu me parais en plus un habitué de tels "échanges", ce qui multiplie les risques !

________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

ucfoutu · Answer

Pour ton information : tout un parc de pc d'un service pourtant bien "surveillé" s'est trouvé infecté à la suite d'échanges entre jeunes gens de simples documents Word sans la moindre macro . Et les conséquences ont été importantes : il n'a pas suffi, pour rétablir la situation, de reformater les disques. Il a fallu revenir à des sauvegardes très antérieures de tous les exe "maison".


________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

robby98800 · Answer

Re,

Si tu as un mail, je veux bien te l'envoyer comme ça. Envoie moi l'adresse en MP si ça te convient. Je ne vois pas d'autres solutions pour régler ce problème..

Merci, 

Robin

ucfoutu · Answer

Ca, alors !
Qu'il soit envoyé par mail, déposé sur un site ou mis sur un support, etc ..., un classeur reste un classeur !
Tu devrais relire attentivement ce que j'ai écrit plus haut 

________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

robby98800 · Answer

Je pensais que c'était le site qui pouvait poser problème je ne savais pas qu'un classeur excel pouvait engendrer tant de problème.
Je peux peut-être faire une copie d'écran alors?

ucfoutu · Answer

U8ne copie d'écran ? Oui, mais alors : deux : une avec les tenants, l'autre avec les aboutissants, le tout : accompagné des commentaires nécessaires quant à la relation entre le "départ" et "l'arrivée" !


________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

robby98800 · Answer

Voici les captures d'écran :

Fichemachine1	http://cjoint.com/?0GknCoZUtoa
Fichemachine2	http://cjoint.com/?0GknDnZWoqA
Feuille2 (Maxituo)	http://cjoint.com/?0GknEd4Fxg9

Je peux sinon te l'envoyer par mail

La macro qu'il y a derrière est celle ci : 
Sub fichemachineuc()
Dim I As Long, J As Long, macol As New Collection, derlign1 As Byte, derlign2 As Integer, quoi

derlign1 = Sheets("Fiche_machine").Range("B" & Rows.Count).End(xlUp).Row + 3
derlign2 = Sheets("Maxituo").Range("A" & Rows.Count).End(xlUp).Row
tablo1 = Sheets("Fiche_machine").Range("A22:C" & derlign1)
tablo2 = Sheets("Maxituo").Range("A3:K" & derlign2)
   
  Application.ScreenUpdating = False
  For I = 1 To UBound(tablo1)
    For J = 1 To UBound(tablo2)
       If Sheets("Fiche_machine").Range("A1") = tablo2(J, 2) Then
         If tablo1(I, 2) = tablo2(J, 1) Then
           If tablo1(I, 1) = tablo2(J, 5) Then
             If tablo2(J, 8) <= 14 Then
               If InStr(tablo1(I, 3), vbCrLf) = 0 Then
                 tablo1(I, 3) = tablo2(J, 3)
               Else
                 tablo1(I, 3) = tablo1(I, 3) & Chr(10) & tablo2(J, 3)
                 On Error Resume Next
                 macol.add I + 21, Str(I + 21)
               End If
             End If
           End If
         End If
      End If
    Next J
Next I
Sheets("Fiche_machine").Range("A22:C" & derlign1) = tablo1
For I = macol.Count To 1 Step -1
  quoi = Split(Range("C" & macol.Item(I)), Chr(10))
  For J = UBound(quoi) To 1 Step -1
    Rows(macol.Item(I) + 1).Insert , xlShiftDown
    Range("C" & macol.Item(I) + 1).Value = quoi(J)
  Next J
  Range("C" & macol.Item(I)).Value = quoi(0)
Next I
Application.ScreenUpdating = True
End Sub

robby98800 · Answer

Bonjour ucfoutu,

Je voulais savoir si les captures d'écran étaient assez clair et comportées les informations nécessaire pour pouvoir faire le code. As tu remarqué quelquechose d'incohérent entre le tableau et le code actuel? De mon côté je séche.

Robin

ucfoutu · Answer

Si tu poses cette question, c'est que tu as pris conscience de ce que tu n'as pas fait ce que je demandais, à savoir :
une avec les tenants, l'autre avec les aboutissants, le tout : accompagné des commentaires nécessaires quant à la relation entre le "départ" et "l'arrivée" ! 


________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

robby98800 · Answer

Je pensais l'avoir fait pour que ce soit compréhensible 
J'y retravaille !

ucfoutu · Answer

Et essaye de mettre tes 3 images dans une seule (groupe-les) de sorte à ce que je puisse voir tout à la fois sans avoir besoin de sans cesse naviguer d'un dessin à l'autre :
Ta feuille machine avant traitement et ta feuille maxituo (avec leurs données) 
Ta feuille machine après traitement


________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

ucfoutu · Answer

Je veux voir un exemple avec tout (des données de départ et leur résultat final), si possible le tout groupé en une seule image (tes 3 images groupées, donc, en une seule, de sorte à ce que je puisse m'y retrouver sans gymnastique et sans nécessité de tout garder en mémoire pour y voir un peu clair ).


________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

robby98800 · Answer

Okay ça marche, je vais faire ça.

robby98800 · Answer

Voilà tout est sur une image.	
http://cjoint.com/?0Gmk1jhAHEk

ucfoutu · Answer

OK !
J'ai maintenant vu quels étaient les tenants et aboutissants.
Il est clair qu'il y a à la base une carence de conception qui vient maintenant sacrément compliquer le traitement ! (conditions forcément "croisées" entre : machine concernée, types et positions !
Ce que tu veux obtenir peut quand-même l'être, mais : sur ces bases-là, ça va forcément "ramer" !
Je te conseille donc vivement de reprendre tout à la base (la conception même, qui ne relève pas, elle, du développement, mais d'autre chose).
Si toutefois, tu restes avec ta conception actuelle, je ferai avec, mais :
1) pas avant ce soir 
2) ne te plains ensuite pas de la lenteur d'exécution qui sera forcément induite
Tu dis !

________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

robby98800 · Answer

Okay entendu.
Certes les conditions sont forcément croisées mais c'est la nature même du problème que je dois traiter. La forme et le contenu de la feuille Maxituo m'a été imposé donc je ne pourrai pas faire de modification sur celle-ci.
En revanche sur la Fiche_machine j'ai carte blanche. C'est vrai qu'il y a par exemple un problème qui est que sous les "GEV en fonctionnement", "GEV debout arrêtée" etc.. j'ai laissé 3 lignes pour que les actions soit au même niveau que les conditions.
   - Une autre solution pourrait être de mettre les actions à mener dans différentes colonnes au lieu de différentes lignes pour éviter le problème énoncé juste avant. (seul problème la fiche_machine est amenée a être imprimée, et sous cette forme ça risque de ne pas rentrer. Après je peux toujours mettre un autre onglet ou je reprend les cellules en lignes avec une simple égalité de cellule...)
   - Pour palier toujours ce même problème, j'avais pensé à fusionner les cellules "GEV ..." plus 3 lignes en dessous et "Todolist..." plus 3 lignes en dessous. Dans ce cas là, il faudrait incrémenter la boucle qui agit sur ces deux colonnes en step 4 et la boucle pour la colonne des actions à mener à step 1. Bref ça me paraissait compliqué !

Je vais y réfléchir demain, et je te dirait. A vrai dire pour accélérer l'exécution, je ne pense pas que le problème majeur puisse être résolu, à savoir que les conditions sont croisées.
Finalement que l'éxécution soit longues ne me gène pas tellement du temps que le résultat est bon !

Je t'en reparle demain,

Bonne journée

robby98800 · Answer

Bonjour,

J'ai changé la conception du tableau. Il y aurait comme cala moins de boucle à faire mais la programmation serait surement plus complexe. A toi de voir lequel t'arrange le mieux, pour ma part peu importe lequel tu choisis je m'adapterai au critère de conception et temps d'éxécution, pas de souci.
http://cjoint.com/?0Gnj27TYeC8
Merci pour ton aide,

Robin

robby98800 · Answer

Bonjour ucfoutu,

Je viens aux nouvelles, est ce que tu t'en sors avec toutes ces conditions entremêlées?

ucfoutu · Answer

Pas eu le temps de m'y repencher (travaux de rénovation en cours). Je ne pourrai m'y remettre avant vendredi prochain.


________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

robby98800 · Answer

Okay ça marche, bon courage pour les travaux alors.

robby98800 · Answer

Bonjour ucfoutu, juste pour info je suis arrivé à faire la macro. Je te remercie pour ton aide. 
A la prochaine

Boucle For Next imbriquée

86 réponses

Votre réponse

Discussions similaires