je cherche une macro qui me permet de dupliquer toutes les lignes qui ont un "*" dans la colonne X.
Merci pour votre aide
Michel
Michel
Copier la ligne complète dans la ligne juste en dessous. par exemple : si dans la cellule X14 il y a un "*", copier la ligne 14 et l'insérer à la ligne 15 en déplaçant toutes les autre lignes vers le bas
Bonjour,
Qu'entend-tu par dupliquer ?
Camille
"Michel" a écrit dans le message de news:
Bonjour,
je cherche une macro qui me permet de dupliquer toutes les lignes qui ont un "*" dans la colonne X.
Merci pour votre aide
Michel
Copier la ligne complète dans la ligne juste en dessous. par exemple : si
dans la cellule X14 il y a un "*", copier la ligne 14 et l'insérer à la ligne
15 en déplaçant toutes les autre lignes vers le bas
Bonjour,
Qu'entend-tu par dupliquer ?
Camille
"Michel" <Michel@discussions.microsoft.com> a écrit dans le message de news:
4B6B5D8B-BE4A-4C8A-A307-A743D8311A41@microsoft.com...
Bonjour,
je cherche une macro qui me permet de dupliquer toutes les lignes qui ont
un
"*" dans la colonne X.
Copier la ligne complète dans la ligne juste en dessous. par exemple : si dans la cellule X14 il y a un "*", copier la ligne 14 et l'insérer à la ligne 15 en déplaçant toutes les autre lignes vers le bas
Bonjour,
Qu'entend-tu par dupliquer ?
Camille
"Michel" a écrit dans le message de news:
Bonjour,
je cherche une macro qui me permet de dupliquer toutes les lignes qui ont un "*" dans la colonne X.
Merci pour votre aide
Michel
Ellimac
Bonjour,
Sub Toto() Range("x2").Select der = Range("a50000").End(xlUp).Row While ActiveCell.Row <= der der = Range("a50000").End(xlUp).Row If ActiveCell = "*" Then ActiveCell.Offset(1).EntireRow.Insert ActiveCell.EntireRow.Copy ActiveCell.Offset(1).EntireRow ActiveCell.Offset(1).Select End If ActiveCell.Offset(1).Select Wend End Sub
Camille
"Michel" a écrit dans le message de news:
Copier la ligne complète dans la ligne juste en dessous. par exemple : si dans la cellule X14 il y a un "*", copier la ligne 14 et l'insérer à la ligne 15 en déplaçant toutes les autre lignes vers le bas
Bonjour,
Qu'entend-tu par dupliquer ?
Camille
"Michel" a écrit dans le message de news:
Bonjour,
je cherche une macro qui me permet de dupliquer toutes les lignes qui ont un "*" dans la colonne X.
Merci pour votre aide
Michel
Bonjour,
Sub Toto()
Range("x2").Select
der = Range("a50000").End(xlUp).Row
While ActiveCell.Row <= der
der = Range("a50000").End(xlUp).Row
If ActiveCell = "*" Then
ActiveCell.Offset(1).EntireRow.Insert
ActiveCell.EntireRow.Copy ActiveCell.Offset(1).EntireRow
ActiveCell.Offset(1).Select
End If
ActiveCell.Offset(1).Select
Wend
End Sub
Camille
"Michel" <Michel@discussions.microsoft.com> a écrit dans le message de news:
36732B0E-64EE-4A87-A7F2-12EB04C701D1@microsoft.com...
Copier la ligne complète dans la ligne juste en dessous. par exemple : si
dans la cellule X14 il y a un "*", copier la ligne 14 et l'insérer à la
ligne
15 en déplaçant toutes les autre lignes vers le bas
Bonjour,
Qu'entend-tu par dupliquer ?
Camille
"Michel" <Michel@discussions.microsoft.com> a écrit dans le message de
news:
4B6B5D8B-BE4A-4C8A-A307-A743D8311A41@microsoft.com...
Bonjour,
je cherche une macro qui me permet de dupliquer toutes les lignes qui
ont
un
"*" dans la colonne X.
Sub Toto() Range("x2").Select der = Range("a50000").End(xlUp).Row While ActiveCell.Row <= der der = Range("a50000").End(xlUp).Row If ActiveCell = "*" Then ActiveCell.Offset(1).EntireRow.Insert ActiveCell.EntireRow.Copy ActiveCell.Offset(1).EntireRow ActiveCell.Offset(1).Select End If ActiveCell.Offset(1).Select Wend End Sub
Camille
"Michel" a écrit dans le message de news:
Copier la ligne complète dans la ligne juste en dessous. par exemple : si dans la cellule X14 il y a un "*", copier la ligne 14 et l'insérer à la ligne 15 en déplaçant toutes les autre lignes vers le bas
Bonjour,
Qu'entend-tu par dupliquer ?
Camille
"Michel" a écrit dans le message de news:
Bonjour,
je cherche une macro qui me permet de dupliquer toutes les lignes qui ont un "*" dans la colonne X.
Merci pour votre aide
Michel
Michel
Re-bonjour,
Merci, c'est exactement ce qu'il me fallait
Michel
Bonjour,
Sub Toto() Range("x2").Select der = Range("a50000").End(xlUp).Row While ActiveCell.Row <= der der = Range("a50000").End(xlUp).Row If ActiveCell = "*" Then ActiveCell.Offset(1).EntireRow.Insert ActiveCell.EntireRow.Copy ActiveCell.Offset(1).EntireRow ActiveCell.Offset(1).Select End If ActiveCell.Offset(1).Select Wend End Sub
Camille
"Michel" a écrit dans le message de news:
Copier la ligne complète dans la ligne juste en dessous. par exemple : si dans la cellule X14 il y a un "*", copier la ligne 14 et l'insérer à la ligne 15 en déplaçant toutes les autre lignes vers le bas
Bonjour,
Qu'entend-tu par dupliquer ?
Camille
"Michel" a écrit dans le message de news:
Bonjour,
je cherche une macro qui me permet de dupliquer toutes les lignes qui ont un "*" dans la colonne X.
Merci pour votre aide
Michel
Re-bonjour,
Merci, c'est exactement ce qu'il me fallait
Michel
Bonjour,
Sub Toto()
Range("x2").Select
der = Range("a50000").End(xlUp).Row
While ActiveCell.Row <= der
der = Range("a50000").End(xlUp).Row
If ActiveCell = "*" Then
ActiveCell.Offset(1).EntireRow.Insert
ActiveCell.EntireRow.Copy ActiveCell.Offset(1).EntireRow
ActiveCell.Offset(1).Select
End If
ActiveCell.Offset(1).Select
Wend
End Sub
Camille
"Michel" <Michel@discussions.microsoft.com> a écrit dans le message de news:
36732B0E-64EE-4A87-A7F2-12EB04C701D1@microsoft.com...
Copier la ligne complète dans la ligne juste en dessous. par exemple : si
dans la cellule X14 il y a un "*", copier la ligne 14 et l'insérer à la
ligne
15 en déplaçant toutes les autre lignes vers le bas
Bonjour,
Qu'entend-tu par dupliquer ?
Camille
"Michel" <Michel@discussions.microsoft.com> a écrit dans le message de
news:
4B6B5D8B-BE4A-4C8A-A307-A743D8311A41@microsoft.com...
Bonjour,
je cherche une macro qui me permet de dupliquer toutes les lignes qui
ont
un
"*" dans la colonne X.
Sub Toto() Range("x2").Select der = Range("a50000").End(xlUp).Row While ActiveCell.Row <= der der = Range("a50000").End(xlUp).Row If ActiveCell = "*" Then ActiveCell.Offset(1).EntireRow.Insert ActiveCell.EntireRow.Copy ActiveCell.Offset(1).EntireRow ActiveCell.Offset(1).Select End If ActiveCell.Offset(1).Select Wend End Sub
Camille
"Michel" a écrit dans le message de news:
Copier la ligne complète dans la ligne juste en dessous. par exemple : si dans la cellule X14 il y a un "*", copier la ligne 14 et l'insérer à la ligne 15 en déplaçant toutes les autre lignes vers le bas
Bonjour,
Qu'entend-tu par dupliquer ?
Camille
"Michel" a écrit dans le message de news:
Bonjour,
je cherche une macro qui me permet de dupliquer toutes les lignes qui ont un "*" dans la colonne X.