Excel- Explication effacement de zone

Résolu/Fermé

mod77 Messages postés 1273 Date d'inscription vendredi 10 juillet 2009 Statut Membre Dernière intervention 14 janvier 2024 - 27 janv. 2010 à 20:19
Le Pingou Messages postés 12075 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 19 mai 2024 - 31 janv. 2010 à 19:59

Bonjour,

Je n'arrive pas à effacer une zone de ma feuille.
On m'a donné ce code VBA mais je n'arrive pas à l'appliquer pour une autre zone.
Quelqu'un peut-il m'expliquer comment ça marche SVP ?

covide = Range("IV3").End(xlToLeft).Column
'covide = Cells(lig, Rows(3).Cells.Count).End(xlToLeft).Column 'cette ligne est équivalente à la première

Range( Cells(lg, cl), Cells(3, covide) ).ClearContents

Ce que je crois :
Range(X,Y).ClearContents : j'interprète que ça efface la cellule en [XY]

Range("YX").End(xlToLeft).Column : trop obscure pour moi et le reste aussi.
---------
Si je veux effacer la zone de la cellule B5 à J10 comment dois-je écrire ces lignes SVP?

Merci.

A voir également:

Excel- Explication effacement de zone
Zone telechargement - Guide
Liste déroulante excel - Guide
Formule excel - Guide
Si et excel - Guide
Aller à la ligne excel - Guide

26 réponses

Réponse 21 / 26

Le Pingou Messages postés 12075 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 19 mai 2024 1 432
31 janv. 2010 à 00:05

Bonsoir,
Alors là j'étais certain de recevoir cette réponse.
La procédure complète ....!
Qu'elle est le message d'erreur exact ?
Ou se trouve la procédure, dans le MODULES ou dans celui de la feuille (Feuil1) ?
Qu'elle est la valeur de la variable [livide] ?

Réponse 22 / 26

mod77 Messages postés 1273 Date d'inscription vendredi 10 juillet 2009 Statut Membre Dernière intervention 14 janvier 2024 53
31 janv. 2010 à 00:26

Voici le lien.
La procédure se trouve sur le bouton nommé "Remise à zero".
Voici le code:
Private Sub cmdeffacer_Click()
' compteur bat a-b + salle 'RAZ
Range("bata") = 0
Range("batb") = 0
Range("salvideo") = 0
Range("salchimie") = 0
Range("salinfo") = 0
Range("B1").Value = 3
indente = 0
Range("C1") = indente
flagPlac = False

' LE PB EST ICI !!
livide = Sheets("feuil1").Cells(Columns(1).Cells.Count, [“A”]).End(xlDown).Row + 1
Sheets("feuil1").Range(Cells(3, 1), Cells(livide, 1)).ClearContents

' la plage des agencement colonne K dés ligne 4
covide = Range("IV3").End(xlToLeft).Column
Range(Cells(4, 11), Cells(Cells(1, 1), covide)).ClearContents 'efface tout apres (4,11)
Cells(1, 1) = 4 'defini la ligne de départ d'affichage de l'agencement
End Sub

mjc55
31 janv. 2010 à 10:14

Bonjour

Je cherche quelqu'un succeptible de me dépanner sur une formule excel qui ne fonctionne pas dans tout mon tableau, et pourtant c'est la même que j'utilise des centaines de fois à coté seules, 2 cellules ne me donnent aucun résultat !!
SOMMEPROD !

Salutations

Réponse 23 / 26

Le Pingou Messages postés 12075 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 19 mai 2024 1 432
31 janv. 2010 à 11:50

Bonjour,

La procédure complète ....! = oui, Merci

Et ou sont les réponses aux 3 autres points ?
1.- Qu'elle est le message d'erreur exact ?
2.- Ou se trouve la procédure, dans le MODULES ou dans celui de la feuille (Feuil1) ?
3.- Qu'elle est la valeur de la variable [livide] ?

Réponse 24 / 26

mod77 Messages postés 1273 Date d'inscription vendredi 10 juillet 2009 Statut Membre Dernière intervention 14 janvier 2024 53
31 janv. 2010 à 13:26

Bonjour,

Je suis désolé j'étais fatigué hier soir et le lien n'est pas passé, sinon vous auriez eu les réponses à vos questions. je remets le lien ici:

https://www.cjoint.com/?bFnpWPVQK7

Sinon, j'ai recopié le code de Gilles du poste 3. Ca marche mais pas dans la feuil1.
Alors j'ai essayé d'adapter ainsi:
Sheets("Feuil1").Range("A3").Select 'Effacement zone feuil1
Selection.End(xlDown).Select
x = ActiveCell.Row
Sheets("Feuil1").Range("A3:M" & x).Select
Selection.ClearContents

Mais j'ai un message d'erreur: "erreur d'éxécution1004, erreur définie par l'application ou par l'objet"

Je suis sur que ça tien à peu de chose. Mais quoi?

Merci de votre aide

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 25 / 26

Le Pingou Messages postés 12075 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 19 mai 2024 1 432
31 janv. 2010 à 17:46

Bonjour,
La procédure se trouvant dans un module de feuille et vous voulez effacer les valeurs sur une autre feuille les 2 lignes deviennent :
livide = Sheets("Feuil1").Cells(Columns(1).Cells.Count, ["a"]).End(xlUp).Row + 1
Sheets("Feuil1").Range("A3:A" & livide).ClearContents

Réponse 26 / 26

Le Pingou Messages postés 12075 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 19 mai 2024 1 432
31 janv. 2010 à 19:59

Bonjour,
Petit complément pour l’écriture du code si l’on se réfère à une autre feuille, c’est plus propre de cette manière :

With Sheets("Feuil1")
    livide = .Cells(Columns(1).Cells.Count, ["A"]).End(xlUp).Row + 1
    .Range(.Cells(3, 1), .Cells(livide, 1)).Clear
    End With

Désolé, j’étais un peu dans les nuages … !

Discussions similaires

Paris multiple : explications de 2/3, 3/4, 2/4, 2/5, etc.

Vidéo : comment changer sa zone géographique ?

Discussions similaires

Newsletters