Incrementer verticalement sur lignes visibles

Bonsoir a tous,

J'aimerai savoir s'il y avait possibilite d'incrémenter verticalement seulement sur lignes visibles...

J'ai un tableau avec certaines lignes masquées, j'aimerai tirer ma cellule(ou ligne) vers le bas (ou le haut) sans pour autant que les cellules masquees soient remplies...

si c'est impossible, peut on bloquer l'incrémentation dans le tableau (ou feuille) ?

merci a vous

bonne soiree

Bonsoir,

En colonne A de la feuille "Feuil1". A tester :

Sub Test()

    Dim Plage As Range
    Dim Cel As Range
    Dim i As Long

    With Worksheets("Feuil1"): Set Plage = .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp)): End With

    For Each Cel In Plage

        If Cel.EntireRow.Hidden = False Then: i = i + 1: Cel.Value = i

    Next Cel

End Sub

Merci Theze pour ta reponse rapide,

ou dois je mettre ce code? dans This workbook?

merci

Re,

Dans un module standard de préférence (ça marche aussi dans un module de feuille ou dans le module du classeur) mais il te faut bien adapter le code à tes besoins, ce que je t'ai posté est une piste.

Si tu veux tester tel quel, dans la colonne A de la feuille nommée "Feuil1" d'un classeur (vierge de préférence) tu entres des valeurs bidons sur plusieurs cellules et tu en masques une partie puis tu exécutes le code pour voir le résultat !

OK , merci pour ton aide je vais creuser la piste...

Bonne soirée

Rechercher des sujets similaires à "incrementer verticalement lignes visibles"