Discussion :

[phildu80]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
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
phildu80

[Marc-L]

Bonjour,

plutôt brouillon, si j'ai bien compris le besoin il faudrait moins de dix lignes de code …

Joindre alors un classeur exemple en .xlsx avec une feuille source et une feuille résultat désiré.

[phildu80]

Voici le fichier Excel

[Menhir]

Si le fichier que tu as transmis est représentatif de ton besoin, alors le "258" de la boucle "For to" est très largement surévalué.

[Menhir]

Récupérer des morceaux de code sur Internet, c'est pratique mais essayer de comprendre ce que fait ce code, c'est mieux.
Ca évite des "hérésies" comme "For a=9 to 9".

J'ai réécrit ton code un peu plus proprement. C'est pas parfait (un simple "Range" permettrait d'éliminer le "For to") mais c'est toujours mieux qu'avant.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Sub Effacer_Imprimer()
 
   Dim Response as String
   Dim a As Integer
 
   ' Affiche le message.
   Response = MsgBox("Souhaitez-vous supprimer les informations contenues dans les tableaux ?", _   ' Définit le message.
                      vbYesNo + vbQuestion, _   ' Définit les boutons.
                      "Informations", _    ' Définit le titre.
                      "DEMO.HLP", _    ' Définit le fichier d'aide.
                      1000)    ' Définit le contexte de la rubrique.
 
   If Response = vbYes Then  ' L'utilisateur a choisi Oui.
      MsgBox("Vous avez supprimer toutes les informations", vbInformation, "Information")
 
      For a = 8 To 258  ' Lignes
         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
      Next a
 
   Else    ' Si l'utilisateur a choisi Non.
       MsgBox("Vous avez supprimer aucunes informations", vbInformation, "Information")
 
   End If
 
End Sub

Les lignes sur lesquelles s'appliquent le nettoyage sont celles délimitées par les valeurs du "For to" de la ligne 16.

Si tes cellules ne sont pas consécutives, il faut que tu dupliques la boucle "For to" (de la ligne 16 à la ligne 25) et que tu mettes à chaque fois les limites de la zone en numéro de ligne dans les valeurs du "For to".

[phildu80]

Récupérer des morceaux de code sur Internet, c'est pratique mais essayer de comprendre ce que fait ce code, c'est mieux.
Ca évite des "hérésies" comme "For a=9 to 9".

Ce sont les codes que j'ai vu en cours

[Menhir]

Autrement dit, tu nous demandes de faire tes devoirs ?

[phildu80]

Non, je suis en stage, donc je reprend les codes que j'ai pu voir en cours et je les adaptent

[Menhir]

J'espère que celui qui avait pondu ça n'est pas professeur....