Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
FFO
Salut thomas
Je ne vois pas trop quelle requète te proposer compte tenu d'une certaine compléxité de ton contexte Mais cette macro relativement simple aboutit au même résultat :
For Each c In Worksheets("Feuil1").Range("A4", "A" & Sheets("Feuil1").Range("A65535").End(xlUp).Row) Sheets("Feuil2").Range("A65535").End(xlUp).Offset(1, 0) = c.Offset(0, 1) i = 1 For Each d In Worksheets("Feuil1").Range("D4", "D" & Sheets("Feuil1").Range("D65535").End(xlUp).Row) If d = c Then Sheets("Feuil2").Range("A65535").End(xlUp).Offset(0, i) = d.Offset(0, 1) i = i + 1 End If Next Next
à actualiser :
Feuil1 et Feuil2 (Onglet données source et Onglet Résultat) en fonction du nom des Onglets attribués
Range("A4", "A" & Sheets("Feuil1").Range("A65535").End(xlUp).Row) en fonction de la position des indexes de la table 1 dans la feuille
Range("D4", "D" & Sheets("Feuil1").Range("D65535").End(xlUp).Row) en fonction de la position des indexes de la table 2 dans la feuille
Effaces en Feuil2 le résultat (lignes 2 à 4) et actives la macro "Requète"
Fais des essais et dis moi !!!!
Salut thomas
Je ne vois pas trop quelle requète te proposer compte tenu d'une certaine
compléxité de ton contexte
Mais cette macro relativement simple aboutit au même résultat :
For Each c In Worksheets("Feuil1").Range("A4", "A" &
Sheets("Feuil1").Range("A65535").End(xlUp).Row)
Sheets("Feuil2").Range("A65535").End(xlUp).Offset(1, 0) = c.Offset(0, 1)
i = 1
For Each d In Worksheets("Feuil1").Range("D4", "D" &
Sheets("Feuil1").Range("D65535").End(xlUp).Row)
If d = c Then
Sheets("Feuil2").Range("A65535").End(xlUp).Offset(0, i) = d.Offset(0, 1)
i = i + 1
End If
Next
Next
à actualiser :
Feuil1 et Feuil2 (Onglet données source et Onglet Résultat) en fonction du
nom des Onglets attribués
Range("A4", "A" & Sheets("Feuil1").Range("A65535").End(xlUp).Row) en
fonction de la position des indexes de la table 1 dans la feuille
Range("D4", "D" & Sheets("Feuil1").Range("D65535").End(xlUp).Row) en
fonction de la position des indexes de la table 2 dans la feuille
Je ne vois pas trop quelle requète te proposer compte tenu d'une certaine compléxité de ton contexte Mais cette macro relativement simple aboutit au même résultat :
For Each c In Worksheets("Feuil1").Range("A4", "A" & Sheets("Feuil1").Range("A65535").End(xlUp).Row) Sheets("Feuil2").Range("A65535").End(xlUp).Offset(1, 0) = c.Offset(0, 1) i = 1 For Each d In Worksheets("Feuil1").Range("D4", "D" & Sheets("Feuil1").Range("D65535").End(xlUp).Row) If d = c Then Sheets("Feuil2").Range("A65535").End(xlUp).Offset(0, i) = d.Offset(0, 1) i = i + 1 End If Next Next
à actualiser :
Feuil1 et Feuil2 (Onglet données source et Onglet Résultat) en fonction du nom des Onglets attribués
Range("A4", "A" & Sheets("Feuil1").Range("A65535").End(xlUp).Row) en fonction de la position des indexes de la table 1 dans la feuille
Range("D4", "D" & Sheets("Feuil1").Range("D65535").End(xlUp).Row) en fonction de la position des indexes de la table 2 dans la feuille
Effaces en Feuil2 le résultat (lignes 2 à 4) et actives la macro "Requète"
Fais des essais et dis moi !!!!
thomas
merci mais je m'etais planté de forum.. C'etait pour access
"FFO" a écrit dans le message de groupe de discussion : Salut thomas
Je ne vois pas trop quelle requète te proposer compte tenu d'une certaine compléxité de ton contexte Mais cette macro relativement simple aboutit au même résultat :
For Each c In Worksheets("Feuil1").Range("A4", "A" & Sheets("Feuil1").Range("A65535").End(xlUp).Row) Sheets("Feuil2").Range("A65535").End(xlUp).Offset(1, 0) = c.Offset(0, 1) i = 1 For Each d In Worksheets("Feuil1").Range("D4", "D" & Sheets("Feuil1").Range("D65535").End(xlUp).Row) If d = c Then Sheets("Feuil2").Range("A65535").End(xlUp).Offset(0, i) = d.Offset(0, 1) i = i + 1 End If Next Next
à actualiser :
Feuil1 et Feuil2 (Onglet données source et Onglet Résultat) en fonction du nom des Onglets attribués
Range("A4", "A" & Sheets("Feuil1").Range("A65535").End(xlUp).Row) en fonction de la position des indexes de la table 1 dans la feuille
Range("D4", "D" & Sheets("Feuil1").Range("D65535").End(xlUp).Row) en fonction de la position des indexes de la table 2 dans la feuille
Effaces en Feuil2 le résultat (lignes 2 à 4) et actives la macro "Requète"
Fais des essais et dis moi !!!!
merci mais je m'etais planté de forum.. C'etait pour access
"FFO" <FFO@discussions.microsoft.com> a écrit dans le message de groupe de
discussion : 8F9EA48E-6CEE-4E0A-A413-4E3030609659@microsoft.com...
Salut thomas
Je ne vois pas trop quelle requète te proposer compte tenu d'une certaine
compléxité de ton contexte
Mais cette macro relativement simple aboutit au même résultat :
For Each c In Worksheets("Feuil1").Range("A4", "A" &
Sheets("Feuil1").Range("A65535").End(xlUp).Row)
Sheets("Feuil2").Range("A65535").End(xlUp).Offset(1, 0) = c.Offset(0, 1)
i = 1
For Each d In Worksheets("Feuil1").Range("D4", "D" &
Sheets("Feuil1").Range("D65535").End(xlUp).Row)
If d = c Then
Sheets("Feuil2").Range("A65535").End(xlUp).Offset(0, i) = d.Offset(0, 1)
i = i + 1
End If
Next
Next
à actualiser :
Feuil1 et Feuil2 (Onglet données source et Onglet Résultat) en fonction du
nom des Onglets attribués
Range("A4", "A" & Sheets("Feuil1").Range("A65535").End(xlUp).Row) en
fonction de la position des indexes de la table 1 dans la feuille
Range("D4", "D" & Sheets("Feuil1").Range("D65535").End(xlUp).Row) en
fonction de la position des indexes de la table 2 dans la feuille
merci mais je m'etais planté de forum.. C'etait pour access
"FFO" a écrit dans le message de groupe de discussion : Salut thomas
Je ne vois pas trop quelle requète te proposer compte tenu d'une certaine compléxité de ton contexte Mais cette macro relativement simple aboutit au même résultat :
For Each c In Worksheets("Feuil1").Range("A4", "A" & Sheets("Feuil1").Range("A65535").End(xlUp).Row) Sheets("Feuil2").Range("A65535").End(xlUp).Offset(1, 0) = c.Offset(0, 1) i = 1 For Each d In Worksheets("Feuil1").Range("D4", "D" & Sheets("Feuil1").Range("D65535").End(xlUp).Row) If d = c Then Sheets("Feuil2").Range("A65535").End(xlUp).Offset(0, i) = d.Offset(0, 1) i = i + 1 End If Next Next
à actualiser :
Feuil1 et Feuil2 (Onglet données source et Onglet Résultat) en fonction du nom des Onglets attribués
Range("A4", "A" & Sheets("Feuil1").Range("A65535").End(xlUp).Row) en fonction de la position des indexes de la table 1 dans la feuille
Range("D4", "D" & Sheets("Feuil1").Range("D65535").End(xlUp).Row) en fonction de la position des indexes de la table 2 dans la feuille
Effaces en Feuil2 le résultat (lignes 2 à 4) et actives la macro "Requète"
Fais des essais et dis moi !!!!
J&B
Bonsoir,
La lecture et le test de cette macro est presque ce que je cherche. Par contre dans la table 2 j'ai plusieurs champs description (decription2, decription3, ....que je voudrai donc ajouter dans la feuille 2
Merci pour l'aide
"thomas" <nomail> a écrit dans le message de news:
merci mais je m'etais planté de forum.. C'etait pour access
"FFO" a écrit dans le message de groupe de discussion : Salut thomas
Je ne vois pas trop quelle requète te proposer compte tenu d'une certaine compléxité de ton contexte Mais cette macro relativement simple aboutit au même résultat :
For Each c In Worksheets("Feuil1").Range("A4", "A" & Sheets("Feuil1").Range("A65535").End(xlUp).Row) Sheets("Feuil2").Range("A65535").End(xlUp).Offset(1, 0) = c.Offset(0, 1) i = 1 For Each d In Worksheets("Feuil1").Range("D4", "D" & Sheets("Feuil1").Range("D65535").End(xlUp).Row) If d = c Then Sheets("Feuil2").Range("A65535").End(xlUp).Offset(0, i) = d.Offset(0, 1) i = i + 1 End If Next Next
à actualiser :
Feuil1 et Feuil2 (Onglet données source et Onglet Résultat) en fonction du nom des Onglets attribués
Range("A4", "A" & Sheets("Feuil1").Range("A65535").End(xlUp).Row) en fonction de la position des indexes de la table 1 dans la feuille
Range("D4", "D" & Sheets("Feuil1").Range("D65535").End(xlUp).Row) en fonction de la position des indexes de la table 2 dans la feuille
Effaces en Feuil2 le résultat (lignes 2 à 4) et actives la macro "Requète"
Fais des essais et dis moi !!!!
Bonsoir,
La lecture et le test de cette macro est presque ce que je cherche.
Par contre dans la table 2 j'ai plusieurs champs description (decription2,
decription3, ....que je voudrai donc ajouter
dans la feuille 2
Merci pour l'aide
"thomas" <nomail> a écrit dans le message de news:
ur40ClsOJHA.1144@TK2MSFTNGP05.phx.gbl...
merci mais je m'etais planté de forum.. C'etait pour access
"FFO" <FFO@discussions.microsoft.com> a écrit dans le message de groupe de
discussion : 8F9EA48E-6CEE-4E0A-A413-4E3030609659@microsoft.com...
Salut thomas
Je ne vois pas trop quelle requète te proposer compte tenu d'une certaine
compléxité de ton contexte
Mais cette macro relativement simple aboutit au même résultat :
For Each c In Worksheets("Feuil1").Range("A4", "A" &
Sheets("Feuil1").Range("A65535").End(xlUp).Row)
Sheets("Feuil2").Range("A65535").End(xlUp).Offset(1, 0) = c.Offset(0, 1)
i = 1
For Each d In Worksheets("Feuil1").Range("D4", "D" &
Sheets("Feuil1").Range("D65535").End(xlUp).Row)
If d = c Then
Sheets("Feuil2").Range("A65535").End(xlUp).Offset(0, i) = d.Offset(0, 1)
i = i + 1
End If
Next
Next
à actualiser :
Feuil1 et Feuil2 (Onglet données source et Onglet Résultat) en fonction du
nom des Onglets attribués
Range("A4", "A" & Sheets("Feuil1").Range("A65535").End(xlUp).Row) en
fonction de la position des indexes de la table 1 dans la feuille
Range("D4", "D" & Sheets("Feuil1").Range("D65535").End(xlUp).Row) en
fonction de la position des indexes de la table 2 dans la feuille
La lecture et le test de cette macro est presque ce que je cherche. Par contre dans la table 2 j'ai plusieurs champs description (decription2, decription3, ....que je voudrai donc ajouter dans la feuille 2
Merci pour l'aide
"thomas" <nomail> a écrit dans le message de news:
merci mais je m'etais planté de forum.. C'etait pour access
"FFO" a écrit dans le message de groupe de discussion : Salut thomas
Je ne vois pas trop quelle requète te proposer compte tenu d'une certaine compléxité de ton contexte Mais cette macro relativement simple aboutit au même résultat :
For Each c In Worksheets("Feuil1").Range("A4", "A" & Sheets("Feuil1").Range("A65535").End(xlUp).Row) Sheets("Feuil2").Range("A65535").End(xlUp).Offset(1, 0) = c.Offset(0, 1) i = 1 For Each d In Worksheets("Feuil1").Range("D4", "D" & Sheets("Feuil1").Range("D65535").End(xlUp).Row) If d = c Then Sheets("Feuil2").Range("A65535").End(xlUp).Offset(0, i) = d.Offset(0, 1) i = i + 1 End If Next Next
à actualiser :
Feuil1 et Feuil2 (Onglet données source et Onglet Résultat) en fonction du nom des Onglets attribués
Range("A4", "A" & Sheets("Feuil1").Range("A65535").End(xlUp).Row) en fonction de la position des indexes de la table 1 dans la feuille
Range("D4", "D" & Sheets("Feuil1").Range("D65535").End(xlUp).Row) en fonction de la position des indexes de la table 2 dans la feuille
et faire évoluer la variable i en fonction de ce nombre de champ Pour 1 champ : i = i+1 Pour 2 champs : i = i+2 Pour 3 champs : i = i+3 Pour 4 champs i = i+4
Etc....
ce qui donne ce code pour 4 champs :
For Each c In Worksheets("Feuil1").Range("A4", "A" & Sheets("Feuil1").Range("A65535").End(xlUp).Row) Sheets("Feuil2").Range("A65535").End(xlUp).Offset(1, 0) = c.Offset(0, 1) i = 1 For Each d In Worksheets("Feuil1").Range("D4", "D" & Sheets("Feuil1").Range("D65535").End(xlUp).Row) If d = c Then Sheets("Feuil2").Range("A65535").End(xlUp).Offset(0, i) = d.Offset(0, 1) Sheets("Feuil2").Range("A65535").End(xlUp).Offset(0, i + 1) = d.Offset(0, 2) Sheets("Feuil2").Range("A65535").End(xlUp).Offset(0, i + 2) = d.Offset(0, 3) Sheets("Feuil2").Range("A65535").End(xlUp).Offset(0, i + 3) = d.Offset(0, 4) i = i + 4 End If Next Next
et faire évoluer la variable i en fonction de ce nombre de champ
Pour 1 champ :
i = i+1
Pour 2 champs :
i = i+2
Pour 3 champs :
i = i+3
Pour 4 champs
i = i+4
Etc....
ce qui donne ce code pour 4 champs :
For Each c In Worksheets("Feuil1").Range("A4", "A" &
Sheets("Feuil1").Range("A65535").End(xlUp).Row)
Sheets("Feuil2").Range("A65535").End(xlUp).Offset(1, 0) = c.Offset(0, 1)
i = 1
For Each d In Worksheets("Feuil1").Range("D4", "D" &
Sheets("Feuil1").Range("D65535").End(xlUp).Row)
If d = c Then
Sheets("Feuil2").Range("A65535").End(xlUp).Offset(0, i) = d.Offset(0, 1)
Sheets("Feuil2").Range("A65535").End(xlUp).Offset(0, i + 1) = d.Offset(0, 2)
Sheets("Feuil2").Range("A65535").End(xlUp).Offset(0, i + 2) = d.Offset(0, 3)
Sheets("Feuil2").Range("A65535").End(xlUp).Offset(0, i + 3) = d.Offset(0, 4)
i = i + 4
End If
Next
Next
et faire évoluer la variable i en fonction de ce nombre de champ Pour 1 champ : i = i+1 Pour 2 champs : i = i+2 Pour 3 champs : i = i+3 Pour 4 champs i = i+4
Etc....
ce qui donne ce code pour 4 champs :
For Each c In Worksheets("Feuil1").Range("A4", "A" & Sheets("Feuil1").Range("A65535").End(xlUp).Row) Sheets("Feuil2").Range("A65535").End(xlUp).Offset(1, 0) = c.Offset(0, 1) i = 1 For Each d In Worksheets("Feuil1").Range("D4", "D" & Sheets("Feuil1").Range("D65535").End(xlUp).Row) If d = c Then Sheets("Feuil2").Range("A65535").End(xlUp).Offset(0, i) = d.Offset(0, 1) Sheets("Feuil2").Range("A65535").End(xlUp).Offset(0, i + 1) = d.Offset(0, 2) Sheets("Feuil2").Range("A65535").End(xlUp).Offset(0, i + 2) = d.Offset(0, 3) Sheets("Feuil2").Range("A65535").End(xlUp).Offset(0, i + 3) = d.Offset(0, 4) i = i + 4 End If Next Next