[Résolu] Fonction effacer valeur Cellule

[dudule859]

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

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

 

[Robert]

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...

 

[dudule859]

Re : Fonction effacer valeur Cellule

Mais, je suis sous OpenOffice

 

[Robert]

Re : Fonction effacer valeur Cellule

Bonjour Dudule, bonjour le forum,

Mais, je suis sous OpenOffice

Moi sous anti-dépresseurs mais y paraît que ça se soigne....

 

[dudule859]

Re : Fonction effacer valeur Cellule

Mais j'utilise du VBA

 

[Robert]

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...

 

[dudule859]

Re : Fonction effacer valeur Cellule

Voici le fichier en question
https://drive.google.com/file/d/0B_7MHlhgkzhjREVYcTZLeV9aUEE/edit?usp=sharing

Pour le télécharger Fichier/Télécharger

 

[ROGER2327]

Re : Fonction effacer valeur Cellule

Bonjour à tous.

À tout hasard :​

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

 

[dudule859]

Re : Fonction effacer valeur Cellule

Je n’avais pas le choix que de le mettre sur mon googledrive

 

[dudule859]

Re : Fonction effacer valeur Cellule

Merci beaucoup ROGER2327 🙂

 

[Robert]

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 :

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 ?