Discussion :

[bigs3232]

bonjour
j'aimerais savoir si c'est possible de copier dans la colonne A la selection active dans le bloc de cellule visible vers la ligne suivante du bloc de la cellule active et non vers la ligne suivante standard
voici mon code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub copy_cellule_visible()
  For Each c In Range("A2", [A65000].End(xlUp)).SpecialCells(xlCellTypeVisible)
     If c.Value = Selection.Value Then
     c.Offset(i + 1, 0).Value = c.Value
     'MsgBox c.Offset(i + 1, 0).Value
     End If
  Next c
End Sub

je vous ai aussi envoyé un fichier joint en test
merci d'avavnce

[unparia]

Bonjour
Je n'ai bien évidemment pas ouvert ton classeur (lis ma signature).
L'examen du code que tu montres appelle déjà l'observation suivante :
on y voit l'utilisation d'une variable i dont on ne sait pas d'où elle sort.

[bigs3232]

ah oui désolé .meme sans i ca ne marche pas .
je voulais récupérer dans un tableau tab(i) mais ca ne marche pas non plus
en fait je sais comment transférer les lignes visibles vers une nouvelles feuilles mais modifier directement les cellules visibles c'est un peu compliqué

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub copy_cellule_visible()
  For Each c In Range("A2", [A65000].End(xlUp)).SpecialCells(xlCellTypeVisible)
     If c.Value = Selection.Value Then
     c.Offset(1, 0).Value = c.Value
     End If
  Next c
End Sub

[unparia]

ah oui désolé .meme sans i ca ne marche pas .

Tu as l'air de "savoir" ce que tu fais, toi ...
Bonne chance.

[bigs3232]

peu etre mais là je n'ai pas d'idées

personne n'a rencontré ce genre de problème?Merci pour votre aide

[Marc-L]

Bonjour,

si car je ne comprends rien à ta présentation initiale, ce genre de problème étant récurrent sur les forums !

Sinon envisager l'utilisation d'un filtre avancé …

___________________________________________________________________________________________________________

Je suis Paris, Egypte, Stockholm, London, Istanbul, Berlin, Nice, Bruxelles, Charlie, …