Supprimer des lignes sur Excel

aminos85 Messages postés 1 Statut Membre -  
Bidouilleu_R Messages postés 1209 Statut Membre -
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

1 réponse

Bidouilleu_R Messages postés 1209 Statut Membre 295
 
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
0