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

[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]

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

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

[phildu80]

Si , mais il c'est inspiré du libre VBA pour Excel - Programmation macro : http://www.eyrolles.com/Informatique...-9782844275646

[Menhir]

Ca illustre bien le proverbe chinois :

Qui sait faire, fait.
Qui ne sait pas faire, enseigne.

[phildu80]

Voici le fichier Excel en question

[Marc-L]

Exemple pour la première plage à effacer :

Code :

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

1
2
3
4
5
Sub Demo()
    With [G8].CurrentRegion
        .Columns(1).ClearContents:  .Columns("C:D").ClearContents
    End With
End Sub

_______________ _____________________________________ _____________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[phildu80]

Merci à tous pour votre aide