Discussion :

[scoulibri]

Bonjour,
je viens a vous pour question classique mais j'arrive pas a trouver la solution dans le brouhaha du forum :-)

je voudrais effacer le contenu de ma feuille a partir de A6 afin de l'initialiser pour un filtre avance
Pour cela j' utilise le code suivant

Code :

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

1
2
3
4
5
6
7
'II) clear sheet before
 
If Range("a6:A6") <> " " Then
 
Range("a6:f" & dernligne).ClearContents
Else: Exit Sub
End If

Cela fonctionne bien quand effectivement, ma feuille contient des donnees, mais si la cellule est vide, la macro me supprime les titres et donc cela bloque a la ligne du filtre.


Quelle function de VBA que je ne connais pas encore?




Edit pour les courageux de passage,

La solution (donnee par Rdurupt) est la suivante

Code :

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

1
2
3
If Range("A6").CurrentRegion.Rows.Count > 6 Then
Range("a6:f" & dernligne).ClearContents
End If

Si vous avez des donnees dans d'autres cellules adjacentes, adaptez le chiffre (ligne 1 du code) avec cette methode

Fais cette manip dans vb ouvre la fenêtre d'exécution raccourci clavier [Ctrl] + [G] exécutes cette commande

Code :

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

?range("A6").currentregion.rows.count

et appuis sur la touche [enter] tu pourras lire la valeur du count!

La solution (donnee par Phillipe) est la suivante, tenant compte des entetes

Code :

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

1
2
3
4
5
6
7
8
Sub t()
 Dim Rng As Range
 Set Rng = Range("A5").CurrentRegion
 With Rng
 .Offset(1).Resize(.Rows.Count - 1).ClearContents
 End With
 Set Rng = Nothing
End Sub

[Invité]

Code :

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

if range("A6").currentregion.rows.count>1 then Range("a6:f" & dernligne).ClearContents

[scoulibri]

merci prof! une nouvelle function a mes connaissances

du coup, j'ai fait mes devoirs sur le currentregion: et par extention le UsedRange

Pour la definition: http://www.excel-easy.com/vba/exampl...entregion.html
Pour l'usage possible: http://www.info-3000.com/vbvba/selec...ioncellule.php




Le current region fonctionne pas dans le cas present car, la macro m'efface toujours ma ligne d'en-tete situee en A5:E5, lorsqu'il y a rien en A5
je vais tester le Used range mais j'ai des cellules remplies notamment pour le titre de la feuilles, donc je pense pas que ce soit la bonne methode

Une solution serait de remettre les en-tetes après avoir re-initialiser...mais j'aimerai bien avoir le fin mot du clearcontent

[Philippe Tulliez]

Bonjour,

Le current region fonctionne pas dans le cas present car, la macro m'efface toujours ma ligne d'en-tete situee en A5:E5

C'est normal puisque la propriété CurrentRegion (équivalent d'un Ctrl + *) englobe toute la plage.
Pour ne prendre que les données, il faut rectifier avec les propriétés Offset et Resize
Mon PC étant en train de faire une mise à jour des nouvelles versions, je ne peux donner un exemple que non testé

Code :

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

1
2
3
4
5
6
Dim Rng as Range
Set Rng = Range("A5").CurrentRegion
With Rng
 .Offset(1).Resize(.Rows.Count-1).ClearContent
End With
Set Rng = Nothing

J'ajouterais que pour éviter les problèmes il faut absolument préciser la filiation complète de l'objet Range (Classeur et feuille)

[Invité]

Bonjour,
le currentregion prend toues les cellules contiguë à la cellule nommée en l’occurrence [A6], maintenant si tu as un valeur en [B5]; [C4];[D3] le count retourne 3 donc il faut évalué

Code :

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

 count >3

Code :

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

range("A6").currentregion.rows.count

fais cette manip dans vb ouvre la fenêtre d'exécution raccourci clavier [Ctrl] + [G] exécutes cette commande ?range("A6").currentregion.rows.count et appuis sur la touche [enter] tu pourras lire la valeur du count!

[scoulibri]

A la vitesse a laquelle vous repondez je ne peux aue vous dire merci
car meme si j'etais sur la bonne voie avec l'aide d'office https://msdn.microsoft.com/fr-fr/lib.../ff196678.aspx
mous m'epargner des heures de batailles...
je teste vos solutions tout de suite

Edit

@Philippe malgre les precautions d'usage, j'ai une

erreur "438, l'objet ne supporte pas cette propriete ou cette methode"

a la ligne:

Code :

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

.Offset(1).Resize(.Rows.Count-1).ClearContent

@rdurupt après avoir compris qu'evidemment il fallait que la cellule A6 contienne une valeur, ce bout de code cela fonctionne parfaitement

[Invité]

maintenant tu peux toujours évaluer la valeur de dernligne car si tu ne dispose pas de valeur en [A6] le dernligne devrait ce situer sur la ligne 5

Code :

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

if dernligne>=6 then msgbox "c'est bon"