"Feuille 1"
Colonne A : Nom
Colonne B Prénom
Colonne C D E F : des données
Colonne G : un code
"Feuille 2"
A1 : un code correspond à la "Feuille 1" colonne G
A partir de A10 :
copier les lignes l'une en dessous de l'autre de la "Feuille 1" correspond
au code de A1 sauf les données des colonnes D et G de la "Feuille1"
Je pense que c'est en macro, mais alors la on n'est pas copain tout les
deux,
déjà que la plupart des formules sont pas mes amis ! ! !
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
isabelle
bonjour David,
est que cette macro répond à ta demande ?
Sub Macro10() Dim c, x As Integer x = 2 For Each c In Sheets("Feuil1").Range("G10:G" & _ Sheets("Feuil1").Range("A65536").End(xlUp).Row) If c = Sheets("Feuil2").Range("A1").Value Then Sheets("Feuil1").Range("A" & c.Row & ":F" & c.Row).Copy _ Destination:=Sheets("Feuil2").Range("A" & x) x = x + 1 End If Next c Sheets("Feuil2").Columns("D:D").Delete Shift:=xlToLeft End Sub
isabelle
Re bonsoir à tous
"Feuille 1" Colonne A : Nom Colonne B Prénom Colonne C D E F : des données Colonne G : un code
"Feuille 2" A1 : un code correspond à la "Feuille 1" colonne G A partir de A10 : copier les lignes l'une en dessous de l'autre de la "Feuille 1" corresp ond au code de A1 sauf les données des colonnes D et G de la "Feuille1"
Je pense que c'est en macro, mais alors la on n'est pas copain tout les deux, déjà que la plupart des formules sont pas mes amis ! ! !
Merci de votre aide
David
bonjour David,
est que cette macro répond à ta demande ?
Sub Macro10()
Dim c, x As Integer
x = 2
For Each c In Sheets("Feuil1").Range("G10:G" & _
Sheets("Feuil1").Range("A65536").End(xlUp).Row)
If c = Sheets("Feuil2").Range("A1").Value Then
Sheets("Feuil1").Range("A" & c.Row & ":F" & c.Row).Copy _
Destination:=Sheets("Feuil2").Range("A" & x)
x = x + 1
End If
Next c
Sheets("Feuil2").Columns("D:D").Delete Shift:=xlToLeft
End Sub
isabelle
Re bonsoir à tous
"Feuille 1"
Colonne A : Nom
Colonne B Prénom
Colonne C D E F : des données
Colonne G : un code
"Feuille 2"
A1 : un code correspond à la "Feuille 1" colonne G
A partir de A10 :
copier les lignes l'une en dessous de l'autre de la "Feuille 1" corresp ond
au code de A1 sauf les données des colonnes D et G de la "Feuille1"
Je pense que c'est en macro, mais alors la on n'est pas copain tout les
deux,
déjà que la plupart des formules sont pas mes amis ! ! !
Sub Macro10() Dim c, x As Integer x = 2 For Each c In Sheets("Feuil1").Range("G10:G" & _ Sheets("Feuil1").Range("A65536").End(xlUp).Row) If c = Sheets("Feuil2").Range("A1").Value Then Sheets("Feuil1").Range("A" & c.Row & ":F" & c.Row).Copy _ Destination:=Sheets("Feuil2").Range("A" & x) x = x + 1 End If Next c Sheets("Feuil2").Columns("D:D").Delete Shift:=xlToLeft End Sub
isabelle
Re bonsoir à tous
"Feuille 1" Colonne A : Nom Colonne B Prénom Colonne C D E F : des données Colonne G : un code
"Feuille 2" A1 : un code correspond à la "Feuille 1" colonne G A partir de A10 : copier les lignes l'une en dessous de l'autre de la "Feuille 1" corresp ond au code de A1 sauf les données des colonnes D et G de la "Feuille1"
Je pense que c'est en macro, mais alors la on n'est pas copain tout les deux, déjà que la plupart des formules sont pas mes amis ! ! !
Merci de votre aide
David
AV
Sur Feuil2 : en A1 saisie d'un code En A10 : =INDEX(Nom;EQUIV(A1;code;0)) En A11 : =INDEX(Prénom;EQUIV(A1;code;0)) En A12 : =INDEX(Données1;EQUIV(A1;code;0)) En A13 : =INDEX(Données3;EQUIV(A1;code;0)) En A14 : =INDEX(Données4;EQUIV(A1;code;0))
Une soluce par macro (mêmes plages nommées) : Dans le module de Feuil2 (clic droit sur l'onglet => visualiser le code) Copier/coller le code suivant :
Private Sub Worksheet_Change(ByVal zz As Range) If zz.Address <> "$A$1" Then Exit Sub x = [match(A1,code,0)] + 1 Sheets("Feuil1").Range("A" & x & ":C" & x & ",E" & x & ":F" & x).Copy [A10].PasteSpecial Paste:=xlValues, Transpose:=True End Sub
A la saisie d'un code en A1 de feuil2 => mise à jour des divers renseignements
AV
"The Boss" a écrit dans le message news: beshso$aha$
Re bonsoir à tous
"Feuille 1" Colonne A : Nom Colonne B Prénom Colonne C D E F : des données Colonne G : un code
"Feuille 2" A1 : un code correspond à la "Feuille 1" colonne G A partir de A10 : copier les lignes l'une en dessous de l'autre de la "Feuille 1" correspond au code de A1 sauf les données des colonnes D et G de la "Feuille1"
Je pense que c'est en macro, mais alors la on n'est pas copain tout les deux, déjà que la plupart des formules sont pas mes amis ! ! !
Merci de votre aide
David
Sur Feuil2 :
en A1 saisie d'un code
En A10 : =INDEX(Nom;EQUIV(A1;code;0))
En A11 : =INDEX(Prénom;EQUIV(A1;code;0))
En A12 : =INDEX(Données1;EQUIV(A1;code;0))
En A13 : =INDEX(Données3;EQUIV(A1;code;0))
En A14 : =INDEX(Données4;EQUIV(A1;code;0))
Une soluce par macro (mêmes plages nommées) :
Dans le module de Feuil2 (clic droit sur l'onglet => visualiser le code)
Copier/coller le code suivant :
Private Sub Worksheet_Change(ByVal zz As Range)
If zz.Address <> "$A$1" Then Exit Sub
x = [match(A1,code,0)] + 1
Sheets("Feuil1").Range("A" & x & ":C" & x & ",E" & x & ":F" & x).Copy
[A10].PasteSpecial Paste:=xlValues, Transpose:=True
End Sub
A la saisie d'un code en A1 de feuil2 => mise à jour des divers renseignements
AV
"The Boss" <tribouilloy.david@wanadoo.fr> a écrit dans le message news:
beshso$aha$1@news-reader5.wanadoo.fr...
Re bonsoir à tous
"Feuille 1"
Colonne A : Nom
Colonne B Prénom
Colonne C D E F : des données
Colonne G : un code
"Feuille 2"
A1 : un code correspond à la "Feuille 1" colonne G
A partir de A10 :
copier les lignes l'une en dessous de l'autre de la "Feuille 1" correspond
au code de A1 sauf les données des colonnes D et G de la "Feuille1"
Je pense que c'est en macro, mais alors la on n'est pas copain tout les
deux,
déjà que la plupart des formules sont pas mes amis ! ! !
Sur Feuil2 : en A1 saisie d'un code En A10 : =INDEX(Nom;EQUIV(A1;code;0)) En A11 : =INDEX(Prénom;EQUIV(A1;code;0)) En A12 : =INDEX(Données1;EQUIV(A1;code;0)) En A13 : =INDEX(Données3;EQUIV(A1;code;0)) En A14 : =INDEX(Données4;EQUIV(A1;code;0))
Une soluce par macro (mêmes plages nommées) : Dans le module de Feuil2 (clic droit sur l'onglet => visualiser le code) Copier/coller le code suivant :
Private Sub Worksheet_Change(ByVal zz As Range) If zz.Address <> "$A$1" Then Exit Sub x = [match(A1,code,0)] + 1 Sheets("Feuil1").Range("A" & x & ":C" & x & ",E" & x & ":F" & x).Copy [A10].PasteSpecial Paste:=xlValues, Transpose:=True End Sub
A la saisie d'un code en A1 de feuil2 => mise à jour des divers renseignements
AV
"The Boss" a écrit dans le message news: beshso$aha$
Re bonsoir à tous
"Feuille 1" Colonne A : Nom Colonne B Prénom Colonne C D E F : des données Colonne G : un code
"Feuille 2" A1 : un code correspond à la "Feuille 1" colonne G A partir de A10 : copier les lignes l'une en dessous de l'autre de la "Feuille 1" correspond au code de A1 sauf les données des colonnes D et G de la "Feuille1"
Je pense que c'est en macro, mais alors la on n'est pas copain tout les deux, déjà que la plupart des formules sont pas mes amis ! ! !
Merci de votre aide
David
AV
Mauvais copier/coller de la réponse : il manque les précisions du début !
Une soluce avec formules Avec, sur Feuil1, les plages nommées (étiquettes en ligne 1): A2:Ax :Nom B2:Bx : Prénom C2:Cx : Données1 D2:Dx : Données2 E2:Ex : Données3 F2:Fx : Données4 C2:Gx : code
..etc...voir la suite au-dessus
AV
Mauvais copier/coller de la réponse : il manque les précisions du début !
Une soluce avec formules
Avec, sur Feuil1, les plages nommées (étiquettes en ligne 1):
A2:Ax :Nom
B2:Bx : Prénom
C2:Cx : Données1
D2:Dx : Données2
E2:Ex : Données3
F2:Fx : Données4
C2:Gx : code
