Comment transposer une ligne dans un autre tableau ?
3 réponses
Daniel
Bonjour, je cherche =E0 prendre certaines lignes pour les=20
mettres dans un autre tableau.
Je pose des conditions vrai ou faux si vrai ... (ce que=20
j'aimerais faire) transpose moi la ligne=20
correspondante dans un autre tableau sans me laisser de=20
ligne entre elles.
Ex.
Tableau initial
=20
A B C D E F G H
1 1 2 3 4 VRAI
2 2 3 4 1 FAUX
3 3 4 1 2 FAUX
4 1 2 3 4 VRAI
5 5 4 2 1 FAUX
6 1 2 3 4 VRAI
7 =20
R=E9sultat souhait=E9...
=20
A B C D E F G H
1 1 2 3 4 =20
2 1 2 3 4 =20
3 1 2 3 4
4 =20
5 =20
6 =20
7 =20
Et non pas...
=20
A B C D E F G H
1 1 2 3 4 =20
2 =20
3 =20
4 1 2 3 4 =20
5 =20
6 1 2 3 4 =20
7 =20
Y'=E0 t'il une fonction qui m'aiderais =E0 faire cela ?
Qui peut m'aider ?
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
...Patrick
qq chose comme ça, à adapter...
Sub DEPL() Dim CELL, LASTROW LASTROW = Range("D65000").End(xlUp).Row For Each CELL In Range("D1:D" & LASTROW) If UCase(CELL.Value) = UCase("vrai") Then CELL.EntireRow.Cut Sheets(2).Range("A65000").End(xlUp)(2) End If Next End Sub
...Patrick
"Daniel" a écrit dans le message de news:041501c3a95d$b5c47670$ Bonjour, je cherche à prendre certaines lignes pour les mettres dans un autre tableau. Je pose des conditions vrai ou faux si vrai ... (ce que j'aimerais faire) transpose moi la ligne correspondante dans un autre tableau sans me laisser de ligne entre elles.
Ex. Tableau initial
A B C D E F G H 1 1 2 3 4 VRAI 2 2 3 4 1 FAUX 3 3 4 1 2 FAUX 4 1 2 3 4 VRAI 5 5 4 2 1 FAUX 6 1 2 3 4 VRAI 7
Résultat souhaité...
A B C D E F G H 1 1 2 3 4 2 1 2 3 4 3 1 2 3 4 4 5 6 7
Et non pas...
A B C D E F G H 1 1 2 3 4 2 3 4 1 2 3 4 5 6 1 2 3 4 7
Y'à t'il une fonction qui m'aiderais à faire cela ? Qui peut m'aider ?
Merci, Daniel
qq chose comme ça, à adapter...
Sub DEPL()
Dim CELL, LASTROW
LASTROW = Range("D65000").End(xlUp).Row
For Each CELL In Range("D1:D" & LASTROW)
If UCase(CELL.Value) = UCase("vrai") Then
CELL.EntireRow.Cut Sheets(2).Range("A65000").End(xlUp)(2)
End If
Next
End Sub
...Patrick
"Daniel" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:041501c3a95d$b5c47670$a301280a@phx.gbl...
Bonjour, je cherche à prendre certaines lignes pour les
mettres dans un autre tableau.
Je pose des conditions vrai ou faux si vrai ... (ce que
j'aimerais faire) transpose moi la ligne
correspondante dans un autre tableau sans me laisser de
ligne entre elles.
Ex.
Tableau initial
A B C D E F G H
1 1 2 3 4 VRAI
2 2 3 4 1 FAUX
3 3 4 1 2 FAUX
4 1 2 3 4 VRAI
5 5 4 2 1 FAUX
6 1 2 3 4 VRAI
7
Résultat souhaité...
A B C D E F G H
1 1 2 3 4
2 1 2 3 4
3 1 2 3 4
4
5
6
7
Et non pas...
A B C D E F G H
1 1 2 3 4
2
3
4 1 2 3 4
5
6 1 2 3 4
7
Y'à t'il une fonction qui m'aiderais à faire cela ?
Qui peut m'aider ?
Sub DEPL() Dim CELL, LASTROW LASTROW = Range("D65000").End(xlUp).Row For Each CELL In Range("D1:D" & LASTROW) If UCase(CELL.Value) = UCase("vrai") Then CELL.EntireRow.Cut Sheets(2).Range("A65000").End(xlUp)(2) End If Next End Sub
...Patrick
"Daniel" a écrit dans le message de news:041501c3a95d$b5c47670$ Bonjour, je cherche à prendre certaines lignes pour les mettres dans un autre tableau. Je pose des conditions vrai ou faux si vrai ... (ce que j'aimerais faire) transpose moi la ligne correspondante dans un autre tableau sans me laisser de ligne entre elles.
Ex. Tableau initial
A B C D E F G H 1 1 2 3 4 VRAI 2 2 3 4 1 FAUX 3 3 4 1 2 FAUX 4 1 2 3 4 VRAI 5 5 4 2 1 FAUX 6 1 2 3 4 VRAI 7
Résultat souhaité...
A B C D E F G H 1 1 2 3 4 2 1 2 3 4 3 1 2 3 4 4 5 6 7
Et non pas...
A B C D E F G H 1 1 2 3 4 2 3 4 1 2 3 4 5 6 1 2 3 4 7
Y'à t'il une fonction qui m'aiderais à faire cela ? Qui peut m'aider ?
Merci, Daniel
wow ca semble bien compliqué pour un néophite comme moi. ou dois-je inscrire ces codes ??
-----Message d'origine----- qq chose comme ça, à adapter...
Sub DEPL() Dim CELL, LASTROW LASTROW = Range("D65000").End(xlUp).Row For Each CELL In Range("D1:D" & LASTROW) If UCase(CELL.Value) = UCase("vrai") Then CELL.EntireRow.Cut Sheets(2).Range("A65000").End (xlUp)(2)
End If Next End Sub
....Patrick
"Daniel" a écrit dans le message de
news:041501c3a95d$b5c47670$ Bonjour, je cherche à prendre certaines lignes pour les mettres dans un autre tableau. Je pose des conditions vrai ou faux si vrai ... (ce que j'aimerais faire) transpose moi la ligne correspondante dans un autre tableau sans me laisser de ligne entre elles.
Ex. Tableau initial
A B C D E F G H 1 1 2 3 4 VRAI 2 2 3 4 1 FAUX 3 3 4 1 2 FAUX 4 1 2 3 4 VRAI 5 5 4 2 1 FAUX 6 1 2 3 4 VRAI 7
Résultat souhaité...
A B C D E F G H 1 1 2 3 4 2 1 2 3 4 3 1 2 3 4 4 5 6 7
Et non pas...
A B C D E F G H 1 1 2 3 4 2 3 4 1 2 3 4 5 6 1 2 3 4 7
Y'à t'il une fonction qui m'aiderais à faire cela ? Qui peut m'aider ?
Merci, Daniel
.
wow ca semble bien compliqué pour un néophite comme moi.
ou dois-je inscrire ces codes ??
-----Message d'origine-----
qq chose comme ça, à adapter...
Sub DEPL()
Dim CELL, LASTROW
LASTROW = Range("D65000").End(xlUp).Row
For Each CELL In Range("D1:D" & LASTROW)
If UCase(CELL.Value) = UCase("vrai") Then
CELL.EntireRow.Cut Sheets(2).Range("A65000").End
(xlUp)(2)
End If
Next
End Sub
....Patrick
"Daniel" <anonymous@discussions.microsoft.com> a écrit
dans le message de
news:041501c3a95d$b5c47670$a301280a@phx.gbl...
Bonjour, je cherche à prendre certaines lignes pour les
mettres dans un autre tableau.
Je pose des conditions vrai ou faux si vrai ... (ce que
j'aimerais faire) transpose moi la ligne
correspondante dans un autre tableau sans me laisser de
ligne entre elles.
Ex.
Tableau initial
A B C D E F G H
1 1 2 3 4 VRAI
2 2 3 4 1 FAUX
3 3 4 1 2 FAUX
4 1 2 3 4 VRAI
5 5 4 2 1 FAUX
6 1 2 3 4 VRAI
7
Résultat souhaité...
A B C D E F G H
1 1 2 3 4
2 1 2 3 4
3 1 2 3 4
4
5
6
7
Et non pas...
A B C D E F G H
1 1 2 3 4
2
3
4 1 2 3 4
5
6 1 2 3 4
7
Y'à t'il une fonction qui m'aiderais à faire cela ?
Qui peut m'aider ?
wow ca semble bien compliqué pour un néophite comme moi. ou dois-je inscrire ces codes ??
-----Message d'origine----- qq chose comme ça, à adapter...
Sub DEPL() Dim CELL, LASTROW LASTROW = Range("D65000").End(xlUp).Row For Each CELL In Range("D1:D" & LASTROW) If UCase(CELL.Value) = UCase("vrai") Then CELL.EntireRow.Cut Sheets(2).Range("A65000").End (xlUp)(2)
End If Next End Sub
....Patrick
"Daniel" a écrit dans le message de
news:041501c3a95d$b5c47670$ Bonjour, je cherche à prendre certaines lignes pour les mettres dans un autre tableau. Je pose des conditions vrai ou faux si vrai ... (ce que j'aimerais faire) transpose moi la ligne correspondante dans un autre tableau sans me laisser de ligne entre elles.
Ex. Tableau initial
A B C D E F G H 1 1 2 3 4 VRAI 2 2 3 4 1 FAUX 3 3 4 1 2 FAUX 4 1 2 3 4 VRAI 5 5 4 2 1 FAUX 6 1 2 3 4 VRAI 7
Résultat souhaité...
A B C D E F G H 1 1 2 3 4 2 1 2 3 4 3 1 2 3 4 4 5 6 7
Et non pas...
A B C D E F G H 1 1 2 3 4 2 3 4 1 2 3 4 5 6 1 2 3 4 7
Y'à t'il une fonction qui m'aiderais à faire cela ? Qui peut m'aider ?
Merci, Daniel
.
...Patrick
pas tres compliqué... tu ouvres ton classeur et puis ALT F11, tu seras dans l'éditeur vba, tu insères un "module" via le menu et tu y colles ce code... tu le mettras en route par F5 et de préférence sur une copie de ton fichier.
envoie une partie ici si tu veux... Bye
a écrit dans le message de news:0bc101c3a965$86fbdd30$ wow ca semble bien compliqué pour un néophite comme moi. ou dois-je inscrire ces codes ??
-----Message d'origine----- qq chose comme ça, à adapter...
Sub DEPL() Dim CELL, LASTROW LASTROW = Range("D65000").End(xlUp).Row For Each CELL In Range("D1:D" & LASTROW) If UCase(CELL.Value) = UCase("vrai") Then CELL.EntireRow.Cut Sheets(2).Range("A65000").End (xlUp)(2)
End If Next End Sub
....Patrick
"Daniel" a écrit dans le message de
news:041501c3a95d$b5c47670$ Bonjour, je cherche à prendre certaines lignes pour les mettres dans un autre tableau. Je pose des conditions vrai ou faux si vrai ... (ce que j'aimerais faire) transpose moi la ligne correspondante dans un autre tableau sans me laisser de ligne entre elles.
Ex. Tableau initial
A B C D E F G H 1 1 2 3 4 VRAI 2 2 3 4 1 FAUX 3 3 4 1 2 FAUX 4 1 2 3 4 VRAI 5 5 4 2 1 FAUX 6 1 2 3 4 VRAI 7
Résultat souhaité...
A B C D E F G H 1 1 2 3 4 2 1 2 3 4 3 1 2 3 4 4 5 6 7
Et non pas...
A B C D E F G H 1 1 2 3 4 2 3 4 1 2 3 4 5 6 1 2 3 4 7
Y'à t'il une fonction qui m'aiderais à faire cela ? Qui peut m'aider ?
Merci, Daniel
.
pas tres compliqué...
tu ouvres ton classeur et puis ALT F11, tu seras dans l'éditeur vba,
tu insères un "module" via le menu et tu y colles ce code...
tu le mettras en route par F5 et de préférence sur une copie de ton fichier.
envoie une partie ici si tu veux...
Bye
<anonymous@discussions.microsoft.com> a écrit dans le message de
news:0bc101c3a965$86fbdd30$a001280a@phx.gbl...
wow ca semble bien compliqué pour un néophite comme moi.
ou dois-je inscrire ces codes ??
-----Message d'origine-----
qq chose comme ça, à adapter...
Sub DEPL()
Dim CELL, LASTROW
LASTROW = Range("D65000").End(xlUp).Row
For Each CELL In Range("D1:D" & LASTROW)
If UCase(CELL.Value) = UCase("vrai") Then
CELL.EntireRow.Cut Sheets(2).Range("A65000").End
(xlUp)(2)
End If
Next
End Sub
....Patrick
"Daniel" <anonymous@discussions.microsoft.com> a écrit
dans le message de
news:041501c3a95d$b5c47670$a301280a@phx.gbl...
Bonjour, je cherche à prendre certaines lignes pour les
mettres dans un autre tableau.
Je pose des conditions vrai ou faux si vrai ... (ce que
j'aimerais faire) transpose moi la ligne
correspondante dans un autre tableau sans me laisser de
ligne entre elles.
Ex.
Tableau initial
A B C D E F G H
1 1 2 3 4 VRAI
2 2 3 4 1 FAUX
3 3 4 1 2 FAUX
4 1 2 3 4 VRAI
5 5 4 2 1 FAUX
6 1 2 3 4 VRAI
7
Résultat souhaité...
A B C D E F G H
1 1 2 3 4
2 1 2 3 4
3 1 2 3 4
4
5
6
7
Et non pas...
A B C D E F G H
1 1 2 3 4
2
3
4 1 2 3 4
5
6 1 2 3 4
7
Y'à t'il une fonction qui m'aiderais à faire cela ?
Qui peut m'aider ?
pas tres compliqué... tu ouvres ton classeur et puis ALT F11, tu seras dans l'éditeur vba, tu insères un "module" via le menu et tu y colles ce code... tu le mettras en route par F5 et de préférence sur une copie de ton fichier.
envoie une partie ici si tu veux... Bye
a écrit dans le message de news:0bc101c3a965$86fbdd30$ wow ca semble bien compliqué pour un néophite comme moi. ou dois-je inscrire ces codes ??
-----Message d'origine----- qq chose comme ça, à adapter...
Sub DEPL() Dim CELL, LASTROW LASTROW = Range("D65000").End(xlUp).Row For Each CELL In Range("D1:D" & LASTROW) If UCase(CELL.Value) = UCase("vrai") Then CELL.EntireRow.Cut Sheets(2).Range("A65000").End (xlUp)(2)
End If Next End Sub
....Patrick
"Daniel" a écrit dans le message de
news:041501c3a95d$b5c47670$ Bonjour, je cherche à prendre certaines lignes pour les mettres dans un autre tableau. Je pose des conditions vrai ou faux si vrai ... (ce que j'aimerais faire) transpose moi la ligne correspondante dans un autre tableau sans me laisser de ligne entre elles.
Ex. Tableau initial
A B C D E F G H 1 1 2 3 4 VRAI 2 2 3 4 1 FAUX 3 3 4 1 2 FAUX 4 1 2 3 4 VRAI 5 5 4 2 1 FAUX 6 1 2 3 4 VRAI 7
Résultat souhaité...
A B C D E F G H 1 1 2 3 4 2 1 2 3 4 3 1 2 3 4 4 5 6 7
Et non pas...
A B C D E F G H 1 1 2 3 4 2 3 4 1 2 3 4 5 6 1 2 3 4 7
Y'à t'il une fonction qui m'aiderais à faire cela ? Qui peut m'aider ?
