j'ai 100 lignes ou il y a des informations. Je cherche une façon d'insérer
une ligne entre chacune d'elles sans avoir à me positionner sur chaque ligne
et faire insertion. Est-ce qu'il y une façon plus rapide par une macro?
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
JB
On 6 fév, 19:27, jack wrote:
Bonjour à tous,
j'ai 100 lignes ou il y a des informations. Je cherche une façon d'ins érer une ligne entre chacune d'elles sans avoir à me positionner sur chaque ligne et faire insertion. Est-ce qu'il y une façon plus rapide par une macro?
Merci.
Bonsoir,
Range("A65000").End(xlUp).Select For i = 1 To Selection.CurrentRegion.Rows.Count - 1 ActiveCell.EntireRow.Insert ActiveCell.Offset(-1, 0).Select Next
JB
On 6 fév, 19:27, jack <j...@discussions.microsoft.com> wrote:
Bonjour à tous,
j'ai 100 lignes ou il y a des informations. Je cherche une façon d'ins érer
une ligne entre chacune d'elles sans avoir à me positionner sur chaque ligne
et faire insertion. Est-ce qu'il y une façon plus rapide par une macro?
Merci.
Bonsoir,
Range("A65000").End(xlUp).Select
For i = 1 To Selection.CurrentRegion.Rows.Count - 1
ActiveCell.EntireRow.Insert
ActiveCell.Offset(-1, 0).Select
Next
j'ai 100 lignes ou il y a des informations. Je cherche une façon d'ins érer une ligne entre chacune d'elles sans avoir à me positionner sur chaque ligne et faire insertion. Est-ce qu'il y une façon plus rapide par une macro?
Merci.
Bonsoir,
Range("A65000").End(xlUp).Select For i = 1 To Selection.CurrentRegion.Rows.Count - 1 ActiveCell.EntireRow.Insert ActiveCell.Offset(-1, 0).Select Next
JB
jack
Merci pour la réponse, j'ai inscrit le code dans une macro personnel. Quand je l'exécute, il n'y a pas d'insertion qui se fait.
On 6 fév, 19:27, jack wrote:
Bonjour à tous,
j'ai 100 lignes ou il y a des informations. Je cherche une façon d'insérer une ligne entre chacune d'elles sans avoir à me positionner sur chaque ligne et faire insertion. Est-ce qu'il y une façon plus rapide par une macro?
Merci.
Bonsoir,
Range("A65000").End(xlUp).Select For i = 1 To Selection.CurrentRegion.Rows.Count - 1 ActiveCell.EntireRow.Insert ActiveCell.Offset(-1, 0).Select Next
JB
Merci pour la réponse, j'ai inscrit le code dans une macro personnel.
Quand je l'exécute, il n'y a pas d'insertion qui se fait.
On 6 fév, 19:27, jack <j...@discussions.microsoft.com> wrote:
Bonjour à tous,
j'ai 100 lignes ou il y a des informations. Je cherche une façon d'insérer
une ligne entre chacune d'elles sans avoir à me positionner sur chaque ligne
et faire insertion. Est-ce qu'il y une façon plus rapide par une macro?
Merci.
Bonsoir,
Range("A65000").End(xlUp).Select
For i = 1 To Selection.CurrentRegion.Rows.Count - 1
ActiveCell.EntireRow.Insert
ActiveCell.Offset(-1, 0).Select
Next
Merci pour la réponse, j'ai inscrit le code dans une macro personnel. Quand je l'exécute, il n'y a pas d'insertion qui se fait.
On 6 fév, 19:27, jack wrote:
Bonjour à tous,
j'ai 100 lignes ou il y a des informations. Je cherche une façon d'insérer une ligne entre chacune d'elles sans avoir à me positionner sur chaque ligne et faire insertion. Est-ce qu'il y une façon plus rapide par une macro?
Merci.
Bonsoir,
Range("A65000").End(xlUp).Select For i = 1 To Selection.CurrentRegion.Rows.Count - 1 ActiveCell.EntireRow.Insert ActiveCell.Offset(-1, 0).Select Next
JB
JB
On 6 fév, 21:20, jack wrote:
Merci pour la réponse, j'ai inscrit le code dans une macro personnel. Quand je l'exécute, il n'y a pas d'insertion qui se fait.
On 6 fév, 19:27, jack wrote:
Bonjour à tous,
j'ai 100 lignes ou il y a des informations. Je cherche une façon d' insérer une ligne entre chacune d'elles sans avoir à me positionner sur cha que ligne et faire insertion. Est-ce qu'il y une façon plus rapide par une ma cro?
Merci.
Bonsoir,
Range("A65000").End(xlUp).Select For i = 1 To Selection.CurrentRegion.Rows.Count - 1 ActiveCell.EntireRow.Insert ActiveCell.Offset(-1, 0).Select Next
JB- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Voici un exemple:http://cjoint.com/?cgvIAVceSJ
Alt+F11 pour voir le code
JB
On 6 fév, 21:20, jack <j...@discussions.microsoft.com> wrote:
Merci pour la réponse, j'ai inscrit le code dans une macro personnel.
Quand je l'exécute, il n'y a pas d'insertion qui se fait.
On 6 fév, 19:27, jack <j...@discussions.microsoft.com> wrote:
Bonjour à tous,
j'ai 100 lignes ou il y a des informations. Je cherche une façon d' insérer
une ligne entre chacune d'elles sans avoir à me positionner sur cha que ligne
et faire insertion. Est-ce qu'il y une façon plus rapide par une ma cro?
Merci.
Bonsoir,
Range("A65000").End(xlUp).Select
For i = 1 To Selection.CurrentRegion.Rows.Count - 1
ActiveCell.EntireRow.Insert
ActiveCell.Offset(-1, 0).Select
Next
Merci pour la réponse, j'ai inscrit le code dans une macro personnel. Quand je l'exécute, il n'y a pas d'insertion qui se fait.
On 6 fév, 19:27, jack wrote:
Bonjour à tous,
j'ai 100 lignes ou il y a des informations. Je cherche une façon d' insérer une ligne entre chacune d'elles sans avoir à me positionner sur cha que ligne et faire insertion. Est-ce qu'il y une façon plus rapide par une ma cro?
Merci.
Bonsoir,
Range("A65000").End(xlUp).Select For i = 1 To Selection.CurrentRegion.Rows.Count - 1 ActiveCell.EntireRow.Insert ActiveCell.Offset(-1, 0).Select Next
