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.

Excel- Explication effacement de zone

Réponse 21 / 26

Le Pingou Messages postés 12375 Date d'inscription Statut Contributeur Dernière intervention 1 476

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 1320 Date d'inscription Statut Membre Dernière intervention 53

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

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 12375 Date d'inscription Statut Contributeur Dernière intervention 1 476

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 1320 Date d'inscription Statut Membre Dernière intervention 53

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

Réponse 25 / 26

Le Pingou Messages postés 12375 Date d'inscription Statut Contributeur Dernière intervention 1 476

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 12375 Date d'inscription Statut Contributeur Dernière intervention 1 476

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 … !

Excel- Explication effacement de zone - Page 2

Discussions similaires

Newsletters