Boucles imbriquées

[Hoareau]

Bonjour

Je cherche à faire deux boucles imbriquée

Sur la feuille jointe trois onglets

BD,tableau et résultat


Je cherche à faire deux boucles imbriquées


1)Boucle sur le tableau range("a6:a400" ) de l'onglet tableau et cherche si les valeurs de la première ligne de BD sont dans le tableau
2)Met dans la feuille resultat, toutes les valeurs, n'étant pas dans la ligne en cours de Bd dans une colonne.

Pour résumer, une ligne de Bd correspond à ne colonne de résultat.

boucle jusqu'à la fin de bd.

A chaque ligne de BD correspond une boucle sur le tableau, 10 lignes de BD = 10 fois la boucle sur le tableau



merci

 

[Caillou]

Re : Boucles imbriquées

Bonjour,

Je n'ai pas bien compris le résultat que tu souhaites obtenir !

Caillou

 

[Hoareau]

Re : Boucles imbriquées

range("a6:a400" ) est mis dans un tableau

Boucle sur le tableau, jusqu'à trouver les valeurs de la 1ère ligne de BD, puis création d'une colonne qui contient toutes les valeurs non trouvées de la 1 ère de ligne de BD, dans la feuille resultat.

Puis 2 ème ligne de bd qui donnera le resultat pour la deuxième colonne de résutat


etc....

 

[Caillou]

Re : Boucles imbriquées

Essayes ceci :

Sub test()
  Dim ti As Integer         'ligne de tableau
  Dim bdi As Integer        'ligne de bd
  Dim bdj As Integer        'colonne de bd
  Dim resi As Integer       'ligne de resultat
  Dim resj As Integer       'colonne de resultat
  Dim bd As Worksheet       'feuille bd
  Dim T As Worksheet        'feuille tableau
  Dim Res As Worksheet      'feuille resultat
  Dim cpt As Integer        'compteur
  
  Set bd = Worksheets("BD")
  Set T = Worksheets("Tableau")
  Set Res = Worksheets("Resultat")
  resi = 1
  resj = 1
  
  For bdi = 1 To 16                                     'boucle sur ligne de bd
    For bdj = 1 To 19                                   'boucle sur colonne de bd
      For ti = 1 To 453                                 'boucle sur ligne de tableau
        If bd.Cells(bdi, bdj) = T.Cells(ti, 1) Then
          Exit For
        End If
      Next
      If ti > 453 Then
        Res.Cells(resi, resj) = bd.Cells(bdi, bdj)
        resi = resi + 1
      End If
    Next
    resi = 1
    resj = resj + 1
  Next
End Sub

caillou

 

[jpb388]

Re : Boucles imbriquées

Bonjour à tous ,Caillou
le premier ligne par ligne
le second nom manquant dans toute la bd
version dictionary

 

[Hoareau]

Re : Boucles imbriquées

Merci pour l'essai

dans BD, il y a 16 lignes, donc 16 colonnes dans résultat

 

[Caillou]

Re : Boucles imbriquées

dans BD, il y a 16 lignes, donc 16 colonnes dans résultat

sauf s'il n'y a pas de différence

 

[Hoareau]

Re : Boucles imbriquées

la version de jpb388 est presque ça, sauf que les noms figurants, par exemple sur la 1 ère ligne, ne doivent pas figurer dans la 1 erre colonne de résultat etc...

 

[jpb388]

Re : Boucles imbriquées

re
j'ai rectifié le tir

 

[Hoareau]

Re :[Resolu] Boucles imbriquées

Impeccable

merci