Selectionner toute les 8 lignes dans exel
fifi384
-
lermite222 Messages postés 9042 Statut Contributeur -
lermite222 Messages postés 9042 Statut Contributeur -
Bonjour,
J'ai un tableau exel d'environs 1000 lignes.Je voudrai pouvoir selectionner une ligne sur 8 sur l'ensemble du tableau pour pouvoir les copier coller: Par ex ligne 1 ,9,17,25 etc....Merci
J'ai un tableau exel d'environs 1000 lignes.Je voudrai pouvoir selectionner une ligne sur 8 sur l'ensemble du tableau pour pouvoir les copier coller: Par ex ligne 1 ,9,17,25 etc....Merci
A voir également:
- Selectionner toute les 8 lignes dans exel
- Clé windows 8 - Guide
- Mixcraft 8 - Télécharger - Création musicale
- Exel 2013 - Télécharger - Tableur
- Internet explorer 8 - Télécharger - Navigateurs
- Comment selectionner toutes les photos dans google photo - Guide
4 réponses
plutot sans macro que je ne sais utiliser..Je voudra les copier sur un autre tableau afin de ranger les donnée
Sans macros ça va être difficile, tu peu essayer avec celle-là.
MODE D'EMPLOI
Taper Alt+F11 pour entrer dans l'éditeur VBA
>> Insertion >> Module
Dans la fenêtre qui s'ouvre coller le code.
mettre le curseur au milieu de la macro et taper F5
Il faut bien entendu adapter les noms des feuilles
Et il doit y avoir des données dans la colonne A du tableau.
Tu dis..
A+
Sub CopieT8lignes()
Dim Lig As Long
Dim FinLig As Long
Dim LigDes As Long
Const LigUn = 4 'première ligne pour commencer
'Copie toutes les 8 lignes de Feuil1 sur Feuil2
LigDes = 4 '1ère ligne où copier
With Sheets("Feuil1")
For Lig = LigUn To .Range("A65536").End(xlUp).Row Step 8
.Rows(Lig).Copy Sheets("Feuil2").Rows(LigDes)
LigDes = LigDes + 1
Next Lig
End With
End Sub
MODE D'EMPLOI
Taper Alt+F11 pour entrer dans l'éditeur VBA
>> Insertion >> Module
Dans la fenêtre qui s'ouvre coller le code.
mettre le curseur au milieu de la macro et taper F5
Il faut bien entendu adapter les noms des feuilles
Et il doit y avoir des données dans la colonne A du tableau.
Tu dis..
A+
Exemple :
J'ai un classeur Excel avec deux feuilles.
Nom de la première feuille : A (contenant les données à copier)
Nom de la deuxième feuille : B (feuille vierge recevant les données collées)
Afin d'utiliser la macro proposée plus haut il te faut utiliser le bon nom de feuille.
Sub CopieT8lignes()
Dim Lig As Long
Dim FinLig As Long
Dim LigDes As Long
Const LigUn = 4 'première ligne pour commencer
'Copie toutes les 8 lignes de Feuil1 sur Feuil2
LigDes = 4 '1ère ligne où copier
With Sheets("A")
For Lig = LigUn To .Range("A65536").End(xlUp).Row Step 8
.Rows(Lig).Copy Sheets("B").Rows(LigDes)
LigDes = LigDes + 1
Next Lig
End With
End Sub
J'ai un classeur Excel avec deux feuilles.
Nom de la première feuille : A (contenant les données à copier)
Nom de la deuxième feuille : B (feuille vierge recevant les données collées)
Afin d'utiliser la macro proposée plus haut il te faut utiliser le bon nom de feuille.
Sub CopieT8lignes()
Dim Lig As Long
Dim FinLig As Long
Dim LigDes As Long
Const LigUn = 4 'première ligne pour commencer
'Copie toutes les 8 lignes de Feuil1 sur Feuil2
LigDes = 4 '1ère ligne où copier
With Sheets("A")
For Lig = LigUn To .Range("A65536").End(xlUp).Row Step 8
.Rows(Lig).Copy Sheets("B").Rows(LigDes)
LigDes = LigDes + 1
Next Lig
End With
End Sub
