Supprimer des lignes sur Excel

Question

Bonjour, 

Voila mon problème si quelqu'un peut m'aider je serait vraiment très reconnaissant...
J'ai une colonne qui fait à peu prés 40000 lignes de valeurs. Je voudrais sélectionner la valeur de la première  ligne toutes les 10 lignes.

ex: une colonne qui contient des valeurs de 1 jusqu'à 30

But : obtenir une autre colonne contenant : 1 , 11, 21

Voila....merci d'avance

Configuration: Windows XP / Firefox 3.6

Bidouilleu_R · Answer

Je voudrais sélectionner la valeur de la première ligne toutes les 10 lignes. 
tu veux dire la valeur de la premiere cellule toutes 10 lignes ?

comme ça!
A+


Sub toutes_les_10_lignes()
Dim I, K As Long
Dim DerLig As Long

Sheets("feuil1").Select
DerLig = Range("A65535").End(xlUp).Row
K = 1

For I = 1 To DerLig Step 10
    ' la cellule Axx est recopiée en J xx
    Cells(K, 10).Value = Cells(I, 1).Value
    K = K + 1
Next

s = MsgBox(" il y a " & K & " cellules de recopiées", vbInformation, "ifos :- )")
End Sub

Supprimer des lignes sur Excel

1 réponse

Discussions similaires

Newsletters