Discussion :

[Bugzy1963]

Bonjour la solution doit être tellement simple que même ma reherche ne donne rien.


Je veux effacer le contenu d'une quantité de cellule sur une feuille. Le nombre de cellule est dynamique et varie seulement sur le nombre de ligne.

Voici mon code

Code :

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

1
2
3
4
5
ThisWorkbook.Sheets("Feuil1").Select  
Range(Range("b14"), Range("b65536").End(xlUp)).Select
y = Range(Range("b14"), Range("b65536").End(xlUp)).Rows.Count
 
Worksheets("Feuil2").Range(Cells(14, 2), Cells(13 + y, 26)).Clear

Il y a t-il quelqu'un d'assez patient pour m'aider ?

[laetitia]

bonsoir Bugzy1963 le forum personnellement rien compris!!! soit plus explicite si tu veus que quelqu'un ou quelqu'une t'aide.

[Bugzy1963]

Desole, je vais essaye d'etre plus clair


La feuille 2 a une serie de cellules remplie de donnees sous format de tableau excel.
La cellule B14 est le debut du tableau et la fin du tableau peut etre Z40 ou Z567 ou autre, tout depends de ma variable y.

Si je veux effacer ce tableau excel comment puis-je faire.

Dans mon exemple, j'ai transmis du code VBA qui en premier lieu selectionne la feuille 1, par la suite selectionne un RANGE de donnees a la colonne B, et je retire le nombre de donnees dans cette colonne. J'utilise ce nombre (y) pour determiner le nombre de ligne a effacer au tableau excel dans la feuille 2.

Selon moi c'est seulement la fonction clear qui n'est pas approprie ???

Merci de votre patience

[laetitia]

re, comme je comprends ??? a adapter

Code :

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

1
2
3
4
5
6
7
8
Sub es()
 Dim y As Long
 Sheets("Feuil1").Select
 y = Cells.Find("*", [b1], , , , xlPrevious).Row
 With Sheets("feuil2")
  .Range("B14" & ":Z" & y).ClearContents
 End With
End Sub