Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

formule incorect

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Dennnisss
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

Dennnisss

XLDnaute Occasionnel
Bonjour a tous

J'ai realiser ce petit sub il fonctionne il n'a pas de probleme je cherche juste une facon de dire d'effacer les cellules sans trop ecrire de ligne pour rien

exemple
je dois effacer une ligne de B8 à E8 pour se faire je detaille avec des activecell une a une es-t.il possible de definir autrement

alors j'ai besoin de vous

bonne soiree ou bon debut de journee

merci dennnisss 😉 😉


Sheets("1 à 120").Visible = True
Sheets("1 à 120").Select
Range("B8").Select

While ActiveCell <> 0
ActiveCell.Offset(1, 0).Activate
Wend
ActiveCell.Offset(-1, 0).Activate
Selection.ClearContents
ActiveCell.Offset(0, 1).Activate
Selection.ClearContents
ActiveCell.Offset(0, 1).Activate
Selection.ClearContents
ActiveCell.Offset(0, 1).Activate
Selection.ClearContents
ActiveCell.Offset(0, -3).Activate
ActiveCell.Offset(47, 0).Activate

For J = 1 To 119
ActiveCell.Offset(47, 0).Activate
ActiveCell.Offset(0, 1).Activate
Selection.ClearContents
ActiveCell.Offset(0, 1).Activate
Selection.ClearContents
ActiveCell.Offset(0, 1).Activate
Selection.ClearContents
ActiveCell.Offset(0, -3).Activate
Next J
End If
End If
End With
End Sub
 
Trier par date Trier par votes
Re : formule incorect

Bonjour
un exemple, tu nomme ta zone " Efface " et tu met cette macro:
Sub efface()
Dim efface As Range
Range("efface").ClearContents
End Sub
si j'ai bien compris ce que tu souhaite.

Ou
Sub efface()
Dim Monchoix As Range
On Error Resume Next
Set Monchoix = Application.InputBox(prompt:="Sélectionnez les cellules.", _
Title:="Effacement", Left:=500, Top:=300, Type:=8)
Monchoix.Select
Selection.ClearContents
[a1].Select
End Sub
Avec cette macro tu selectionne les cellules que tu souhaite effacer
 
Dernière édition:
Vote positif 0 Vote négatif
Re : formule incorect

Salut CB60

Dans ma demande je n'ai pas ete tres clair je vais essayer de me reajuster

Dans la formule qui se trouvait avec ma demande , il a une recherche pour trouver sur quel ligne effacer car cette ligne peut se trouver n'importe ou entre rangee 8 a la rangee 42 alors il doit recherche a quel ligne il doit effacer les donnees c,est pour cela qui avait cette formule pour trouver a partir de quel ligne je dois effacer les donnees par la suite il avait une boucle pour faire la meme chose 120 fois .

donc je ne peut determiner une ligne specifique

if activecell <> "" then

alors peut-tu reajuster la formule que tu m'a conseiller et incorporer
la recherche de la ligne svp

Merci a toi CB60 et apprecie ton aide

salut dennnisss 😉 😉
 
Vote positif 0 Vote négatif
Re : formule incorect

Bonsoir
Je pense qu'un petit fichier avec quelques données et ce que tu souhaite s'impose, car la je ne sais pas quoi faire pour te donner un coup de main
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Résolu(e)
Microsoft 365 Enregistrer dans une feuille mais pas dans une autre
Réponses
11
Affichages
782
Olive de BI
S
  • Résolu(e)
XL 2019 Problème de remplissage cellule en vba
Réponses
5
Affichages
606
snoopy07
S
N
  • Résolu(e)
XL 2021 erreur Vba
2
Réponses
21
Affichages
2 K
Oneida
N
  • Question Question
XL 2021 Aide tableau excel VBA
2
Réponses
15
Affichages
2 K
NicolasKH
N
  • Résolu(e)
XL 2016 If ActiveCell = "Contenu d'une TextBox" Then
2
Réponses
27
Affichages
2 K
TooFatBoy
T
  • Question Question
Microsoft 365 Code VBA
Réponses
2
Affichages
594
thierry33670
T
H
  • Résolu(e)
XL 2016 Copier cellule dans un autre onglets
2
Réponses
16
Affichages
1 K
Phil69970
  • Question Question
XL 2016 Erreur 1004 - Erreur définie par l'application ou par l'objet
Réponses
4
Affichages
981
Philou0607
F
  • Question Question
Microsoft 365 Poursuivre ou pas la macro
Réponses
2
Affichages
587
Francky79
F
Z
  • Question Question
Microsoft 365 Ajouter une étiquette de confidentialité via macro
Réponses
4
Affichages
3 K
onobyone
O
D
  • Question Question
Microsoft 365 Optimisation boucle
Réponses
2
Affichages
823
Wayki
D
  • Question Question
XL pour MAC [RESOLU]Cacher ou afficher colonnes, sauf colonne selectionné
Réponses
9
Affichages
1 K
Dudy
D
XLS : Evènements souris 'click' sur la grille & astuces
Réponses
3
Affichages
668
Lu76Fer
  • Question Question
XL 2019 Aide VBA
Réponses
4
Affichages
892
paradisecity1996
A
  • Résolu(e)
XL 2016 Autofill Destination sur colonne adjacente
Réponses
3
Affichages
628
Aldonanou
A
O
  • Question Question
XL 2019 Je veux afficher mes données dans ma Listbox1 avec l'entete de ma Base donnée et fait la recherche sans que cela derange l'entete.
Réponses
6
Affichages
1 K
ChTi160
M
  • Question Question
XL 2019 VBA Modifier a partir d'une listbox
Réponses
1
Affichages
1 K
mahaut57
M
M
  • Question Question
Microsoft 365 Programme trop lent
Réponses
12
Affichages
1 K
Hasco
  • Résolu(e)
Microsoft 365 Code VBA
Réponses
7
Affichages
1 K
Usine à gaz
  • Question Question
XL 2021 Exportation feuille msgbox yes no avec module Thisworkbook
2
Réponses
21
Affichages
2 K
Nicolas JACQUIN
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…