Excel- Explication effacement de zone
Résolu
mod77
Messages postés
1284
Date d'inscription
Statut
Membre
Dernière intervention
-
Le Pingou Messages postés 12249 Date d'inscription Statut Contributeur Dernière intervention -
Le Pingou Messages postés 12249 Date d'inscription Statut Contributeur Dernière intervention -
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.
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
- Alternative zone telechargement - Accueil - Outils
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Déplacer colonne excel - Guide
- Si ou excel - Guide
26 réponses
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] ?
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] ?
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
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
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] ?
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] ?
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
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
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
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
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 :
Désolé, j’étais un peu dans les nuages … !
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 … !