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

[Résolu] Fonction effacer valeur Cellule

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion dudule859
  • 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
D

dudule859

XLDnaute Nouveau
Bonjour j'ai une fonction, j'ai une fonction qui permet d'effacer des informations dans des cellules, mais toutes les informations sont effacer de la colonne concerné, je voudrais garder, les titres des sections des tableaux

Voila ce que ma fonction fait

Moi, je voudrai que ma fonction fasse ça


Voici mon code
Code: 
Sub Effacer_Imprimer()
Dim Monmessage, MonStyle, MonTitle, Monaide, Mavaleur, Response, Machaine
Monmessage = "Souhaitez-vous supprimer les informations contenues dans les tableaux ?"    ' Définit le message.
MonStyle = vbYesNo + vbQuestion    ' Définit les boutons.
MonTitle = "Informations"    ' Définit le titre.
Monaide = "DEMO.HLP"    ' Définit le fichier d'aide.
Mavaleur = 1000    ' Définit le contexte de la rubrique.
' Affiche le message.
Response = MsgBox(Monmessage, MonStyle, MonTitle, Monaide, Mavaleur)
If Response = vbYes Then  ' L'utilisateur a choisi Oui.
rep = MsgBox("Vous avez supprimer toutes les informations", vbInformation, "Information")
Dim a, b, c, d, e, f As Integer ' Colonne 4
'Valeurs des variables
For b = 8 To 258  ' Lignes
    For a = 7 To 7   'Colonnes
        Cells(b, a).Interior.ColorIndex = xlNone
        Cells(b, a).Value = ""
    Next a
   
Next b
For c = 8 To 258  ' Lignes
    For d = 9 To 9 'Lignes
        Cells(c, d).Interior.ColorIndex = xlNone
        Cells(c, d).Value = ""
    Next d
Next c
For e = 8 To 258  ' Lignes
    For f = 10 To 10 'Les lignes
    Cells(e, f).Interior.ColorIndex = xlNone
    Cells(e, f).Value = ""
    Next f
Next e
Else    ' Si l'utilisateur a choisi Non.
    rep = MsgBox("Vous avez supprimer aucunes informations", vbInformation, "Information")
End If
End Sub

Amitiés
dudule859
 
Dernière édition:
Trier par date Trier par votes
Re : Fonction effacer valeur Cellule

Bonjour Dudule, bonjour le forum,

Tes captures d'écran ne nous donnent aucune idée sur l'adresse de plages ! Le code non plus...
Seul un fichier exemple pourra nous permettre de te comprendre et donc de t'aider...
 
Vote positif 0 Vote négatif
Re : Fonction effacer valeur Cellule

Bonjour Dudule, bonjour le forum,

Oui j'avais vu, merci. Mais pourrais tu, faire l'effort de nous donner les adresses de ton tableau ? Si c'est pas trop te demander bien sûr...
 
Vote positif 0 Vote négatif
Re : Fonction effacer valeur Cellule

Bonjour à tous.


À tout hasard :​
VB: 
Sub Effacer_Imprimer()
Dim Monmessage, MonStyle, MonTitle, Monaide, Mavaleur, Response, Machaine
Monmessage = "Souhaitez-vous supprimer les informations contenues dans les tableaux ?"    ' Définit le message.
MonStyle = vbYesNo + vbQuestion    ' Définit les boutons.
MonTitle = "Informations"    ' Définit le titre.
Monaide = "DEMO.HLP"    ' Définit le fichier d'aide.
Mavaleur = 1000    ' Définit le contexte de la rubrique.
' Affiche le message.
Response = MsgBox(Monmessage, MonStyle, MonTitle, Monaide, Mavaleur)
If Response = vbYes Then  ' L'utilisateur a choisi Oui.
rep = MsgBox("Vous avez supprimer toutes les informations", vbInformation, "Information")
Dim a, b, c, d, e, f As Integer ' Colonne 4
'Valeurs des variables
For a = 8 To 258  ' Lignes
    If Cells(a, 7).Value <> "Nbre Sortie" Then
        Cells(a, 7).Interior.ColorIndex = xlNone
        Cells(a, 7).ClearContents
      
        Cells(a, 9).Interior.ColorIndex = xlNone
        Cells(a, 9).ClearContents
      
        Cells(a, 10).Interior.ColorIndex = xlNone
        Cells(a, 10).ClearContents
    End If
Next a
Else    ' Si l'utilisateur a choisi Non.
    rep = MsgBox("Vous avez supprimer aucunes informations", vbInformation, "Information")
End If
End Sub
Quant aux sites qui commencent par me balancer une rafale de gâteaux, je les fuis.​


Bonne soirée.



ℝOGER2327
#7432

Mercredi 4 Gidouille 141 (Sainte Tripe, républicaine - fête Suprême Quarte)
30 Prairial An CCXXII, 6,3956h - chariot
2014-W25-3T15:20:58Z
 
Vote positif 0 Vote négatif
Re : [Résolu] Fonction effacer valeur Cellule

Bonjour Dudule, bonjour le forum,

Ha.... On y arrive enfin...
J'ai toujours pas bien compris le rapport entre le code et le fichier mais bon, essaie comme ça :
Code: 
Sub Effacer_Imprimer()
Dim Monmessage, MonStyle, MonTitle, Monaide, Mavaleur, Response, Machaine
Dim CEL As Range

Monmessage = "Souhaitez-vous supprimer les informations contenues dans les tableaux ?"    ' Définit le message.
MonStyle = vbYesNo + vbQuestion    ' Définit les boutons.
MonTitle = "Informations"    ' Définit le titre.
Monaide = "DEMO.HLP"    ' Définit le fichier d'aide.
Mavaleur = 1000    ' Définit le contexte de la rubrique.
' Affiche le message.
Response = MsgBox(Monmessage, MonStyle, MonTitle, Monaide, Mavaleur)
If Response = vbYes Then  ' L'utilisateur a choisi Oui.
    rep = MsgBox("Vous avez supprimé toutes les informations !", vbInformation, "Information")
    'Valeurs des variables
    For Each CEL In Range(Cells(8, 7), Cells(258, 7))
        If CEL.Value <> "Nbre Sortie" Then
            CEL.Interior.ColorIndex = xlNone
            CEL.Offset(0, 2).ColorIndex = xlNone
            CEL.Offset(0, 3).ColorIndex = xlNone
            CEL.ClearContents
            CEL.Offset(0, 2).ClearContents
            CEL.Offset(0, 3).ClearContents
        End If
    Next CEL
Else    ' Si l'utilisateur a choisi Non.
    rep = MsgBox("Vous n'avez supprimé aucune information !", vbInformation, "Information")
End If
End Sub

[Édition]
Bonjour Roger on s'est croisé.... T'aime pas les gâteaux ?
 
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

F
  • Question Question
Microsoft 365 Problème mémoire insuffisante
Réponses
5
Affichages
703
TooFatBoy
  • Question Question
Microsoft 365 datepicker dynamique intra userform ou dans feuille 2 versions(frame dynamique)(toute version d'excel )
6 7 8
Réponses
105
Affichages
3 K
Usine à gaz
J
  • Question Question
XL 2021 transfert listview vers feuille excel
Réponses
9
Affichages
617
Piment
P
F
  • Résolu(e)
Autres Insérer une ligne
2 3
Réponses
36
Affichages
3 K
francescofrancesco
F
  • Résolu(e)
XL 2016 En VBA, Automatiser la réponse en fonction de l'état d'une cellule.
Réponses
7
Affichages
649
piga25
M
  • Résolu(e)
XL 2021 PUBLIPOSTAGE : Mise en forme du corps de message issu d'une cellule excel (VBA)
Réponses
4
Affichages
703
Minus&Cortex
M
  • Question Question
XL 2021 Exportation feuille msgbox yes no avec module Thisworkbook
2
Réponses
21
Affichages
2 K
Nicolas JACQUIN
  • Résolu(e)
XL 2021 Combiner plusieurs macros en 1 seule fonction
2 3 4
Réponses
58
Affichages
3 K
Nicolas JACQUIN
L
  • Question Question
VBA : erreur sur boucle
Réponses
2
Affichages
435
Latias
L
G
  • Résolu(e)
XL 2016 Pb de tri et sous totaux
2
Réponses
27
Affichages
1 K
Gestionnaire_rh
G
B
  • Résolu(e)
Microsoft 365 affecter des valeurs dans un tableau de noms de variable
Réponses
4
Affichages
937
bérylion
B
G
  • Question Question
Microsoft 365 Saut de ligne dans une cellule
Réponses
3
Affichages
773
GClaire
G
S
  • Résolu(e)
XL 2016 problème de filtre dans listbox
2 3 4
Réponses
51
Affichages
3 K
saidoush
S
A
  • Question Question
XL 2016 Boucle sur sous répertoire fso.GetFolder SharePoint
Réponses
0
Affichages
958
Aldonanou
A
  • Résolu(e)
Microsoft 365 Vba : Transférer des données d'un tableau dans un autre fichier
Réponses
7
Affichages
751
Chaton77
A
  • Résolu(e)
XL 2016 Alimentation d'un fichier selon données sélectionnées via une ComboBox
Réponses
3
Affichages
637
Aldonanou
A
D
  • Question Question
XL 2021 Filtre Multi Critères Listview VBA
2
Réponses
21
Affichages
2 K
Dranreb
L
  • Question Question
Microsoft 365 Supprimer des colonnes et des images
Réponses
2
Affichages
506
LeLigérien
L
EXCEL :: Les Tableaux Structurés :: Une classe VBA - V1.05 - Evolutions majeures exports CSV, XML, XML UTF-8, JSON, HTML, PDF, JPG, JPEG, BMP, EXCEL
Réponses
10
Affichages
929
oguruma
  • Résolu(e)
XL 2021 recherche supprimer les espaces '"si valeur cherchée est numérique" sinon NON
Réponses
7
Affichages
782
Usine à gaz
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…