Bonjour,
dans la feuil1 j'ai un certain nombre de colonne avec les titres ci
dessous.
Ex :
Col A : TYPE
Col B : B.R.
Col C : CALP
.......
.......
Avec un remplissage different dans chacune des col.
Je souhaiterais dans ma Feuil2 en Col A (et que en col A) la totalité des
données (y compris les titres) de la Feuil1, c'est à dire qu'il me mette
tous ce qu'il y a de la Col A de la feuil1 et lorsqu'il y aura un vide,
qu'il prenne la totalité de la Col B jusqu'à un vide et qu'il passe à la
Col C ....etc...et ce jusqu'a la colonne P de la feuil1.
La difficulté vous l'avez compris c'est que tout soit interactif, si
j'ajoute un element a la fin de ma col A de feuil1 il faudra que ma colA
de Feuil2 se mette à jour.
En fait, mon resultat de la Col A de Feuil2 devrait ressembler à cela :
TYPE
rt56
ty32
jh24
B.R.
b444
bn35
CALP
calp99
calp01
.....
Merci
Manu
Bonjour,
dans la feuil1 j'ai un certain nombre de colonne avec les titres ci
dessous.
Ex :
Col A : TYPE
Col B : B.R.
Col C : CALP
.......
.......
Avec un remplissage different dans chacune des col.
Je souhaiterais dans ma Feuil2 en Col A (et que en col A) la totalité des
données (y compris les titres) de la Feuil1, c'est à dire qu'il me mette
tous ce qu'il y a de la Col A de la feuil1 et lorsqu'il y aura un vide,
qu'il prenne la totalité de la Col B jusqu'à un vide et qu'il passe à la
Col C ....etc...et ce jusqu'a la colonne P de la feuil1.
La difficulté vous l'avez compris c'est que tout soit interactif, si
j'ajoute un element a la fin de ma col A de feuil1 il faudra que ma colA
de Feuil2 se mette à jour.
En fait, mon resultat de la Col A de Feuil2 devrait ressembler à cela :
TYPE
rt56
ty32
jh24
B.R.
b444
bn35
CALP
calp99
calp01
.....
Merci
Manu
Bonjour,
dans la feuil1 j'ai un certain nombre de colonne avec les titres ci
dessous.
Ex :
Col A : TYPE
Col B : B.R.
Col C : CALP
.......
.......
Avec un remplissage different dans chacune des col.
Je souhaiterais dans ma Feuil2 en Col A (et que en col A) la totalité des
données (y compris les titres) de la Feuil1, c'est à dire qu'il me mette
tous ce qu'il y a de la Col A de la feuil1 et lorsqu'il y aura un vide,
qu'il prenne la totalité de la Col B jusqu'à un vide et qu'il passe à la
Col C ....etc...et ce jusqu'a la colonne P de la feuil1.
La difficulté vous l'avez compris c'est que tout soit interactif, si
j'ajoute un element a la fin de ma col A de feuil1 il faudra que ma colA
de Feuil2 se mette à jour.
En fait, mon resultat de la Col A de Feuil2 devrait ressembler à cela :
TYPE
rt56
ty32
jh24
B.R.
b444
bn35
CALP
calp99
calp01
.....
Merci
Manu
Bonjour.
A mettre dans le code de la feuille :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim x As Integer, Ligne As Long
If Target.Column > 5 Or Target.Count > 1 Then Exit Sub
Ligne = 1
Sheets("Feuil2").Range("A:A").ClearContents
Var = Range("IV1").End(xlToLeft).Column
For x = 1 To Range("IV1").End(xlToLeft).Column
Range(Cells(1, x), Cells(Cells(65536, x).End(xlUp).Row, x)).Copy
Range(Cells(1, x), Cells(Cells(65536, x).End(xlUp).Row, x)).Copy _
Sheets("Feuil2").Cells(Ligne, 1)
Ligne = Ligne + Cells(65536, x).End(xlUp).Row
Next
End Sub
Cordialement.
Daniel
"Manu" a écrit dans le message de news:
%23$Bonjour,
dans la feuil1 j'ai un certain nombre de colonne avec les titres ci
dessous.
Ex :
Col A : TYPE
Col B : B.R.
Col C : CALP
.......
.......
Avec un remplissage different dans chacune des col.
Je souhaiterais dans ma Feuil2 en Col A (et que en col A) la totalité des
données (y compris les titres) de la Feuil1, c'est à dire qu'il me mette
tous ce qu'il y a de la Col A de la feuil1 et lorsqu'il y aura un vide,
qu'il prenne la totalité de la Col B jusqu'à un vide et qu'il passe à la
Col C ....etc...et ce jusqu'a la colonne P de la feuil1.
La difficulté vous l'avez compris c'est que tout soit interactif, si
j'ajoute un element a la fin de ma col A de feuil1 il faudra que ma colA
de Feuil2 se mette à jour.
En fait, mon resultat de la Col A de Feuil2 devrait ressembler à cela :
TYPE
rt56
ty32
jh24
B.R.
b444
bn35
CALP
calp99
calp01
.....
Merci
Manu
Bonjour.
A mettre dans le code de la feuille :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim x As Integer, Ligne As Long
If Target.Column > 5 Or Target.Count > 1 Then Exit Sub
Ligne = 1
Sheets("Feuil2").Range("A:A").ClearContents
Var = Range("IV1").End(xlToLeft).Column
For x = 1 To Range("IV1").End(xlToLeft).Column
Range(Cells(1, x), Cells(Cells(65536, x).End(xlUp).Row, x)).Copy
Range(Cells(1, x), Cells(Cells(65536, x).End(xlUp).Row, x)).Copy _
Sheets("Feuil2").Cells(Ligne, 1)
Ligne = Ligne + Cells(65536, x).End(xlUp).Row
Next
End Sub
Cordialement.
Daniel
"Manu" <manuel.gamin@wanadoo.fr> a écrit dans le message de news:
%23$4HeCEVHHA.4756@TK2MSFTNGP06.phx.gbl...
Bonjour,
dans la feuil1 j'ai un certain nombre de colonne avec les titres ci
dessous.
Ex :
Col A : TYPE
Col B : B.R.
Col C : CALP
.......
.......
Avec un remplissage different dans chacune des col.
Je souhaiterais dans ma Feuil2 en Col A (et que en col A) la totalité des
données (y compris les titres) de la Feuil1, c'est à dire qu'il me mette
tous ce qu'il y a de la Col A de la feuil1 et lorsqu'il y aura un vide,
qu'il prenne la totalité de la Col B jusqu'à un vide et qu'il passe à la
Col C ....etc...et ce jusqu'a la colonne P de la feuil1.
La difficulté vous l'avez compris c'est que tout soit interactif, si
j'ajoute un element a la fin de ma col A de feuil1 il faudra que ma colA
de Feuil2 se mette à jour.
En fait, mon resultat de la Col A de Feuil2 devrait ressembler à cela :
TYPE
rt56
ty32
jh24
B.R.
b444
bn35
CALP
calp99
calp01
.....
Merci
Manu
Bonjour.
A mettre dans le code de la feuille :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim x As Integer, Ligne As Long
If Target.Column > 5 Or Target.Count > 1 Then Exit Sub
Ligne = 1
Sheets("Feuil2").Range("A:A").ClearContents
Var = Range("IV1").End(xlToLeft).Column
For x = 1 To Range("IV1").End(xlToLeft).Column
Range(Cells(1, x), Cells(Cells(65536, x).End(xlUp).Row, x)).Copy
Range(Cells(1, x), Cells(Cells(65536, x).End(xlUp).Row, x)).Copy _
Sheets("Feuil2").Cells(Ligne, 1)
Ligne = Ligne + Cells(65536, x).End(xlUp).Row
Next
End Sub
Cordialement.
Daniel
"Manu" a écrit dans le message de news:
%23$Bonjour,
dans la feuil1 j'ai un certain nombre de colonne avec les titres ci
dessous.
Ex :
Col A : TYPE
Col B : B.R.
Col C : CALP
.......
.......
Avec un remplissage different dans chacune des col.
Je souhaiterais dans ma Feuil2 en Col A (et que en col A) la totalité des
données (y compris les titres) de la Feuil1, c'est à dire qu'il me mette
tous ce qu'il y a de la Col A de la feuil1 et lorsqu'il y aura un vide,
qu'il prenne la totalité de la Col B jusqu'à un vide et qu'il passe à la
Col C ....etc...et ce jusqu'a la colonne P de la feuil1.
La difficulté vous l'avez compris c'est que tout soit interactif, si
j'ajoute un element a la fin de ma col A de feuil1 il faudra que ma colA
de Feuil2 se mette à jour.
En fait, mon resultat de la Col A de Feuil2 devrait ressembler à cela :
TYPE
rt56
ty32
jh24
B.R.
b444
bn35
CALP
calp99
calp01
.....
Merci
Manu
PS. tu peux ôter la ligne :
Var = Range("IV1").End(xlToLeft).Column
et la ligne :
Range(Cells(1, x), Cells(Cells(65536, x).End(xlUp).Row, x)).Copy
Daniel
"Daniel" a écrit dans le message de news:Bonjour.
A mettre dans le code de la feuille :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim x As Integer, Ligne As Long
If Target.Column > 5 Or Target.Count > 1 Then Exit Sub
Ligne = 1
Sheets("Feuil2").Range("A:A").ClearContents
Var = Range("IV1").End(xlToLeft).Column
For x = 1 To Range("IV1").End(xlToLeft).Column
Range(Cells(1, x), Cells(Cells(65536, x).End(xlUp).Row, x)).Copy
Range(Cells(1, x), Cells(Cells(65536, x).End(xlUp).Row, x)).Copy _
Sheets("Feuil2").Cells(Ligne, 1)
Ligne = Ligne + Cells(65536, x).End(xlUp).Row
Next
End Sub
Cordialement.
Daniel
"Manu" a écrit dans le message de news:
%23$Bonjour,
dans la feuil1 j'ai un certain nombre de colonne avec les titres ci
dessous.
Ex :
Col A : TYPE
Col B : B.R.
Col C : CALP
.......
.......
Avec un remplissage different dans chacune des col.
Je souhaiterais dans ma Feuil2 en Col A (et que en col A) la totalité
des données (y compris les titres) de la Feuil1, c'est à dire qu'il me
mette tous ce qu'il y a de la Col A de la feuil1 et lorsqu'il y aura un
vide, qu'il prenne la totalité de la Col B jusqu'à un vide et qu'il
passe à la Col C ....etc...et ce jusqu'a la colonne P de la feuil1.
La difficulté vous l'avez compris c'est que tout soit interactif, si
j'ajoute un element a la fin de ma col A de feuil1 il faudra que ma colA
de Feuil2 se mette à jour.
En fait, mon resultat de la Col A de Feuil2 devrait ressembler à cela :
TYPE
rt56
ty32
jh24
B.R.
b444
bn35
CALP
calp99
calp01
.....
Merci
Manu
PS. tu peux ôter la ligne :
Var = Range("IV1").End(xlToLeft).Column
et la ligne :
Range(Cells(1, x), Cells(Cells(65536, x).End(xlUp).Row, x)).Copy
Daniel
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
eVT5VkEVHHA.868@TK2MSFTNGP05.phx.gbl...
Bonjour.
A mettre dans le code de la feuille :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim x As Integer, Ligne As Long
If Target.Column > 5 Or Target.Count > 1 Then Exit Sub
Ligne = 1
Sheets("Feuil2").Range("A:A").ClearContents
Var = Range("IV1").End(xlToLeft).Column
For x = 1 To Range("IV1").End(xlToLeft).Column
Range(Cells(1, x), Cells(Cells(65536, x).End(xlUp).Row, x)).Copy
Range(Cells(1, x), Cells(Cells(65536, x).End(xlUp).Row, x)).Copy _
Sheets("Feuil2").Cells(Ligne, 1)
Ligne = Ligne + Cells(65536, x).End(xlUp).Row
Next
End Sub
Cordialement.
Daniel
"Manu" <manuel.gamin@wanadoo.fr> a écrit dans le message de news:
%23$4HeCEVHHA.4756@TK2MSFTNGP06.phx.gbl...
Bonjour,
dans la feuil1 j'ai un certain nombre de colonne avec les titres ci
dessous.
Ex :
Col A : TYPE
Col B : B.R.
Col C : CALP
.......
.......
Avec un remplissage different dans chacune des col.
Je souhaiterais dans ma Feuil2 en Col A (et que en col A) la totalité
des données (y compris les titres) de la Feuil1, c'est à dire qu'il me
mette tous ce qu'il y a de la Col A de la feuil1 et lorsqu'il y aura un
vide, qu'il prenne la totalité de la Col B jusqu'à un vide et qu'il
passe à la Col C ....etc...et ce jusqu'a la colonne P de la feuil1.
La difficulté vous l'avez compris c'est que tout soit interactif, si
j'ajoute un element a la fin de ma col A de feuil1 il faudra que ma colA
de Feuil2 se mette à jour.
En fait, mon resultat de la Col A de Feuil2 devrait ressembler à cela :
TYPE
rt56
ty32
jh24
B.R.
b444
bn35
CALP
calp99
calp01
.....
Merci
Manu
PS. tu peux ôter la ligne :
Var = Range("IV1").End(xlToLeft).Column
et la ligne :
Range(Cells(1, x), Cells(Cells(65536, x).End(xlUp).Row, x)).Copy
Daniel
"Daniel" a écrit dans le message de news:Bonjour.
A mettre dans le code de la feuille :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim x As Integer, Ligne As Long
If Target.Column > 5 Or Target.Count > 1 Then Exit Sub
Ligne = 1
Sheets("Feuil2").Range("A:A").ClearContents
Var = Range("IV1").End(xlToLeft).Column
For x = 1 To Range("IV1").End(xlToLeft).Column
Range(Cells(1, x), Cells(Cells(65536, x).End(xlUp).Row, x)).Copy
Range(Cells(1, x), Cells(Cells(65536, x).End(xlUp).Row, x)).Copy _
Sheets("Feuil2").Cells(Ligne, 1)
Ligne = Ligne + Cells(65536, x).End(xlUp).Row
Next
End Sub
Cordialement.
Daniel
"Manu" a écrit dans le message de news:
%23$Bonjour,
dans la feuil1 j'ai un certain nombre de colonne avec les titres ci
dessous.
Ex :
Col A : TYPE
Col B : B.R.
Col C : CALP
.......
.......
Avec un remplissage different dans chacune des col.
Je souhaiterais dans ma Feuil2 en Col A (et que en col A) la totalité
des données (y compris les titres) de la Feuil1, c'est à dire qu'il me
mette tous ce qu'il y a de la Col A de la feuil1 et lorsqu'il y aura un
vide, qu'il prenne la totalité de la Col B jusqu'à un vide et qu'il
passe à la Col C ....etc...et ce jusqu'a la colonne P de la feuil1.
La difficulté vous l'avez compris c'est que tout soit interactif, si
j'ajoute un element a la fin de ma col A de feuil1 il faudra que ma colA
de Feuil2 se mette à jour.
En fait, mon resultat de la Col A de Feuil2 devrait ressembler à cela :
TYPE
rt56
ty32
jh24
B.R.
b444
bn35
CALP
calp99
calp01
.....
Merci
Manu
Merci Daniel et est-ce possible en formule car je recherche depuis un
moment et je pense qu'on doit pouvoir y arriver
Manu
"Daniel" a écrit dans le message de news:
%PS. tu peux ôter la ligne :
Var = Range("IV1").End(xlToLeft).Column
et la ligne :
Range(Cells(1, x), Cells(Cells(65536, x).End(xlUp).Row, x)).Copy
Daniel
"Daniel" a écrit dans le message de news:Bonjour.
A mettre dans le code de la feuille :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim x As Integer, Ligne As Long
If Target.Column > 5 Or Target.Count > 1 Then Exit Sub
Ligne = 1
Sheets("Feuil2").Range("A:A").ClearContents
Var = Range("IV1").End(xlToLeft).Column
For x = 1 To Range("IV1").End(xlToLeft).Column
Range(Cells(1, x), Cells(Cells(65536, x).End(xlUp).Row, x)).Copy
Range(Cells(1, x), Cells(Cells(65536, x).End(xlUp).Row, x)).Copy
_
Sheets("Feuil2").Cells(Ligne, 1)
Ligne = Ligne + Cells(65536, x).End(xlUp).Row
Next
End Sub
Cordialement.
Daniel
"Manu" a écrit dans le message de news:
%23$Bonjour,
dans la feuil1 j'ai un certain nombre de colonne avec les titres ci
dessous.
Ex :
Col A : TYPE
Col B : B.R.
Col C : CALP
.......
.......
Avec un remplissage different dans chacune des col.
Je souhaiterais dans ma Feuil2 en Col A (et que en col A) la totalité
des données (y compris les titres) de la Feuil1, c'est à dire qu'il me
mette tous ce qu'il y a de la Col A de la feuil1 et lorsqu'il y aura un
vide, qu'il prenne la totalité de la Col B jusqu'à un vide et qu'il
passe à la Col C ....etc...et ce jusqu'a la colonne P de la feuil1.
La difficulté vous l'avez compris c'est que tout soit interactif, si
j'ajoute un element a la fin de ma col A de feuil1 il faudra que ma
colA de Feuil2 se mette à jour.
En fait, mon resultat de la Col A de Feuil2 devrait ressembler à cela :
TYPE
rt56
ty32
jh24
B.R.
b444
bn35
CALP
calp99
calp01
.....
Merci
Manu
Merci Daniel et est-ce possible en formule car je recherche depuis un
moment et je pense qu'on doit pouvoir y arriver
Manu
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
%23wOz6sEVHHA.2212@TK2MSFTNGP02.phx.gbl...
PS. tu peux ôter la ligne :
Var = Range("IV1").End(xlToLeft).Column
et la ligne :
Range(Cells(1, x), Cells(Cells(65536, x).End(xlUp).Row, x)).Copy
Daniel
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
eVT5VkEVHHA.868@TK2MSFTNGP05.phx.gbl...
Bonjour.
A mettre dans le code de la feuille :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim x As Integer, Ligne As Long
If Target.Column > 5 Or Target.Count > 1 Then Exit Sub
Ligne = 1
Sheets("Feuil2").Range("A:A").ClearContents
Var = Range("IV1").End(xlToLeft).Column
For x = 1 To Range("IV1").End(xlToLeft).Column
Range(Cells(1, x), Cells(Cells(65536, x).End(xlUp).Row, x)).Copy
Range(Cells(1, x), Cells(Cells(65536, x).End(xlUp).Row, x)).Copy
_
Sheets("Feuil2").Cells(Ligne, 1)
Ligne = Ligne + Cells(65536, x).End(xlUp).Row
Next
End Sub
Cordialement.
Daniel
"Manu" <manuel.gamin@wanadoo.fr> a écrit dans le message de news:
%23$4HeCEVHHA.4756@TK2MSFTNGP06.phx.gbl...
Bonjour,
dans la feuil1 j'ai un certain nombre de colonne avec les titres ci
dessous.
Ex :
Col A : TYPE
Col B : B.R.
Col C : CALP
.......
.......
Avec un remplissage different dans chacune des col.
Je souhaiterais dans ma Feuil2 en Col A (et que en col A) la totalité
des données (y compris les titres) de la Feuil1, c'est à dire qu'il me
mette tous ce qu'il y a de la Col A de la feuil1 et lorsqu'il y aura un
vide, qu'il prenne la totalité de la Col B jusqu'à un vide et qu'il
passe à la Col C ....etc...et ce jusqu'a la colonne P de la feuil1.
La difficulté vous l'avez compris c'est que tout soit interactif, si
j'ajoute un element a la fin de ma col A de feuil1 il faudra que ma
colA de Feuil2 se mette à jour.
En fait, mon resultat de la Col A de Feuil2 devrait ressembler à cela :
TYPE
rt56
ty32
jh24
B.R.
b444
bn35
CALP
calp99
calp01
.....
Merci
Manu
Merci Daniel et est-ce possible en formule car je recherche depuis un
moment et je pense qu'on doit pouvoir y arriver
Manu
"Daniel" a écrit dans le message de news:
%PS. tu peux ôter la ligne :
Var = Range("IV1").End(xlToLeft).Column
et la ligne :
Range(Cells(1, x), Cells(Cells(65536, x).End(xlUp).Row, x)).Copy
Daniel
"Daniel" a écrit dans le message de news:Bonjour.
A mettre dans le code de la feuille :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim x As Integer, Ligne As Long
If Target.Column > 5 Or Target.Count > 1 Then Exit Sub
Ligne = 1
Sheets("Feuil2").Range("A:A").ClearContents
Var = Range("IV1").End(xlToLeft).Column
For x = 1 To Range("IV1").End(xlToLeft).Column
Range(Cells(1, x), Cells(Cells(65536, x).End(xlUp).Row, x)).Copy
Range(Cells(1, x), Cells(Cells(65536, x).End(xlUp).Row, x)).Copy
_
Sheets("Feuil2").Cells(Ligne, 1)
Ligne = Ligne + Cells(65536, x).End(xlUp).Row
Next
End Sub
Cordialement.
Daniel
"Manu" a écrit dans le message de news:
%23$Bonjour,
dans la feuil1 j'ai un certain nombre de colonne avec les titres ci
dessous.
Ex :
Col A : TYPE
Col B : B.R.
Col C : CALP
.......
.......
Avec un remplissage different dans chacune des col.
Je souhaiterais dans ma Feuil2 en Col A (et que en col A) la totalité
des données (y compris les titres) de la Feuil1, c'est à dire qu'il me
mette tous ce qu'il y a de la Col A de la feuil1 et lorsqu'il y aura un
vide, qu'il prenne la totalité de la Col B jusqu'à un vide et qu'il
passe à la Col C ....etc...et ce jusqu'a la colonne P de la feuil1.
La difficulté vous l'avez compris c'est que tout soit interactif, si
j'ajoute un element a la fin de ma col A de feuil1 il faudra que ma
colA de Feuil2 se mette à jour.
En fait, mon resultat de la Col A de Feuil2 devrait ressembler à cela :
TYPE
rt56
ty32
jh24
B.R.
b444
bn35
CALP
calp99
calp01
.....
Merci
Manu
Pas impossible, bien sûr; voici la formule pour les colonnes A et B ( à
compléter et dans la limite de 7 SI imbriqués ) :
(rajouter les références de feuille, cette formule est écrite pour être
sur la même feuille que les données)
=SI(LIGNE()<=NBVAL($A:$A);INDEX($A:$A;LIGNE(););SI(LIGNE()-NBVAL($A:$A)<=NBVAL($B:$B);INDEX($B:$B;LIGNE()-NBVAL($A:$A););"trt
3e colonne"))
Il faut remplacer, pourla 3e colonne "trt 3e colonne" par un nouveau SI en
comptant
LIGNE()-NBVAL($A:$B)
Daniel
"Manu" a écrit dans le message de news:
%Merci Daniel et est-ce possible en formule car je recherche depuis un
moment et je pense qu'on doit pouvoir y arriver
Manu
"Daniel" a écrit dans le message de news:
%PS. tu peux ôter la ligne :
Var = Range("IV1").End(xlToLeft).Column
et la ligne :
Range(Cells(1, x), Cells(Cells(65536, x).End(xlUp).Row, x)).Copy
Daniel
"Daniel" a écrit dans le message de news:Bonjour.
A mettre dans le code de la feuille :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim x As Integer, Ligne As Long
If Target.Column > 5 Or Target.Count > 1 Then Exit Sub
Ligne = 1
Sheets("Feuil2").Range("A:A").ClearContents
Var = Range("IV1").End(xlToLeft).Column
For x = 1 To Range("IV1").End(xlToLeft).Column
Range(Cells(1, x), Cells(Cells(65536, x).End(xlUp).Row, x)).Copy
Range(Cells(1, x), Cells(Cells(65536, x).End(xlUp).Row, x)).Copy
_
Sheets("Feuil2").Cells(Ligne, 1)
Ligne = Ligne + Cells(65536, x).End(xlUp).Row
Next
End Sub
Cordialement.
Daniel
"Manu" a écrit dans le message de news:
%23$Bonjour,
dans la feuil1 j'ai un certain nombre de colonne avec les titres ci
dessous.
Ex :
Col A : TYPE
Col B : B.R.
Col C : CALP
.......
.......
Avec un remplissage different dans chacune des col.
Je souhaiterais dans ma Feuil2 en Col A (et que en col A) la totalité
des données (y compris les titres) de la Feuil1, c'est à dire qu'il me
mette tous ce qu'il y a de la Col A de la feuil1 et lorsqu'il y aura
un vide, qu'il prenne la totalité de la Col B jusqu'à un vide et qu'il
passe à la Col C ....etc...et ce jusqu'a la colonne P de la feuil1.
La difficulté vous l'avez compris c'est que tout soit interactif, si
j'ajoute un element a la fin de ma col A de feuil1 il faudra que ma
colA de Feuil2 se mette à jour.
En fait, mon resultat de la Col A de Feuil2 devrait ressembler à cela
:
TYPE
rt56
ty32
jh24
B.R.
b444
bn35
CALP
calp99
calp01
.....
Merci
Manu
Pas impossible, bien sûr; voici la formule pour les colonnes A et B ( à
compléter et dans la limite de 7 SI imbriqués ) :
(rajouter les références de feuille, cette formule est écrite pour être
sur la même feuille que les données)
=SI(LIGNE()<=NBVAL($A:$A);INDEX($A:$A;LIGNE(););SI(LIGNE()-NBVAL($A:$A)<=NBVAL($B:$B);INDEX($B:$B;LIGNE()-NBVAL($A:$A););"trt
3e colonne"))
Il faut remplacer, pourla 3e colonne "trt 3e colonne" par un nouveau SI en
comptant
LIGNE()-NBVAL($A:$B)
Daniel
"Manu" <manuel.gamin@wanadoo.fr> a écrit dans le message de news:
%23DkVwHFVHHA.4764@TK2MSFTNGP05.phx.gbl...
Merci Daniel et est-ce possible en formule car je recherche depuis un
moment et je pense qu'on doit pouvoir y arriver
Manu
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
%23wOz6sEVHHA.2212@TK2MSFTNGP02.phx.gbl...
PS. tu peux ôter la ligne :
Var = Range("IV1").End(xlToLeft).Column
et la ligne :
Range(Cells(1, x), Cells(Cells(65536, x).End(xlUp).Row, x)).Copy
Daniel
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
eVT5VkEVHHA.868@TK2MSFTNGP05.phx.gbl...
Bonjour.
A mettre dans le code de la feuille :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim x As Integer, Ligne As Long
If Target.Column > 5 Or Target.Count > 1 Then Exit Sub
Ligne = 1
Sheets("Feuil2").Range("A:A").ClearContents
Var = Range("IV1").End(xlToLeft).Column
For x = 1 To Range("IV1").End(xlToLeft).Column
Range(Cells(1, x), Cells(Cells(65536, x).End(xlUp).Row, x)).Copy
Range(Cells(1, x), Cells(Cells(65536, x).End(xlUp).Row, x)).Copy
_
Sheets("Feuil2").Cells(Ligne, 1)
Ligne = Ligne + Cells(65536, x).End(xlUp).Row
Next
End Sub
Cordialement.
Daniel
"Manu" <manuel.gamin@wanadoo.fr> a écrit dans le message de news:
%23$4HeCEVHHA.4756@TK2MSFTNGP06.phx.gbl...
Bonjour,
dans la feuil1 j'ai un certain nombre de colonne avec les titres ci
dessous.
Ex :
Col A : TYPE
Col B : B.R.
Col C : CALP
.......
.......
Avec un remplissage different dans chacune des col.
Je souhaiterais dans ma Feuil2 en Col A (et que en col A) la totalité
des données (y compris les titres) de la Feuil1, c'est à dire qu'il me
mette tous ce qu'il y a de la Col A de la feuil1 et lorsqu'il y aura
un vide, qu'il prenne la totalité de la Col B jusqu'à un vide et qu'il
passe à la Col C ....etc...et ce jusqu'a la colonne P de la feuil1.
La difficulté vous l'avez compris c'est que tout soit interactif, si
j'ajoute un element a la fin de ma col A de feuil1 il faudra que ma
colA de Feuil2 se mette à jour.
En fait, mon resultat de la Col A de Feuil2 devrait ressembler à cela
:
TYPE
rt56
ty32
jh24
B.R.
b444
bn35
CALP
calp99
calp01
.....
Merci
Manu
Pas impossible, bien sûr; voici la formule pour les colonnes A et B ( à
compléter et dans la limite de 7 SI imbriqués ) :
(rajouter les références de feuille, cette formule est écrite pour être
sur la même feuille que les données)
=SI(LIGNE()<=NBVAL($A:$A);INDEX($A:$A;LIGNE(););SI(LIGNE()-NBVAL($A:$A)<=NBVAL($B:$B);INDEX($B:$B;LIGNE()-NBVAL($A:$A););"trt
3e colonne"))
Il faut remplacer, pourla 3e colonne "trt 3e colonne" par un nouveau SI en
comptant
LIGNE()-NBVAL($A:$B)
Daniel
"Manu" a écrit dans le message de news:
%Merci Daniel et est-ce possible en formule car je recherche depuis un
moment et je pense qu'on doit pouvoir y arriver
Manu
"Daniel" a écrit dans le message de news:
%PS. tu peux ôter la ligne :
Var = Range("IV1").End(xlToLeft).Column
et la ligne :
Range(Cells(1, x), Cells(Cells(65536, x).End(xlUp).Row, x)).Copy
Daniel
"Daniel" a écrit dans le message de news:Bonjour.
A mettre dans le code de la feuille :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim x As Integer, Ligne As Long
If Target.Column > 5 Or Target.Count > 1 Then Exit Sub
Ligne = 1
Sheets("Feuil2").Range("A:A").ClearContents
Var = Range("IV1").End(xlToLeft).Column
For x = 1 To Range("IV1").End(xlToLeft).Column
Range(Cells(1, x), Cells(Cells(65536, x).End(xlUp).Row, x)).Copy
Range(Cells(1, x), Cells(Cells(65536, x).End(xlUp).Row, x)).Copy
_
Sheets("Feuil2").Cells(Ligne, 1)
Ligne = Ligne + Cells(65536, x).End(xlUp).Row
Next
End Sub
Cordialement.
Daniel
"Manu" a écrit dans le message de news:
%23$Bonjour,
dans la feuil1 j'ai un certain nombre de colonne avec les titres ci
dessous.
Ex :
Col A : TYPE
Col B : B.R.
Col C : CALP
.......
.......
Avec un remplissage different dans chacune des col.
Je souhaiterais dans ma Feuil2 en Col A (et que en col A) la totalité
des données (y compris les titres) de la Feuil1, c'est à dire qu'il me
mette tous ce qu'il y a de la Col A de la feuil1 et lorsqu'il y aura
un vide, qu'il prenne la totalité de la Col B jusqu'à un vide et qu'il
passe à la Col C ....etc...et ce jusqu'a la colonne P de la feuil1.
La difficulté vous l'avez compris c'est que tout soit interactif, si
j'ajoute un element a la fin de ma col A de feuil1 il faudra que ma
colA de Feuil2 se mette à jour.
En fait, mon resultat de la Col A de Feuil2 devrait ressembler à cela
:
TYPE
rt56
ty32
jh24
B.R.
b444
bn35
CALP
calp99
calp01
.....
Merci
Manu
